Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Show Protection Properties

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