仓库管理软件版1楼: 我用的是文件流的方式通过OLE来打开EXCEL，但是我不知道怎样才能将其所有菜单屏蔽，在WORD中我可以实现了，但在EXCEL不能屏蔽。

2楼: bbhorse,你好，能帮帮我吗？你用ole来打开word 是如可实现屏蔽菜单的，我想用来控制WORD 打印功能 。谢谢！ microd@163.com 如简单的进销存软件

3楼: 怎么在ActiveX中用ole打开office 的菜单啊？有人做过吗？

4楼: 我想将全部的都屏掉呢。

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

6楼: 这样子做好像不行吧。
还有其它好的办法吗？

仓库管理软件版7楼: for i = 1 To Application.CommandBars.Count do
Application.CommandBars.Item[I].Enabled := False ;