True if the workbook has a protection password. Read-only Boolean.
Remarks
You can assign a protection password to a workbook by using 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