Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Show the workbook protection

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