locking and unlocking worksheets
Thanks, this works just fine.
The only problem I have is that any of the users of the workbook can run the
macro and unprotect all sheets.
Is there a way to hide the macro so it doesn't show up in Toolsmacros or it
is possible password protect the macro?
Thanks,
"Gord Dibben" wrote:
Here are 4 macros.
You can store them in a module in a newly created workbook which you save as an
Add-in or in your Personal.xls.
Sub ProtectAllSheets()
Application.ScreenUpdating = False
Dim n As Single
For n = 1 To Sheets.Count
Sheets(n).Protect Password:="justme"
Next n
Application.ScreenUpdating = True
End Sub
Sub UnprotectAllSheets()
Application.ScreenUpdating = False
Dim n As Single
For n = 1 To Sheets.Count
Sheets(n).Unprotect Password:="justme"
Next n
Application.ScreenUpdating = True
End Sub
Sub Protect_Selected_Sheets()
Set MySheets = ActiveWindow.SelectedSheets
For Each ws In MySheets
ws.Select
ws.Protect Password:="justme"
Next ws
End Sub
Sub UnProtect_Selected_Sheets()
Set MySheets = ActiveWindow.SelectedSheets
For Each ws In MySheets
ws.Select
ws.UnProtect Password:="justme"
Next ws
End Sub
Gord Dibben MS Excel MVP
On Mon, 18 Jun 2007 07:00:01 -0700, adam wrote:
Does anyone know of an add-in that allows you to lock and unlock multiple
worksheets at one time?
|