vba - 使用 VBA 在 Excel 中禁用文件>共享

Question

我需要一种方法来禁止用户访问(或使用)菜单"file">“共享”

我有类似的其他保存命令，如下所示，但也需要此功能的一些东西

Application.CommandBars("Worksheet Menu Bar").Controls("File").Controls("Save As...").Enabled = False
Application.CommandBars("Worksheet Menu Bar").Controls("File").Controls("Save").Enabled = False

我已经尝试过:

Application.CommandBars("Worksheet Menu Bar").Controls("File").Controls("Share").Enabled = False

没用

我的目标是阻止用户保存此文件的副本(托管在服务器上)，我完全理解 Excel 并不意味着安全，并且总有办法做到这一点，但想让它像我一样困难对于普通人来说可以

问候

Answer 1

您可以使用 foreach 循环来提取可用命令:

' Iterate available commands from the file command bar.
Sub PrintAllCommandBarControlNames()

    Dim cbControl As CommandBarControl
    For Each cbControl In Application.CommandBars("Worksheet Menu Bar").Controls("File").Controls

        Debug.Print cbControl.Caption
    Next
End Sub

在 Excel 2010 上运行，我找不到共享选项。可能只是我的系统。以上返回:

&New...
&Open...
&Close
&Save
Save &As...
Single Web Page (*.mht)
Save &Workspace...
File Searc&h...
Per&mission...
Per&mission
Ch&eck Out
Ch&eck In...
Ve&rsion History...
We&b Page Preview
Page Set&up...
Prin&t Area
Print Pre&view
&Print...
Sen&d To
Propert&ies
&Recent File Name Goes Here
&Recent File Name Goes Here
Sign ou&t
E&xit Excel