Sheet Protection Identifier
Missing the punch line here. you are going to handle each sheet
individually and each time it is changed?
--
Regards,
Tom Ogilvy
"CLR" wrote in message
...
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
|