vba - 如何在 Excel 2010 中禁用 "Save and send"(在文件功能区(在 Office 2010 中称为后台)？

Question

我在 Excel 2003 中运行了以下 VBA 宏，它阻止了保存、另存为、保存工作区、发送到菜单，但我现在需要为 Excel 2010 做同样的事情？

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("Save Workspace...").Enabled = False

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

Application.CommandBars("Worksheet Menu Bar").Controls("Format").Controls("Sheet").Enabled = False

Excel 2010 中有一个名为“保存并发送”(在"file"功能区下)的“新菜单”，我也想将其禁用...你是怎么做到的？我正在搜索与这样一行的等效项:


'Application.CommandBars("工作表菜单栏").Controls("文件").Controls("保存并发送").Enabled = False


感谢您的帮助。

Answer 1

对于 Microsoft 的功能区 UI 示例/文档，here .他们会建议您使用 CustomUI Editor .

在 CustomUI 编辑器中打开您的文件(必须是 Excel 2007+ 文件扩展名，如 XLSX、XLSM、XLAM 等)。然后在编辑器中使用这个 XML:

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
<backstage>
    <tab idMso="TabShare" visible="false" enabled="false">
    </tab>
</backstage>
</customUI>

保存文件，然后关闭 CustomUI 编辑器。

然后，打开您的文件。转到 File/Backstage View ，您应该看到 Save and Send 选项卡已被删除:

注意:这从后台 View 中禁用了整个“保存并发送”选项卡。应该可以使用 XML 对此进行微调，即启用选项卡，但禁用其中的特定控件(例如，也许您只想禁用 Send as Attachment 但您想保留另一个选项已启用等)，但我还没有完全弄清楚 XML 层次结构以禁用仅特定的Send As Attachment 控件。

希望这对您有所帮助!

评论更新

1) 当此文件关闭或另一个文件处于事件状态时，用户会发现“正常”功能。 UI 自定义仅适用于包含自定义 UI XML 部分的文件，因此如果您打开了多个文件，则只有此文件会受到禁用的 Save & Send 选项卡的影响。

2) 遗憾的是，这不与 Excel 2003 或更早版本兼容。 CustomUI/XML 不是遗留 XLS 文件的一部分，因此无法在这些版本中实现。对于 2003/之前版本的 Excel，您将不得不使用可通过 VBA 控制的遗留 CommandBars。仅当用户使用 2003 或更早版本时，放置一些 VBA 代码来检查哪个版本的 Excel 并运行子例程以禁用某些 CommandBar/Controls 相对容易。

如果您尝试将其保存为 XLS 文件，您将收到一条警告，指出该功能与文件类型不兼容:

此外，您无法在 CustomUI 编辑器中打开 XLS 文件。