Group:  Microsoft Excel ยป microsoft.public.excel.misc
Thread: Multiple Worksheet Protection

DotNetBag
.NET Development Newsgroups

HTVi
TV Discussion Newsgroups

Our Hot Pick: Rising Antivirus 2006 - Certified by TUV & Checkmark! Get 10% discount by entering this coupon code: ONDISCOUNT10
Rising Antivirus 2006

Multiple Worksheet Protection
Lee 29.09.2006 19:19:02
I have a workbook that has multiple worksheets with the same format. Is
there a way to protect cells on these multiple worksheets at the same time.
The group feature does not work for this and having to do each worksheet
separately is very timeconsuming
Re: Multiple Worksheet Protection
Gord Dibben <gorddibbATshawDOTca> 29.09.2006 20:44:07
Lee

Grouping sheets to select cells is not a problem, but the protecting of grouped
sheets must be VBA assisted.

Group the sheets to select the cells to be locked or unlocked on all sheets.

Ungroup when done.

Then run this macro to protect all sheets.

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

And to unprotect all sheets.

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 Fri, 29 Sep 2006 12:19:02 -0700, Lee <Lee[ at ]discussions.microsoft.com> wrote:

[Quoted Text]
>I have a workbook that has multiple worksheets with the same format. Is
>there a way to protect cells on these multiple worksheets at the same time.
>The group feature does not work for this and having to do each worksheet
>separately is very timeconsuming

Home | Search | Terms | Imprint | Contact
Newsgroups Reader - provided by WiredBox.Net