How to Tell Worksheet Protection Status

[animas]

How can someone easily know by looking at a worksheet if it is protected or not?

Quick Access Toolbar is shown on all sheets. Which command bar will always fade out while sheet is protected(some cells could remain unlocked)?

 

[JamesW]

Hi there,

This will do it:

Sub test()
    MsgBox Sheets("Sheet1").ProtectContents
End Sub

Alternatively, you can simply click on Tools -> Protection and see if it says "Unprotect sheet", instead of 'Protect sheet"

 

[RoryA]

By default, most of the Home tab will be disabled.

 

[animas]

Thanks.