Applies To
Workbook Object.
Description
True if the workbook has a protection password. Read-only.
Remarks
You can assign a protection password to a workbook with the SaveAs method.
Example
This example displays a message if the active workbook has a protection password.
If ActiveWorkbook.HasPassword = True Then MsgBox "Remember to obtain the workbook password" & Chr(13) & _ " from the Network Administrator." End If