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

最新推荐文章于 2024-09-10 14:14:32 发布

allan_012

最新推荐文章于 2024-09-10 14:14:32 发布

阅读量2.3k

点赞数 2

分类专栏： VBA 文章标签： VBA EXCEL 禁用excel保存

本文链接：https://blog.csdn.net/allan_012/article/details/102400773

版权

VBA 专栏收录该内容

2 篇文章

订阅专栏

本文介绍如何通过VBA代码禁用Excel工作簿的保存功能，包括BeforeClose和BeforeSave事件的使用，并提供了解决宏被禁用无法保存设置的方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

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

补充：
当你直接往自己的工程中加入上述代码时，会发现禁用保存功能竟然连这部分代码都无法保存，是不是很尴尬。。。
当xlsm格式文档在某个路径下首次打开时在worksheet上方会提示，“安全警告宏已被禁用。”，此时所有的宏均不能够调用。
解决方法：
将xlsm复制到一个新路径下，重新打开，保持宏被禁用的状态加入上述代码，然后保存退出即可。

参考链接：
https://docs.microsoft.com/zh-TW/office/vba/api/Excel.Workbook.BeforeSave
https://docs.microsoft.com/zh-TW/office/vba/api/excel.workbook.beforeclose