VBA/Excel/Access/Word/Excel/Workbook Password

Clear password

   <source lang="vb">

Sub ClearPassword()

   Dim myWorkbook As Workbook, pass As String
   Set myWorkbook = ThisWorkbook
   If myWorkbook.HasPassword Then
       myWorkbook.Password = ""
       Debug.Print "Password removed."
   Else
       Debug.Print "No password found."
   End If

End Sub

</source>
   
  

Set Workbook Password

   <source lang="vb">

Sub SetWorkbookPassword()

   Dim myWorkbook As Workbook, pass As String
   Set myWorkbook = ThisWorkbook
   pass = "Password"
   If pass = "Password" Then
       myWorkbook.Password = pass
       Debug.Print "Password set."
   Else
       Debug.Print "Passwords don"t match. No password set."
   End If

End Sub

</source>
   
  

Write Password

   <source lang="vb">

Sub WritePassword()

   Dim myWorkbook As Workbook, pass As String
   Set myWorkbook = ThisWorkbook
   myWorkbook.Password = ""
   myWorkbook.WritePassword = "Excel2003"
   If myWorkbook.WriteReserved Then _
     Debug.Print "Reserved by: " & myWorkbook.WriteReservedBy
   Debug.Print myWorkbook.BuiltinDocumentProperties("Last Author")

End Sub

</source>