Workbook.WritePassword property (Excel)
Returns or sets a String for the write password of a workbook. Read/write.
expression.WritePassword
expression A variable that represents a Workbook object.
In this example, if the active workbook is not protected against saving changes, Microsoft Excel sets the password to a string as the write password for the active workbook.
Sub UseWritePassword()
Dim strPassword As String
strPassword = InputBox ("Enter the password")
' Set password to a string if allowed.
If ActiveWorkbook.WriteReserved = False Then
ActiveWorkbook.WritePassword = strPassword
End If
End Sub
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.