Question

我正在尝试构建一个宏，它不会让用户在本地保存文档的副本，而是将其上传到服务器。

到目前为止，我能够将其用于“保存”和“另存为”操作。

但是，当用户“另存为另一种文件格式”时，我的宏不会阻止它。

我目前拥有的关于保存事件的宏是：

Sub FileSave()
    SalvarDocumentoSePermitido 'our method to upload the document back to the server
End Sub

Sub FileSaveAs()
    SalvarDocumentoSePermitido 'our method to upload the document back to the server
End Sub

如何拦截此保存事件作为另一种文件格式？

Answer 1

参考2012年的这篇文章： How to Disable Save and Save As using VBA

在Excel中，您需要打开＆＃34;设计模式＆＃34;并将此段代码插入工作簿模块并将其保存在＆＃34;设计模式＆＃34;中的VBA / Excel中。因为这段代码非常强大，你甚至无法保存新的代码。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    SalvarDocumentoSePermitido
    Cancel = True

End Sub

Answer 2

我感谢大家的帮助，特别是Lary's给了我与“BeforeSave”合作的见解。但我的问题已经得到了MSDN的回答，你可以在这里看到：https://social.msdn.microsoft.com/Forums/office/en-US/c0f231b2-6129-4ed7-bcc0-41f95bcc1864/macro-to-dont-allow-the-user-to-save-the-document-as-another-file-format?forum=worddev

谢谢大家。

宏不允许用户将文档另存为另一种文件格式

2 个答案: