Prev: tool bar missing
Next: Pivot Table Column Totals - XL2003
From: ers18 on 4 May 2010 13:11
I need to know how to protect the entire worksheet (all tabs within it) with
a click of a button; not sure what the last solution entails. Please help.

ers


From: Gord Dibben on 4 May 2010 13:20
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 Tue, 4 May 2010 10:11:01 -0700, ers18 <ers18(a)discussions.microsoft.com>
wrote:

>I need to know how to protect the entire worksheet (all tabs within it) with
>a click of a button; not sure what the last solution entails. Please help.
>
>ers
>

 | 
Pages: 1
Prev: tool bar missing
Next: Pivot Table Column Totals - XL2003