Macro to protect all sheets that are not hidden

[mgeiss]

Hello,

I'm trying to create a macro to protect all sheets at the same time. Below is what I have been trying, but its not working. ANy ideas?



Sub protectsheets()
Dim wSheet As Worksheet
For Each wSheet In ActiveWorkbook.Worksheets
wSheet.Protect Password:="margin"
Next wSheet
End Sub


Sub unprotectsheets()
Dim wSheet As Worksheet
For Each wSheet In ActiveWorkbook.Worksheets
wSheet.Protect Password:="margin"
Next wSheet
End Sub

 

[Fluff]

Try

   If wSheet.Visible Then wSheet.Protect Password:="margin"

 

[DanteAmor]

If the sheet is in veryhidden it also protects it, then:

Sub protectsheets()
    Dim wSheet As Worksheet
    For Each wSheet In ActiveWorkbook.Worksheets
        If wSheet.Visible = xlSheetVisible Then
            wSheet.Protect Password:="margin"
        End If
    Next wSheet
End Sub

 

[Fluff]

Excellent point Dante