有时候因为工作的需要，不同的人做不同的任务，就需要共享一个excel文件供多人操作。为了避免某个用户将excel文件“另存为”导致文件名不同，影响其他用户使用。

所以我们需要禁止“另存为”的保存操作。

在VBE“工程”窗口中打开“ThisWorkBook”，在 Workbook_BeforeSave时间中写下面的代码：

Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)     Dim response As Long     If SaveAsUI = True Then         response = MsgBox("该工作簿不允许用“另存为”来保存，" _         & "你要用原工作簿名称来保存吗？ ", vbQuestion + vbOKCancel)         Cancel = (response = vbCancel)         If Cancel = False Then Me.Save         Cancel = True     End If End Sub

此时，执行“文件”=》“另存为”操作保存excel文件。会提示以下信息：

这样，该工作簿只允许通过“保存”命令来保存，不允许使用“另存为”的提示。

单击“确定”按钮将在原文件夹用原名称来保存工作簿，单击“取消”按钮则取消本次操作。

参考自：Office教程学习网