Excel禁止使用另存为来保存文件

有时候因为工作的需要，不同的人做不同的任务，就需要共享一个excel文件供多人操作。为了避免某个用户将excel文件“另存为”导致文件名不同，影响其他用户使用。所以我们需要禁止“另存为”的保存操作。
在VBE“工程”窗口中打开“ThisWorkBook”，在Workbook_BeforeSave时间中写下面的代码：PrivateSubworkbook_BeforeSave(ByValSaveAsUIAsBoolean,CancelAsBoolean)
DimresponseAsLong
IfSaveAsUI=TrueThen
response=MsgBox("该工作簿不允许用“另存为”来保存，"_
&"你要用原工作簿名称来保存吗？",vbQuestion+vbOKCancel)
Cancel=(response=vbCancel)
IfCancel=FalseThenMe.Save
Cancel=True
EndIf
EndSub
此时，执行“文件”=》“另存为”操作保存excel文件。会提示以下信息：这样，该工作簿只允许通过“保存”命令来保存，不允许使用“另存为”的提示。

1512204403131147.png

单击“确定”按钮将在原文件夹用原名称来保存工作簿，单击“取消”按钮则取消本次操作。
参考自：Office教程学习网