如何禁用excel的保存和另存为选项

进入VBA编辑器，在工程栏中双击ThisWorkBook在弹出的代码框中写入如下内容即可

Private Sub Workbook_BeforeClose(Cancel As Boolean)Me.Saved = TrueEnd SubPrivate Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)Cancel = TrueEnd Sub

补充：

当你直接往自己的工程中加入上述代码时，会发现禁用保存功能竟然连这部分代码都无法保存，是不是很尴尬。。。

当xlsm格式文档在某个路径下首次打开时在worksheet上方会提示，“安全警告 宏已被禁用。”，此时所有的宏均不能够调用。

解决方法：

将xlsm复制到一个新路径下，重新打开，保持宏被禁用的状态加入上述代码，然后保存退出即可。

参考链接：

/zh-TW/office/vba/api/Excel.Workbook.BeforeSave

/zh-TW/office/vba/api/excel.workbook.beforeclose