Prev: How set many row heighths = height of another row
Next: Can I flip a symbol?
From: Jeronimo on 21 Mar 2010 18:51
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
From: FSt1 on 21 Mar 2010 19:40
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
From: FSt1 on 21 Mar 2010 19:58
hi
after thought
see this site for a complete list of control id numbers 2003 and earlier.
not sure about 07
http://support.microsoft.com/kb/213552

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
From: FSt1 on 22 Mar 2010 01:10
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
 | 
Pages: 1
Prev: How set many row heighths = height of another row
Next: Can I flip a symbol?