How to determine if an Excel workbook is protected

Question

I can use the properties of the Excel worksheet to find out if the worksheet is protected (Worksheet.Protection, Worksheet.ProtectContents, etc.).

How can I find out using VBA if the entire workbook is protected?

Answer 1

Found the answer myself:

I need the properties of Workbook.ProtectStructure and Workbook.ProtectWindows .

Answer 2

Worksheet.ProtectedContents is what you will need to use on each sheet.

So, I would create a loop like this:

 Public Function wbAllSheetsProtected(wbTarget As Workbook) As Boolean Dim ws As Worksheet wbAllSheetsProtected = True For Each ws In wbTarget.Worksheets If ws.ProtectContents = False Then wbAllProtected = False Exit Function End If Next ws End Function 

The function will return True if each sheet is protected, and False if any worksheets are not protected. Hope this is what you were looking for.