vba - 使用密码取消保护工作表，而不在宏中暴露密码

Question

我最近开始在 Excel 中编写一些宏。我有一个受保护的工作表和一些按钮，允许用户在电子表格的某个点添加/删除列/行。

我目前取消保护工作表，执行功能，然后保护工作表。

问题是，受保护的工作表密码在宏中是纯文本的，任何好奇的眼睛都可以看到。

如何在工作表上设置密码来保护它，但同时允许我的宏在执行其功能时取消保护电子表格，然后重新保护它，而不在宏中输入明文密码？

Answer 1

两种选择：

1. 密码保护 VBA。（虽然 VBA 保护远不能防止恶意意图，但它并不比工作表保护的安全性差）

2. 如果您使用 VBA 设置工作表保护，您可以指定UserInterfaceOnly:=True.

   sh.Protect Password:="Password", UserInterfaceOnly:=True

   一旦以这种方式设置，VBA 代码可以在不提供密码的情况下修改工作表。由于必须提供一次密码才能首先应用保护，因此请从单独的工作簿或您自己保留的插件中运行此代码。

Answer 2

您可以调用 aUserForm来处理密码提示，但使用PasswordChar作为文本框属性来屏蔽字符。

Answer 3

不久前我发现了一些代码，这可能会有所帮助。这将解锁任何受密码保护的工作表。这需要一点时间，具体取决于密码的长度，但本质上它只是用大锤敲门，然后解锁工作表。可能不是对您的问题最有效的答案，但它仍然是一个有用的代码。

Sub PasswordBreaker()
    'Breaks worksheet password protection.
    Dim i As Integer, j As Integer, k As Integer
    Dim l As Integer, m As Integer, n As Integer
    Dim i1 As Integer, i2 As Integer, i3 As Integer
    Dim i4 As Integer, i5 As Integer, i6 As Integer
    On Error Resume Next
    For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
    For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
    For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
    For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
    ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
        Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
        Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
    If ActiveSheet.ProtectContents = False Then
        MsgBox "One usable password is " & Chr(i) & Chr(j) & _
            Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
            Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
         Exit Sub
    End If
    Next: Next: Next: Next: Next: Next
    Next: Next: Next: Next: Next: Next
End Sub