|
Sub ShowProtectionProperties()
Dim ws As Worksheet, prot As Protection
Set ws = ThisWorkbook.Sheets("Protection")
Set prot = ws.Protection
Debug.Print prot.AllowDeletingColumns
Debug.Print prot.AllowDeletingRows
Debug.Print prot.AllowFiltering
Debug.Print prot.AllowSorting
Debug.Print prot.AllowUsingPivotTables
Debug.Print prot.AllowFormattingCells
Debug.Print prot.AllowFormattingColumns
Debug.Print prot.AllowFormattingRows
Debug.Print prot.AllowInsertingColumns
Debug.Print prot.AllowInsertingRows
Debug.Print prot.AllowInsertingHyperlinks
End Sub
|