lock/unlock sheets

[Jaffey]

Jaffey (TechnicalUser) 12 Jan 07 12:23
I have a spreadsheet with about 20 tabs. I need a macro to unlock/lock all of them. Problem is, sometimes some of them are already locked/unloced so my macro bombs.

Sub Macro1()
'
ActiveSheet.Next.Select
ActiveSheet.Unprotect
ActiveSheet.Next.Select
ActiveSheet.Unprotect

End Sub

Can anyone help with a macro that will unlock or lock all sheets? If it could enter the password as well that would be great.

 

[JPMontreal]

Hi,
Sub Un_Lock()
Dim sh As Worksheet
For Each sh In Application.Worksheets
sh.Unprotect
Next
End Sub

Sub Re_Lock()
Dim sh As Worksheet
For Each sh In Application.Worksheets
sh.Protect
Next
End Sub

Jean-Paul
Montreal
To send me E-Mail, remove “USELESSCODE”.
jp@USELESSCODEsolutionsvba.com

 

[WinblowsME]

1) Click the first tab
2) Hold down the SHIFT key
3) Click the last tab and release SHIFT
4) Press Ctrl-A
5) Right-click and choose Format Cells
6) Click unlock/lock

 

[WinblowsME]

I thought you were talking about something else... Use JP's code.

sh.Unprotect("an_easy_password")
sh.Protect("an_easy_password")

 

[Jaffey]

You're script works great except now when I lock them it doesn't prompt me to assign a password, it just locks them all without a password which is a problem. Any suggestions? The password is the same for every page if that helps.

 

[SkipVought]

The Protect method has and argument for password.

Skip,
[sub]
[red][/red]
[/sub]