Unprotecting hidden worksheets 1

[Airbisk]

I have called the code below within a written macro. The code has caused some problems after protecting some hidden worksheets that require to be unprotected.

Could you help me by pointing me in the right direction/code so that I only protect the visible sheets in my workbook.

If you require more details please let me know.

Thanks in advance.

Steve



Sub ProtectSheets()

Dim wSheet As Worksheet

For Each wSheet In Worksheets

If wSheet.ProtectContents = True Then

wSheet.Unprotect Password:=" "

Else

wSheet.Protect Password:=" "

End If

Next wSheet

End Sub

 

[SkipVought]

Hi,

Sub ProtectSheets()

Dim wSheet As Worksheet

    For Each wSheet In Worksheets
      if wsheet.visible = xlsheetvisible then
        If wSheet.ProtectContents = True Then

            wSheet.Unprotect Password:=" "

        Else

            wSheet.Protect Password:=" "

        End If
     end if
    Next wSheet

End Sub

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[Airbisk]

Thanks skip

For visible sheets you use....

if wsheet.visible = xlsheetvisible then

For reference what if you change this for hidden sheets what would you use then?

 

[Airbisk]

Its okay Skip just messed about and worked it out...

if wsheet.visible = xlsheethidden then

Easy stuff when you know how!!!

Anyway thanks for the earlier solution

 

[SkipVought]

There are 2 hidden states

xlSheetHidden
xlSheetVeryHidden

Check out HELP for more info.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}