Protecting multiple worksheets.
 

I am using Excel XP.

I have a workbook with 12 worksheets, 1 for each month of the year.
Each worksheet has a timesheet used to report hours. Each of the
twelve timesheets is exactly the same.

To protect each sheet, I go into each sheet and apply the
Tools/Protection/Protect Sheet approach. I have to repeat this 12
times to protect them and then 12 times to unprotect them.

My question is "Is there a faster way to apply and remove worksheet
protection?

Appreciate your help!!!!!!!!!


--
Superjet
------------------------------------------------------------------------
Superjet's Profile: http://www.excelforum.com/member.php...o&userid=31072
View this thread: http://www.excelforum.com/showthread...hreadid=507488

Protecting multiple worksheets.
 

You could create a Macro or add Protect Sheet command to your toolbar. Right
click on toolbar area. Left click on customizecommand tabtools. Scroll to
find protect sheet and click and drag to toolbar. Not as fast as a macro but
it works for me.

TC

"Superjet" wrote:


I am using Excel XP.

I have a workbook with 12 worksheets, 1 for each month of the year.
Each worksheet has a timesheet used to report hours. Each of the
twelve timesheets is exactly the same.

To protect each sheet, I go into each sheet and apply the
Tools/Protection/Protect Sheet approach. I have to repeat this 12
times to protect them and then 12 times to unprotect them.

My question is "Is there a faster way to apply and remove worksheet
protection?

Appreciate your help!!!!!!!!!


--
Superjet
------------------------------------------------------------------------
Superjet's Profile: http://www.excelforum.com/member.php...o&userid=31072
View this thread: http://www.excelforum.com/showthread...hreadid=507488

Protecting multiple worksheets.
 

Only through vba macro.

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


Gord Dibben MS Excel MVP

On Wed, 1 Feb 2006 16:45:36 -0600, Superjet
wrote:


I am using Excel XP.

I have a workbook with 12 worksheets, 1 for each month of the year.
Each worksheet has a timesheet used to report hours. Each of the
twelve timesheets is exactly the same.

To protect each sheet, I go into each sheet and apply the
Tools/Protection/Protect Sheet approach. I have to repeat this 12
times to protect them and then 12 times to unprotect them.

My question is "Is there a faster way to apply and remove worksheet
protection?

Appreciate your help!!!!!!!!!