带有SendKeys的VBA项目密码保护无法正常工作

Question

我花了最后两天的时间来解决这个问题。 我在该主题上找到的大多数内容都无法解决我遇到的问题，因此我希望这里有人可以帮助我。

我一直在研究一些代码，这些代码可以从“主记分卡”工作簿中执行以下操作：

1. 获取工作簿中的每个“学生”工作表，然后将其复制到新的工作簿中，
2. 对新工作簿做了一些小的操作，
3. 将代码模块导入新工作簿中，
4. 将Workbook_Open事件和Workbook_BeforeClose事件添加到新工作簿中（根据访问级别将某些工作表设为xlVeryHidden ），
5. 从新导入的模块运行子过程，
6. 保存并关闭工作簿。

每个计分卡都使用代码来确保只有名称在计分卡上的人才能访问它。 我已经在工作簿事件中使用Environ("username")来确保安全性，但是众所周知，如果一个人知道如何运行宏，他/她只能打开VBEditor并取消隐藏工作簿中的xlVeryHidden工作表。容易。

因此，我的想法是以编程方式用密码保护新工作簿的VBAProject （请参见上文：第五步）。 我在线上找到了一些有关如何使用SendKeys实现此目标的资源（请参阅下文），但是SendKeys不够可靠（充其量），并且与我的代码不配合。 如果我自己运行该代码，则它的工作方式就像一个Run Macro:="filename!macroname" ，但是如果我使用Run Macro:="filename!macroname"从另一个项目中调用它，则不会设置保护。 运行代码并创建所有工作簿后，先前代码中的VBAProject属性窗口将全部打开，并尝试同时执行，这会使Excel崩溃。

Sub LockVBAProject()

Const VBAProjectPassword As String = "123"
Dim VBP As VBProject, openWin As VBIDE.Window
Dim wbActive As Workbook
Dim i As Integer
    Set wbActive = ActiveWorkbook
    Set VBP = wbActive.VBProject
    Application.ScreenUpdating = False
        ' close any code windows to ensure we hit the right project
        For Each openWin In VBP.VBE.Windows
            If InStr(openWin.Caption, "(") > 0 Then openWin.Close
        Next openWin
        wbActive.Activate
With Application
    '//execute the controls to lock the project\\
    .VBE.CommandBars("Menu Bar").Controls("Tools") _
        .Controls("VBAProject Properties...").Execute
    '//activate 'protection'\\
    .SendKeys "^{TAB}"
    '//CAUTION: this either checks OR UNchecks the\\
    '//"Lock Project for Viewing" checkbox, if it's already\\
    '//been locked for viewing, then this will UNlock it\\
    .SendKeys "{ }"
    '//enter password\\
    .SendKeys "{TAB}" & VBAProjectPassword
    '//confirm password\\
    .SendKeys "{TAB}" & VBAProjectPassword
    '//scroll down to OK key\\
    .SendKeys "{TAB}"
    '//click OK key\\
    .SendKeys "{ENTER}"
    'the project is now locked - this takes effect
    'the very next time the book's opened...
    End With


ThisWorkbook.SaveAs Filename:=Sheets(Sheets.Count).Name, FileFormat:=xlOpenXMLWorkbookMacroEnabled

Debug.Print "It Worked " & Now()

End Sub

我不确定为什么会这样。 就像我说的那样，代码单独运行时效果很好。 我找到了这篇文章 ，其中概述了与非SendKeys方法的链接 ，但是它是几年前编写的，由于我从未在VB6中编写过代码，因此我不确定出于我的目的需要对其进行修改。 。

关于为什么在代码已经运行之后而不是在代码执行期间应该执行的情况下，为什么SendKeys方法会堆积起来，是否有任何想法？ 我应该放弃SendKeys来支持其他方法吗？ 我很茫然，所以任何帮助将不胜感激！

编辑：我认为代码不起作用的原因是因为执行SendKeys代码时未激活正确的项目。 我曾希望激活适当的工作簿能够解决此问题，但似乎没有帮助。

Answer 1

好的，因此在经过两个小时的网络搜索以实现我的目标的替代方法之后，我偶然发现了这篇文章 。

我创建了一个模板工作簿（事件代码已经在ThisWorkbook ），用密码保护了该项目，并修改了我的代码以将模板工作簿用于每个新工作表。 现在，在创建图纸后，该项目已被锁定以供查看，并且需要密码。 尽管我意识到这种方法下的安全性不是很安全，但可以帮助他们“诚实地诚实”。

对于那些偶然发现这篇文章但仍希望以编程方式锁定/解锁其VBA项目的人，请参阅以下资源：

这样的帖子
这个博客

两者都是很好的资源，它们都介绍了在VBA中进行操作的方法。

Answer 2

要为原本发布在此处的精美代码增加一些细微差别：如果您在VBE中更改工作簿的项目名称，则需要将一行代码更改为：

   .VBE.CommandBars("Menu Bar").Controls("Tools") _
        .Controls(VBP.Name & " Properties...").Execute

（叹）