如何让excel的打开文件菜单和工具栏上的打开文件按钮失效？

Question

如题？

Answer 1

‘参考下面代码，在VBA中通过。    Dim i As Integer
    For i = 1 To Excel.Application.CommandBars("File").Controls.Count
        Debug.Print Excel.Application.CommandBars("File").Controls(i).Caption
        If Left$(Excel.Application.CommandBars("File").Controls(i).Caption, 2) = "打开" Then
            Excel.Application.CommandBars("File").Controls(i).Visible = False 'Delete
            Exit For
        End If
    Next

Answer 2

只能在全局中做一个钩子函数。
侦测用户是否按下了CTRL+O键。

Answer 3

CALG(紫怡)的办法是可行的。
另外可以重写FileOpen过程，让其不执行任何代码。提供有偿技术支持。
CO.：Vansoft Workroom
MSN：[email protected]
QQ： 5537350
Email：[email protected]
       [email protected]
TEL：[phone](范)