Thanks JE.........that's a great start.........I first mistakenly put it in
"ThisWorkbook" and it didn't seem to work, but then I moved it to a regular
module and it works "fine as frog hair".........I just need to modify it now
to accomodate my 8 sheets, and whether I want them on or off protection.

Thanks again
Vaya con Dios,
Chuck, CABGx3



"JE McGimpsey" wrote in message
...
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