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

Can Excel fill bagel flavors?
You can teach Excel a new custom list. Type the list in cells, File, Options, Advanced, Edit Custom Lists, Import, OK

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,176,423
Messages
5,903,037
Members
435,003
Latest member
farooquecool

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