One way:

Put this in you Personal.xls workbook and attach it to a toolbar button:

Public Sub ToggleProtectWithIndication()
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

This will add "##" when you unprotect the sheet, and remove it when you
reprotect it.



In article ,
"CLR" wrote:

Hi All.......

I regularly work on WorkBooks that require some of the sheets to be
Protected, and some not. Naturally while I'm editing them, I must turn the
Protection off. Once I get ready to save the WorkBook, I have to check each
sheet individually to see if it's protected or not..
Is it possible to somehow indicate on a Sheet Tab, whether or not that
sheet is Protected?. Maybe change tab color, or add an * to the Sheetname,
or something?

Any help would be appreciated.....

Vaya con Dios,
Chuck, CABGx3