使用密码取消保护表，而不在宏中显示密码

Question

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

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

问题是，受保护的表格密码是宏中的纯文本，供任何好奇的人看。

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

Answer 1

两个选项：

1. 密码保护VBA。 （虽然VBA保护远远不能抵御恶意，但它并不比表单保护的安全性差）

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

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

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

Answer 2

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

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

Answer 3

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