hi
sorry. i got everything backwards
to disable set ctl.Enabled = false
to enable set ctl.Enabled = True

sorry about that.
regards
FSt1

"FSt1" wrote:

hi
to disable.....
Sub disableoptions()
Dim myControls As CommandBarControls
Dim ctl As CommandBarControl
Set myControls = CommandBars.FindControls _
(Type:=msoControlButton, ID:=522) '522=options
For Each ctl In myControls
ctl.Enabled = True
Next ctl
End Sub

to enable....
change false to true and run code again.

regards
FSt1

"Jeronimo" wrote:

Can anyone help me to find the VBA code to disable the Tools/Options setting.
This to avoid that the user of a model can change the original setting of a
model.

Many Thanks
Jeronimo