Protection macro help

JoeShmo

New Member
Joined
Jul 9, 2006
Messages
10
I used the following code to create a macro to protect/unprotect all sheets at once. It is working fine, but now I need to exclude one sheet (called "summary") from this process so that the "summary"sheet must be protected/unprotected separately. I tried changing the password of the "summary" sheet, but then the macro would not run for the other sheets.
Here is the current code:

Sub Protect()
Dim i As Integer
For i = 1 To Worksheets.Count
Sheets (i) .Protect "MyPassword"
Next
End Sub

Sub UnProtect()
Dim i As Integer
For i = 1 To Worksheets.Count
Sheets (i) .UnProtect "MyPassword"
Next
End Sub


Thanks
 

Excel Facts

Which lookup functions find a value equal or greater than the lookup value?
MATCH uses -1 to find larger value (lookup table must be sorted ZA). XLOOKUP uses 1 to find values greater and does not need to be sorted.

Andrew Poulsom

MrExcel MVP
Joined
Jul 21, 2002
Messages
73,092
Like this?

Code:
Sub Protect() 
   Dim i As Integer 
   For i = 1 To Worksheets.Count 
      With Sheets(i)
         If .Name <> "summary" Then
            .Protect "MyPassword" 
         Else
'           Do whatever with summary sheet
         End If
      End With
   Next 
End Sub
 

tusharm

MrExcel MVP
Joined
May 28, 2002
Messages
11,029
Minor (though untested) correction is called for, methinks.
Code:
.
.
.
   For i = 1 To Worksheets.Count 
      With Worksheets(i)
.
.
.
Like this?

Code:
Sub Protect() 
   Dim i As Integer 
   For i = 1 To Worksheets.Count 
      With Sheets(i)
         If .Name <> "summary" Then
            .Protect "MyPassword" 
         Else
'           Do whatever with summary sheet
         End If
      End With
   Next 
End Sub
 

Forum statistics

Threads
1,141,918
Messages
5,709,339
Members
421,630
Latest member
MJ79

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top