如何在 MS Project VBA 中禁用另存为按钮？
How to disable Save As button in MS Project VBA?
如何禁用 MS Project 的 "Save As" 按钮并保持 "Save" 按钮启用？
那么你有两个选择：
1) 使用组策略在每台机器上禁用 windows 中的 saveas 对话框。如果你想要这个选项，请告诉我机器上的 Office 版本。或者你可以自己挖掘它。您需要像 this one for MS Office 2007 这样的文档来为您提供要在组策略中修改的 ID。
2) 将VBA代码放入每个。由于您将其标记为 VBA，我认为这是首选方法，尽管第一种方法可以添加到公司的构建过程中，如果您共享它，它不会跟随 sheet 到外部机器上与承包商或顾问。所以，假设你想要第二个，这应该适合你。我在这台 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，以防万一。不过我觉得没关系。
如何禁用 MS Project 的 "Save As" 按钮并保持 "Save" 按钮启用？
那么你有两个选择：
1) 使用组策略在每台机器上禁用 windows 中的 saveas 对话框。如果你想要这个选项，请告诉我机器上的 Office 版本。或者你可以自己挖掘它。您需要像 this one for MS Office 2007 这样的文档来为您提供要在组策略中修改的 ID。
2) 将VBA代码放入每个。由于您将其标记为 VBA，我认为这是首选方法，尽管第一种方法可以添加到公司的构建过程中，如果您共享它，它不会跟随 sheet 到外部机器上与承包商或顾问。所以，假设你想要第二个，这应该适合你。我在这台 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，以防万一。不过我觉得没关系。