Vba 如何在按钮中实现密码

我有一个按钮可以锁定或解锁带有子窗体的窗体。要启用该按钮，我想使用msgbox设置密码。但我的代码中有一个问题

我首先使用代码显示带有条件的密码msgbox，如果密码正确，用户将锁定/解锁表单。但我以错误的地方的陈述结束

Private Sub bloquear_Click()
    With Me.bloquear
        Dim strPasswd
        strPasswd = InputBox("Enter Password", "Restricted Form")

        If strPasswd = "" Or strPasswd = Empty Then
            MsgBox "No Input Provided", vbInformation, "Required Data"
            Exit Sub
        End If

        If strPasswd = "Password" Then
            If .Caption = "Unlock" Then
                Me.AllowAdditions = True
                Me.AllowEdits = True
                Me.CONSULTA_PRODUCTOS.Form.AllowAdditions = True
                Me.CONSULTA_PRODUCTOS.Form.AllowEdits = True
               .Caption = "Lock"
            Else
                Me.AllowAdditions = False
                Me.AllowEdits = False
                Me.CONSULTA_PRODUCTOS.Form.AllowAdditions = False
                Me.CONSULTA_PRODUCTOS.Form.AllowEdits = False
                .Caption = "Unlock"
                Me.Refresh
            End If

    End With
        Else
            MsgBox "Sorry, you do not have access to this form", _
               vbOKOnly, "Important Information"
            Exit Sub
        End If

End Sub

msgbox显示

编译错误，以结束

我不知道出了什么问题，因为有一个问题

---

谢谢

始终正确地缩进/格式化代码，您将立即看到问题所在。如果块关闭，则

以

结尾会出现在

之前。相反，它必须在
end Sub
之前的最末端。您首先打开的块（在这里与我一起
。bloquear
）总是需要最后关闭。正确的缩进可以让你的生活轻松很多。一开始它可能看起来很麻烦/不必要，但它为您节省了大量维护代码的时间，并且减少了错误好的代码首先是一种易于人类阅读的代码（因为这会减少错误）。有没有办法用星号代替字母来隐藏代码中的密码？没有，不是用
InputBox
，因此您需要创建自己的用户表单。看见