禁用工作簿的"另存为"功能,以便重要文件名保持版本统一
工具/原料
EXCEL
方法/步骤
1、工作中,对于某些重要的文件,为防止保存的版本混乱,要求文件只能保存为一个文件名,此时可禁用这个工作簿【另存为】功能,实现目标。
2、需要借用Workbook的”Bef艺皱麾酪oreSave“事件,判断用户是否触发了【另存为】功能,通过”SaveAsUI“参数值判断。
3、具体的代码如下:PrivateSubWork水瑞侮瑜book_BeforeSave(ByValSaveA霜杼厮贿sUIAsBoolean,CancelAsBoolean)IfSaveAsUI=TrueThenCancel=TrueEndSub代码解析:IfSaveAsUI=True,那么保存的动作就中断,即Cancel=True跳出保存这个动作