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

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

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

 

Related examples in the same category