Write Password : Workbook Password « Excel « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Excel
3. Workbook Password

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

 

Related examples in the same category