hi
run this code from a standard module. this will disable the options control.
to enable the options control change........
ctl.Enabled = False from False to True and run code again.
Sub disableoptions()
Dim myCtl As CommandBarControls
Dim ctl As CommandBarControl
Set myCtl = CommandBars.FindControls _
(Type:=msoControlButton, ID:=522)
For Each ctl In myCtl
ctl.Enabled = True
Next ctl
End Sub
see this site for a list of MS controls.
http://support.microsoft.com/kb/213552
regards
FSt1