Workbook.HasPassword (Excel)

True se a pasta de trabalho possuir uma senha de proteção. Boolean somente leitura.

Você pode atribuir uma senha de proteção a uma pasta de trabalho usando o método SaveAs.

Dim booHasPassword As Boolean
booHasPassword = ActiveWorkbook.HasPassword