K. Georgiadis
02-11-2005, 08:47 AM
DRJ, if you're listening:
I have been using the following code:
Option Explicit
Public Sub ProtectAll()
Const PWORD As String = "mysecretword"
Dim wsSheet As Worksheet
For Each wsSheet In Worksheets
wsSheet.Protect Password:=PWORD, DrawingObjects:=False, _
Contents:=True, Scenarios:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True, UserInterfaceOnly:=True
Next wsSheet
End Sub
It has been working quite well for me (the sole exception being a conflict with the Pivot Table's auto-refresh feature).
What statements can I add to the above to also allow formatting of cells and rows?
Thanks!
I have been using the following code:
Option Explicit
Public Sub ProtectAll()
Const PWORD As String = "mysecretword"
Dim wsSheet As Worksheet
For Each wsSheet In Worksheets
wsSheet.Protect Password:=PWORD, DrawingObjects:=False, _
Contents:=True, Scenarios:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True, UserInterfaceOnly:=True
Next wsSheet
End Sub
It has been working quite well for me (the sole exception being a conflict with the Pivot Table's auto-refresh feature).
What statements can I add to the above to also allow formatting of cells and rows?
Thanks!