vba - 如何使用 VBA 在 MS-Word 2010/2013 中禁用保存、另存为按钮

Question

使用 VBA，我想禁用(或隐藏)MS Word 2013 文件菜单中显示的保存和另存为按钮，以便用户无法单击它们。

我试过用这个禁用这些按钮:

Word.CommandBars("File").Controls("&Save").Enabled = False
Word.CommandBars("File").Controls("&Save").Visible = False

但这没有任何效果。有什么办法可以禁用这些按钮吗？

Answer 1

从 2007 版开始，“菜单控件”不再通过 CommandBars 对象模型进行控制。因此，为了控制菜单项，我必须定义功能区 XML，它必须合并到文档中，或者作为加载项。

要在 Word 2010 中禁用“保存”和“另存为”，我使用了以下 XML 代码:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
  <commands>
    <command idMso="FileSave" enabled="false" />
    <command idMso="FileSaveAsMenu" enabled="false" />
    <command idMso="FileSaveAsWordDocx" enabled="false" />
    <command idMso="FileSaveAsWordDotx" enabled="false" />
    <command idMso="FileSaveAs" enabled="false" />
    <command idMso="FileSaveAsWord97_2003" enabled="false" />
    <command idMso="FileSaveAsPdfOrXps" enabled="false" />
    <command idMso="FileSaveAsOtherFormats" enabled="false" />
    <command idMso="FileSaveToDocumentManagementServer" enabled="false" />
    <command idMso="SaveSelectionToQuickPartGallery" enabled="false" />
    <command idMso="FrameSaveCurrentAs" enabled="false" />
    <command idMso="FileSaveAsWordOpenDocumentText" enabled="false" />
  </commands>
</customUI>

我用了Custom UI Editor用于执行和测试此代码。这link提供了有关如何使用自定义 UI 编辑器的良好培训。

谢谢