VBA: 如何使用代码密码保护模块？

Question

我有一个文件，它保存自己的副本以发送给某些收件人，因此您最终会得到许多仅包含收件人特定信息的文件和包含所有信息的原始 master 文件。制作特定于收件人的文件时，我有代码删除除与该收件人相关的信息以外的所有内容，并使用以下函数使用随机创建的密码锁定工作簿和工作表：

Function Pwd(iLength As Integer) As String
Dim i As Integer, iTemp As Integer, bOK As Boolean, strTemp As String
'48-57 = 0 To 9, 65-90 = A To Z, 97-122 = a To z
'amend For other characters If required
For i = 1 To iLength
    Do
        iTemp = Int((122 - 48 + 1) * Rnd + 48)
        Select Case iTemp
        Case 48 To 57, 65 To 90, 97 To 122: bOK = True
        Case Else: bOK = False
        End Select
    Loop Until bOK = True
    bOK = False
    strTemp = strTemp & Chr(iTemp)
Next i
Pwd = strTemp
End Function

是否可以同时锁定模块以使其无法编辑？我想要的是 Excel 通过转到工具 -> VBAProject - 项目属性 -> 保护在 Visual Basic 中提供的相同功能，但要通过代码执行此操作，以便它可以应用于每个特定的收件人文件。

我可以使用如下代码对工作表应用保护：

Sheets(1).Protect Password, True, True

以及代码如下的工作簿：

ActiveWorkbook.Protect Password, True, False

但是有什么东西可以用来锁定模块吗？

Answer 1

尽管已经给出了关于 Excel passwords/protection 安全性的好建议，以及 Carl Colijn 链接的综合 (non-SendKeys) 解决方案，但我自己使用了肮脏的 SendKeys 方法取得了一些成功 - 请参阅下面的示例，以及 here 以获取有关 SendKeys 的更多详细信息。 YMMV等

请注意，您必须在 Excel 信任中心 > 宏设置中找到选项 "Trust access to the VBA project object model"，或与您的 Excel

版本等效的选项

Sub UnprotectVBProj(ByRef WB As Workbook, ByVal Pwd As String)

    Dim vbProj As Object

    Set vbProj = WB.VBProject

    If vbProj.Protection <> 1 Then Exit Sub ' already unprotected

    Set Application.VBE.ActiveVBProject = vbProj

    SendKeys "%TE" & Pwd & "~~"

End Sub

Sub ProtectVBProj(ByRef WB As Workbook, ByVal Pwd As String)

    Dim vbProj As Object

    Set vbProj = WB.VBProject

    If vbProj.Protection = 1 Then Exit Sub ' already protected

    Set Application.VBE.ActiveVBProject = vbProj

    SendKeys "%TE+{TAB}{RIGHT}%V%P" & Pwd & "%C" & Pwd & "{TAB}{ENTER}"

End Sub

VBA: 如何使用代码密码保护模块？

VBA: How can I password protect modules using code?

vba

excel

security

password-protection