如何通过C#实现Excel VBA工程的查看锁定？

Got it! You're already using Interop.Excel to import VBA modules into your Excel file, and now you want to lock the VBA project to prevent viewing—totally get why that's important for protecting your code. The bad news is that the Microsoft.Office.Interop.Excel and Vbe.Interop libraries don't expose a direct API for setting the VBA project password, but there are a couple of reliable workarounds to make this happen.

Recommended Approach: Inject & Execute VBA Code #

Since VBA itself has native support for setting project passwords, we can dynamically inject a temporary VBA module that sets the password, run it, then clean up the temporary module. Here's how to implement it:

Step-by-Step Code Implementation #

using Excel = Microsoft.Office.Interop.Excel;
using VBProject = Microsoft.Vbe.Interop.VBProject;
using VBComponent = Microsoft.Vbe.Interop.VBComponent;
using System.Reflection;
using System;

// Your existing code to initialize the workbook
Excel.Workbook xlWorkBook;
// Import your target module
xlWorkBook.VBProject.VBComponents.Import(AppDomain.CurrentDomain.BaseDirectory + "\\Module1.Bas");

// --- VBA Project Lock Logic ---
string vbaProtectionPassword = "YourSecurePassword123!"; // Replace with your strong password
VBComponent tempPasswordModule = null;

try
{
    // 1. Create a temporary standard module
    tempPasswordModule = xlWorkBook.VBProject.VBComponents.Add(
        Microsoft.Vbe.Interop.vbext_ComponentType.vbext_ct_StdModule
    );
    tempPasswordModule.Name = "Temp_PasswordSetter";

    // 2. Write VBA code to lock the project
    string passwordSetupCode = $@"
Sub LockVBProject()
    Dim targetProj As VBProject
    Set targetProj = ThisWorkbook.VBProject
    ' Set password and lock the project
    targetProj.Password = ""{vbaProtectionPassword}""
    targetProj.Protection = vbext_pp_locked
End Sub";
    tempPasswordModule.CodeModule.AddFromString(passwordSetupCode);

    // 3. Execute the VBA macro to apply the lock
    xlWorkBook.Application.Run("Temp_PasswordSetter.LockVBProject");
}
finally
{
    // 4. Clean up: Delete the temporary module
    if (tempPasswordModule != null)
    {
        xlWorkBook.VBProject.VBComponents.Remove(tempPasswordModule);
    }
    // 5. Save the workbook to persist the lock
    xlWorkBook.Save();
}

// Rest of your workbook cleanup code...

Key Notes for This Method #

• Excel Trust Settings: Ensure Excel's Trust Center allows macro execution (otherwise the injected code won't run). For non-interactive environments, you may need to adjust group policy or registry settings to lower macro security temporarily.
• Password Security: Use a strong, unique password to avoid brute-force attacks.
• Unlocking Later: If you need to modify the VBA project programmatically later, unlock it first with this snippet:

  // Unlock VBA project
  xlWorkBook.VBProject.Password = vbaProtectionPassword;
  xlWorkBook.VBProject.Protection = Microsoft.Vbe.Interop.vbext_Protection.vbext_pp_none;
  

Alternative: Direct Binary Manipulation (Advanced) #

For scenarios where you can't enable macros, you could directly modify the Excel file's binary structure to set the VBA project password. This is far more complex (requires parsing OLE compound files) and error-prone, so it's only recommended if the first method isn't feasible.

内容的提问来源于stack exchange，提问作者Azeem Anwar