Peter:
Other method，only Disabled viewing code CommandBarControl
Sub DisabledViewCode()
Dim Ctrl As CommandBarControl
For Each Ctrl In CommandBars.FindControls
If Ctrl.ID = 1561 Then
Ctrl.Enabled = False
End If
Next
End Sub
Sub EnabledViewCode()
Dim Ctrl As CommandBarControl
For Each Ctrl In CommandBars.FindControls
If Ctrl.ID = 1561 Then
Ctrl.Enabled = True
End If
Next
End Sub
--
天行健，君*以自強不息
地勢坤，君*以厚德載物
http://www.vba.com.tw/plog/
"Peter Rooney" wrote:
ChiJanZen,
I couldn't wait.
This is excellent!
Thank you VERY much!
Regards
Pete
"chijanzen" wrote:
Peter:
try
Application.CommandBars("Document").Enabled = False
--
天行健，君*以自強不息
地勢坤，君*以厚德載物
http://www.vba.com.tw/plog/
"Peter Rooney" wrote:
Good afternoon, all,
I want to be able to prevent users from viewing my code. I've already
disabled Alt-F11 using application.onkey, but they can still get to it by
right clicking the Excel logo on the Standard Menu Bar. Is there any way in
which I can reference this as an object, to either disable it or remove it
from the menu bar?
Thanks in advance
Pete