Excel用VBA防范使用“另存為”來(lái)保存工作簿

如果某個(gè)工作簿需要由多人合作，分不同的階段完成，為了避免其中的某個(gè)用戶將文件另存為其他文件名而影響下一個(gè)使用者，可以用VBA代碼禁止用戶使用“另存為”來(lái)保存工作簿。方法如下：

??? 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("該工作簿不允許用“另存為”來(lái)保存，" & _
??? "你要用原工作簿名稱來(lái)保存嗎？ ", vbQuestion + vbOKCancel)
??? Cancel = (response = vbCancel)
??? If Cancel = False Then Me.Save
??? Cancel = True
??? End If
??? End Sub

??? 2.關(guān)閉VBA編輯器，保存工作簿。如果是Excel 2007，需保存為xlsm格式。

??? 這樣，該工作簿只允許通過“保存”命令來(lái)保存，當(dāng)執(zhí)行“文件→另存為”命令時(shí)，將出現(xiàn)不允許使用“另存為”的提示。

???

??? 單擊“確定”按鈕將在原文件夾用原名稱來(lái)保存工作簿，單擊“取消”按鈕則取消本次操作。