如何用VBA禁用Excel的File>Share菜单？已有保存类命令禁用方案

我懂你要的效果——就是想给托管在服务器上的Excel文件加层“软防护”，虽然知道拦不住硬核玩家，但能让普通用户没法轻易通过Share菜单复制文件对吧？之前你用CommandBars禁用Save相关命令成功了，但Share项没生效，大概率是因为不同Excel版本里Share控件的命名或位置不一样，或者你遇到了Ribbon界面的兼容性问题，下面给你分情况解决：

一、针对旧版Excel（传统菜单界面） #

你之前的代码没生效，可能是Share控件的标题不是正好"Share"（比如有的版本叫"Share with People"或者带省略号），不如直接遍历File菜单的所有控件，找到包含Share关键词的项禁用：

Sub DisableShareMenu()
    Dim fileMenu As CommandBarControl
    Dim ctrl As CommandBarControl
    
    Set fileMenu = Application.CommandBars("Worksheet Menu Bar").Controls("File")
    
    ' 遍历File菜单下的所有子控件，匹配含"Share"的标题
    For Each ctrl In fileMenu.Controls
        If InStr(1, ctrl.Caption, "Share", vbTextCompare) > 0 Then
            ctrl.Enabled = False
            Exit For ' 找到目标控件就停止遍历
        End If
    Next ctrl
End Sub

把这个代码放到ThisWorkbook模块的Workbook_Open事件里，打开文件时自动执行：

Private Sub Workbook_Open()
    DisableShareMenu
    ' 顺便把之前的Save相关禁用也放这里统一执行
    Application.CommandBars("Worksheet Menu Bar").Controls("File").Controls("Save As...").Enabled = False
    Application.CommandBars("Worksheet Menu Bar").Controls("File").Controls("Save").Enabled = False
End Sub

二、针对新版Excel（Ribbon界面，2007及以后） #

新版Excel的Ribbon界面和旧的CommandBars不是一个模型，直接用CommandBars控制Share菜单经常失效，这时候要通过自定义Ribbon XML来禁用内置的Share命令：

1. 用Custom UI Editor for Microsoft Office工具打开你的Excel文件（这是Office自定义UI的常用工具）
2. 插入以下XML代码：

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
    <commands>
        <!-- 禁用所有和Share相关的内置命令 -->
        <command idMso="ShareWorkbook" enabled="false"/>
        <command idMso="ShareWithPeople" enabled="false"/>
        <command idMso="ShareOneDrive" enabled="false"/>
        <command idMso="ShareEmail" enabled="false"/>
    </commands>
</customUI>

3. 保存后重新打开Excel文件，所有Share相关的入口都会被禁用。

三、额外加固措施（提高普通用户操作难度） #

为了进一步阻止复制，你可以再加几个辅助手段：

• 禁用保存快捷键：

Private Sub Workbook_Open()
    ' 禁用Ctrl+S和Ctrl+Shift+S快捷键
    Application.OnKey "^s", ""
    Application.OnKey "^+s", ""
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ' 关闭文件时恢复快捷键，避免影响其他工作簿
    Application.OnKey "^s"
    Application.OnKey "^+s"
End Sub

• 拦截保存/另存为操作：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Cancel = True
    MsgBox "该文件禁止保存或另存为", vbExclamation
End Sub

• 保护工作簿结构：右键工作簿标签→保护工作簿，勾选"结构"，设置密码，防止用户插入/删除工作表。

最后再强调一遍：这些方法都是“软防护”，如果用户禁用宏、用第三方工具提取数据，还是能绕过去，但对付普通用户完全够用了。

内容的提问来源于stack exchange，提问作者Aurelius