通过c#禁用Excel中的VBA保存功能

我得到了一个功能，我需要保护在服务器上上传的Excel文件，在那里它不能被编辑甚至保存。为了实现这一点，我以编程方式保护文件，并添加了一些VBA代码限制用户可以使用它做什么。VBA代码函数假设有2个功能，它可以隐藏Ribbon和防止Save/ savea 函数。你可以参考我的代码，我有3个版本的VBA代码里面，但最希望的是没有。里面有3个VBA代码。这是我的函数，我将把文件位置以字符串形式传递给这个函数。我希望有人能帮助我如何让程序保存安全的Excel文件(使用VBA代码3号)。据我所知，由于 save (不是savea)部分的VBA代码不允许这行wbkExcel.Save()继续进行，我无法保存它。

• 您可以在Excel文件中测试VBA代码，看看它是否有效(测试为我工作到目前为止…)

提前感谢大家…

protected void ExcelEncryptor(string strExcelFile)
{
    Microsoft.Office.Interop.Excel.Application wAppExcel = new Microsoft.Office.Interop.Excel.Application();
    wAppExcel.Interactive = false;
    wAppExcel.Visible = true;
    wAppExcel.DisplayAlerts = false;
    wAppExcel.AutomationSecurity = Microsoft.Office.Core.MsoAutomationSecurity.msoAutomationSecurityForceDisable;
    Microsoft.Office.Interop.Excel.Workbook wbkExcel = wAppExcel.Workbooks.Open(strExcelFile.ToString(),System.Reflection.Missing.Value,System.Reflection.Missing.Value,System.Reflection.Missing.Value,System.Reflection.Missing.Value,System.Reflection.Missing.Value,System.Reflection.Missing.Value,System.Reflection.Missing.Value,System.Reflection.Missing.Value,System.Reflection.Missing.Value,System.Reflection.Missing.Value,System.Reflection.Missing.Value,System.Reflection.Missing.Value,System.Reflection.Missing.Value,System.Reflection.Missing.Value);
    string strVBCode = string.Empty;
    //To hide Ribbon only
    /*strVBCode = "Private Sub Workbook_Open()'r'n" +
                "     msgbox '"This document is protected!'"'r'n" +
                "     application.ExecuteExcel4Macro '"show.toolbar('"'"Ribbon'"'",False)'"'r'n" +
                "End Sub";*/
    //To hide Ribbon + Disable SaveAs (F12 key) but still can Save (Ctrl+S key)
    /*strVBCode = "Private Sub Workbook_Open()'r'n" +
              "     msgbox '"This document is protected!'"'r'n" +
              "     application.ExecuteExcel4Macro '"show.toolbar('"'"Ribbon'"'",False)'"'r'n" +
              "End Sub'r'n" +
              "Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)'r'n" +
              "     If (SaveAsUI = True) Then'r'n" + 
              "         msgbox '"You are not allowed to save this document!'"'r'n" + 
              "         Cancel = True'r'n" + 
              "     End If'r'n" + 
              "End Sub";*/
    //To hide Ribbon + Disable SaveAs (F12 key) and cannot Save (Ctrl+S key)
    strVBCode = "Option Explicit'r'n" +
                "Dim SaveByCode As Boolean'r'n" +
                "Const msg As String = '"You are not allowed to save this document!'"'r'n" +
                "Const ttl As String = '"This document is protected!'"'r'n" +
                "Private Sub Workbook_Open()'r'n" +
                "     MsgBox msg, vbExclamation, ttl'r'n" +
                "     application.ExecuteExcel4Macro '"show.toolbar('"'"Ribbon'"'",False)'"'r'n" +
                "End Sub'r'n" + 
                "Private Sub Workook_BeforeClose(Cancel As Boolean)'r'n" +
                "   If Me.Saved = False And SaveByCode = False Then'r'n" +
                "       MsgBox msg, vbExclamation, ttl'r'n" +
                "       Cancel = True'r'n" +
                "   End If'r'n" +
                "End Sub'r'n" +
                "Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)'r'n" +
                "   Application.EnableEvents = False'r'n" +
                "   If SaveByCode = True Then'r'n" +
                "       SaveThisFile'r'n" +
                "   Else'r'n" +
                "       MsgBox msg, vbExclamation, ttl'r'n" +
                "       Cancel = True'r'n" +
                "   End If'r'n" +
                "   Application.EnableEvents = True'r'n" +
                "End Sub'r'n" +
                "Sub SaveThisFile()'r'n" +
                "   SaveByCode = True'r'n" +
                "   ThisWorkbook.Save'r'n" + 
                "End Sub";
    Microsoft.Vbe.Interop.VBProject vbMacro = wbkExcel.VBProject;
    Microsoft.Vbe.Interop.VBComponent vbCode = vbMacro.VBComponents.Item("ThisWorkBook");
    Microsoft.Vbe.Interop.CodeModule vbModule = vbCode.CodeModule;
    vbModule.AddFromString(strVBCode.ToString());
    wbkExcel.Protect("Pa$$w0rd!", true, false);
    foreach (Microsoft.Office.Interop.Excel.Worksheet wstExcel in wAppExcel.Worksheets)
    {
        wstExcel.Protect("Pa$$w0rd!", true, true, true, true, false, false, false, false, false, false, false, false, true, true, false);
    }
    wbkExcel.Save();
    wbkExcel.Close(System.Reflection.Missing.Value,System.Reflection.Missing.Value,System.Reflection.Missing.Value);
    Marshal.ReleaseComObject(wbkExcel);
    Marshal.ReleaseComObject(wAppExcel);
    GC.Collect();
}

    //Excel file will be password protected+cannot press F12 key+cannot press Ctrl+S key+cannot press Ctrl+P key anymore
    strVBCode = "Private Sub Workbook_Open()'r'n" +
              "     msgbox '"This document is protected!'"'r'n" +
              "     application.ExecuteExcel4Macro '"show.toolbar('"'"Ribbon'"'",false)'"'r'n" +
              "     ThisWorkbook.Saved = True'r'n" + 
              "     Application.OnKey '"^s'", '"'"'r'n" + 
              "     Application.OnKey '"^p'", '"'"'r'n" + 
              //Enable this line if you wish to block Visual Basic Editor
              //"     Application.OnKey '"%{F11}'", '"'"'r'n" + 
              "End Sub'r'n" +
              "Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)'r'n" +
              "     If (SaveAsUI = true) Then'r'n" +
              "         msgbox '"You are not allowed to save this document!'"'r'n" +
              "         Cancel = True'r'n" +
              "     Else'r'n" + 
              "         ThisWorkbook.Saved = True'r'n" + 
              "         Application.OnKey '"^s'", '"'"'r'n" + 
              "         Application.OnKey '"^p'", '"'"'r'n" + 
              //Enable this line if you wish to block Visual Basic Editor
              //"     Application.OnKey '"%{F11}'", '"'"'r'n" + 
              "     End If'r'n" +
              "End Sub";