防止Excel修改 --- 禁止另存新檔 (1)

各位是否有經驗遇到過Excel檔案無法另存新檔情況呢?這部分一般有2種方式可以達成，一為使用VBA程式的限制、二為直接修改檔案的屬性，以下就先介紹程式方法來限制使用者另存新檔。
在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

以上的做法僅防君子，無法防止高手的破解，可供各位參考。