Sub ShowWbProtection() Dim wb As Workbook Set wb = ThisWorkbook Debug.Print "Structure protected? " & wb.ProtectStructure, _ "Windows protected? " & wb.ProtectWindows End Sub