Syntax help for if

[Dean]

Currently, I have a macro that protects or unprotects all sheets. However,
sometimes a couple of the sheets are hidden. How do I modify (if, then or
something like that) the code below to say, if "Summary" sheet is hidden,
ignore the protection of it? Right now, for example, I have, the following
inside the macro (where unprotectPW_Sheet is a macro that unprotects the
current sheet):

Sheets("Summary").Select
UnProtectPW_Sheet

Actually, maybe, if it is hidden, I should unhide it, protect it, then
rehide it. How about that?

Thanks!
Dean

 

[Guest]

Dim sh as Worksheet
for each sh in worksheets
if sh.visible = xlSheetVisible then
sh.Select
' protect or unprotect
end if
Next

 

[Dean]

Worked like a charm - thanks.

Dim sh as Worksheet
for each sh in worksheets
if sh.visible = xlSheetVisible then
sh.Select
' protect or unprotect
end if
Next