Toggle Between Protected and Unprotected 1

[shelby55]

Hello

I am using Excel 2010.

I have a workbook where the number of worksheets that I need to make "read only" will vary with each project.

I want to create a toggle button to freeze and unfreeze these pages with a password...it will always be where I freeze all or unfreeze all, never singlular worksheets.

I recorded the macro on one sheet and got the following code:

sub test()

Sheets("1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection=xlNoSelection
End Sub

How do I translate this into VBA code for my toggle button to include all worksheets of my workbook? Thanks.

 

[PHV]

A starting point:

Sub test()
For Each s In ActiveWorkbook.Worksheets
    s.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    s.EnableSelection = xlNoSelection
Next
End Sub

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886