在ThisWorkbook中,加入以下的程式碼到workbook_BeforeSave事件中。
仁慈的作法,還可以讓使用者用原始檔案儲存。
Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If SaveAsUI = True Then If MsgBox("該工作簿不允許用另存新檔來保存,你要用原工作簿名稱來保存嗎?", vbQuestion + vbOKCancel) = vbOK Then ThisWorkbook.Save End If Cancel = True End If End Sub
強勢做法,完全不讓使用者可以針對修改的部分進行存檔。
Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If SaveAsUI = True Then ThisWorkbook.Saved = flase Cancel = True End If End Sub
以上的做法僅防君子,無法防止高手的破解,可供各位參考。