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

Clear password

 
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

Set Workbook Password

 
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

Write Password

 
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