1、工作中,对于某些重要的文件,为防止保存的版本混乱,要求文件只能保存为一个文件名,此时可禁用这个工作簿【另存为】功能,实现目标。
2、需要借用Workbook的”BeforeSave“事件,判断用户是否触发了【另存为】功能 ,通过”SaveAsUI“参数值判断。
3、具体的代码如下:Private Sub Work水瑞侮瑜book_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If SaveAsUI = True Then Cancel = TrueEnd Sub代码解析:1、If SaveAsUI = True ,那么保存的动作就中断,即Cancel = True跳出保存这个动作