B bbhorse Unregistered / Unconfirmed GUEST, unregistred user! 2006-02-11 #1 我用的是文件流的方式通过OLE来打开EXCEL，但是我不知道怎样才能将其所有菜单屏蔽，在WORD中我可以实现了，但在EXCEL不能屏蔽。
M microd Unregistered / Unconfirmed GUEST, unregistred user! 2006-02-12 #2 bbhorse,你好，能帮帮我吗？你用ole来打开word 是如可实现屏蔽菜单的，我想用来控制WORD 打印功能 。谢谢！ microd@163.com
G gzrvt Unregistered / Unconfirmed GUEST, unregistred user! 2006-02-22 #3 怎么在ActiveX中用ole打开office 的菜单啊?有人做过吗?
小 小神通 Unregistered / Unconfirmed GUEST, unregistred user! 2006-02-25 #5 Dim bar As CommandBar For i = 1 To Application.CommandBars.Count Set bar = Application.CommandBars.Item(i) For j = 1 To bar.Controls.Count bar.Controls.Item(j).Visible = False Next Next 转换成相应的delphi代码就可以了，不过有些菜单项没有visible属性，你可以把名称对应的菜单跳出来再设定visible
Dim bar As CommandBar For i = 1 To Application.CommandBars.Count Set bar = Application.CommandBars.Item(i) For j = 1 To bar.Controls.Count bar.Controls.Item(j).Visible = False Next Next 转换成相应的delphi代码就可以了，不过有些菜单项没有visible属性，你可以把名称对应的菜单跳出来再设定visible
W wb.fang Unregistered / Unconfirmed GUEST, unregistred user! 2006-06-05 #7 for i = 1 To Application.CommandBars.Count do Application.CommandBars.Item.Enabled := False ;
