Hi,

Sorry for missing my past post ...
Code to unable or dissable protection menu like :
Function DisablProt(Enabled As Boolean)
'Disabling ToolsProtection.. commandbar :
Application.CommandBars.Item("tools"). _
FindControl(ID:=30029).Enabled = Enabled
End Function

Sub CallDisablProt()
DisablProt False
'change to true if enabling
End Sub

Thks
--

Regards,

Halim


"Halim" wrote:


--

Regards,

Halim


"dunny_budgie" wrote:

Hi,

hopefully this is a simple query. I have built a large excel model, which
is password protected. The model can be unlocked using a macro (which
requires the inputting of the password).

I want to prevent the user from unlocking individual sheets through the
Tools-Protection menu, i.e. they can only unlock the model by running the
macro. I know i can disable the Protection menu by using a macro, but what i
want is for the Protection menu to be available to the user at all times,
except when my model is the active workbook. is there a way to
automatatically disable the Protection menu when my model worksheet is
activated, then automatically turn it back on when another worksheet is
activated?

Any help is appreciated!

Martin