Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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