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

如何仅禁用MS Project的“另存为”按钮并保持“保存”按钮处于启用状态？

您有两个选项：

1） 使用组策略在windows中的每台计算机上禁用MS Project的“另存为”对话框。如果您想要thsi选项，请告诉我计算机上的Office版本。或者你可以自己挖出来。您需要一个文档，以便为您提供要在组策略中修改的ID

2） 将VBA代码放在每个文件中。由于您将其标记为VBA，因此我认为这是首选方法，尽管第一种方法可以添加到公司的构建过程中，但如果您与承包商或顾问共享，它不会按照工作表安装到外部机器上。所以，假设你想要第二个，这应该适合你。我在这台电脑上没有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。不过我认为这无关紧要。

那么你有两个选择：

1） 使用组策略在windows中的每台计算机上禁用MS Project的“另存为”对话框。如果您想要thsi选项，请告诉我计算机上的Office版本。或者你可以自己挖出来。您需要一个文档，以便为您提供要在组策略中修改的ID

2） 将VBA代码放在每个文件中。由于您将其标记为VBA，因此我认为这是首选方法，尽管第一种方法可以添加到公司的构建过程中，但如果您与承包商或顾问共享，它不会按照工作表安装到外部机器上。所以，假设你想要第二个，这应该适合你。我在这台电脑上没有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用户执行此操作，对吗？它将应用于所有项目。您只想在特定的工作表中执行此操作，而不是对该电脑上的所有MS Project用户执行此操作，对吗？它将应用于所有项目