B
Bert
Is there any way to protect multiple sheets
simultaneously. ie. group several sheets and protect all
at once.
Thanks
simultaneously. ie. group several sheets and protect all
at once.
Thanks
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
A
Alan
There is an excellent add-in kindly provided free by Rob Bovey which will do
this and more,
http://www.appspro.com/
Alan.
this and more,
http://www.appspro.com/
Alan.
M
Max
Check out this recent reply from MVP Ron DB
where he gives a macro solution to a similar query
http://tinyurl.com/od7y
where he gives a macro solution to a similar query
http://tinyurl.com/od7y
P
Paul B
Bert, here are two macros the first one will protect all sheets in the
workbook, the second one will only protect the ones listed
Sub Protect_All_Sheets()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Protect password:="123"
Next ws
End Sub
Sub Protect_Listed_Sheets()
'will only protect the sheets listed
Application.ScreenUpdating = False
Set sh = ActiveSheet
varr = Array("Sheet1", "sheet3", "sheet5")
For i = LBound(varr) To UBound(varr)
With Worksheets(varr(i))
.Activate
.Protect password:="123"
End With
Next
sh.Activate
Application.ScreenUpdating = True
End Sub
--
Paul B
Always backup your data before trying something new
Using Excel 97 & 2000
Please post any response to the newsgroups so others can benefit from it
** remove news from my email address to reply by email **
workbook, the second one will only protect the ones listed
Sub Protect_All_Sheets()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Protect password:="123"
Next ws
End Sub
Sub Protect_Listed_Sheets()
'will only protect the sheets listed
Application.ScreenUpdating = False
Set sh = ActiveSheet
varr = Array("Sheet1", "sheet3", "sheet5")
For i = LBound(varr) To UBound(varr)
With Worksheets(varr(i))
.Activate
.Protect password:="123"
End With
Next
sh.Activate
Application.ScreenUpdating = True
End Sub
--
Paul B
Always backup your data before trying something new
Using Excel 97 & 2000
Please post any response to the newsgroups so others can benefit from it
** remove news from my email address to reply by email **