如何在MS Project VBA中禁用“另存为”按钮？

Question

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

Answer 1

您有2个选项：

1）使用组策略在MS Project的每台计算机上的窗口中禁用saveas对话框。如果您需要thsi选项，请告诉我计算机上的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版本，只是为了安全起见。我认为这不重要。