如何禁用 MS Project VBA 中的另存为按钮？

Posted 2023-05-07

【中文标题】如何禁用 MS Project VBA 中的另存为按钮？

【英文标题】：How to disable Save As button in MS Project VBA?

【发布时间】：2016-08-11 07:24:21

【问题描述】：

如何禁用 MS Project 的“另存为”按钮并保持启用“保存”按钮？

【问题讨论】：

您只想在特定工作表中执行此操作，而不是针对该 PC 上 MS Project 的所有用户，对吗？

将应用于所有项目

【参考方案1】：

那么你有两个选择：

1) 使用组策略禁用 MS Project 的每台计算机上的 windows 中的另存为对话框。如果你想要这个选项，请告诉我机器上的 Office 版本。或者你可以自己挖。您需要像 this one for MS Office 2007 这样的文档来为您提供要在组策略中修改的 ID。

2) 将 VBA 代码放入其中。由于您将其标记为 VBA，我认为这是首选方法，尽管第一种方法可以添加到公司的构建过程中，如果您与承包商或顾问共享它，它不会跟随工作表到外部机器上。所以，假设你想要第二个，这应该对你有用。我在这台 PC 上没有 MS Project，所以我无法对其进行测试，但我认为我的语法对你来说是正确的。将其设置为触发器。

Public Sub Project_BeforeSave(ByVal pj As Project, ByVal SaveAsUi As Boolean, Info As EventInfo)
         If SaveAsUI = True Then Info.Cancel = True
End Sub

如果这对您不起作用，请大声疾呼:-) 另外，为了安全起见，请告诉我您使用的是什么版本的 MS Project。不过我觉得没关系。