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>