如果某個工作簿需要由多人合作，分不同的階段完成，為了避免其中的某個用戶將文件另存為其他文件名而影響下一個使用者，可以用VBA代碼禁止用戶使用“另存為”來保存工作簿。方法如下：
1.按Alt+F11，打開VBA編輯器，在“工程”窗口中雙擊“ThisWorkBook”，在右側(cè)的代碼窗口中輸入下列代碼：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 Sub2.關(guān)閉VBA編輯器，保存工作簿。如果是Excel 2007，需保存為xlsm格式。這樣，該工作簿只允許通過“保存”命令來保存，當(dāng)執(zhí)行“文件→另存為”命令時，將出現(xiàn)不允許使用“另存為”的提示。 單擊“確定”按鈕將在原文件夾用原名稱來保存工作簿，單擊“取消”按鈕則取消本次操作。
