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
 

Some videos you may like

Excel Facts

Format cells as time
Select range and press Ctrl+Shift+2 to format cells as time. (Shift 2 is the @ sign).

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,026
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
 

Watch MrExcel Video

Forum statistics

Threads
1,114,052
Messages
5,545,734
Members
410,702
Latest member
clizama18
Top