Someone in the Group once gave me this piece of code........it may need
tweaking for your application.......


Public Sub ToggleProtectWithIndication()
'This will add "##" to the SheetName when you unprotect the sheet, and
remove it when you
'reprotect it.
Const PWORD As String = "drowssap"
Dim wkSht As Worksheet

With ActiveSheet
If .ProtectContents Then
.Unprotect Password:=PWORD
.Name = .Name & "##"
Else
.Protect Password:=PWORD
If .Name Like "*[##]" Then _
.Name = Left(.Name, Len(.Name) - 2)
End If
End With
End Sub


Vaya con Dios,
Chuck, CABGx3



"Alan P" <Alan wrote in message
...
I have workbooks containing many protected worksheets. I would like to
set
up an index page that shows the name of each worksheet and its current
status
- protected or unprotected. Using the CELL function only gives the status
of
a cell, does anyone know if there is an equivalent function/technique for
the
entire worksheet? Thanks.