I set up the following, attached to Icons on personal tool bar
( most is from this forum)

' ProtectionOff Macro
' Keyboard Shortcut: Ctrl+Shift+U
Dim ws As Worksheet
For Each ws In Worksheets
ws.Unprotect ("ABC")
Next ws
ActiveWorkbook.Unprotect (["DEF"])
End Sub

I have another one to PROTECT all sheets and workbook.

Questions:
1: Is there an icon I can use to Toggle between Protect / Unprotect?
(Instead of a seperate icon for each instruction)

2: Can the above be modified to check each sheets state before trying to
change it?
(It might be in the correct state already)
I'm afraid that trying to, for example, protect a sheet that is
protected already,
might cause a glitch, under certain circumstances.

3: Is there a way to visually and easily show the state of the active
sheet(s)
and workbook, (whether its protected or not), Perhaps by colour on the
icon(s)?
Or by having a message box pop up ( and fade away )
or ???????????

Thanks in advance for any help.