如何实现带密码验证的UserForm并显示工作表指定按钮？

1. 实现密码验证后显示工作表按钮 #

直接在UserForm2的OK按钮点击事件中编写验证逻辑，验证通过后显示目标按钮并关闭窗体：

Private Sub OK_Click()
    ' 预设密码（注意大小写，此处与输入框内容严格匹配）
    Const CORRECT_PWD As String = "admin"
    
    ' 验证输入的密码
    If Me.PASSWORD.Value = CORRECT_PWD Then
        ' 验证通过，显示四个工作表按钮
        ' 替换为你的实际工作表名称和按钮名称
        With ThisWorkbook.Worksheets("Sheet1")
            .CommandButton2.Visible = True
            .CommandButton3.Visible = True
            .CommandButton4.Visible = True
            .CommandButton5.Visible = True
        End With
        
        ' 关闭并卸载窗体
        Unload Me
    Else
        ' 密码错误提示
        MsgBox "密码错误，请重试", vbExclamation, "验证失败"
        ' 清空输入框并聚焦，方便重新输入
        Me.PASSWORD.Value = ""
        Me.PASSWORD.SetFocus
    End If
End Sub

2. 标准Excel按钮的隐藏/显示可行性 #

分三类按钮说明：

• 表单控件按钮（Form Control）：这类按钮没有Visible属性，无法直接设置隐藏/显示。如果坚持使用，只能通过将按钮放在隐藏单元格区域，或者删除后重新添加（操作繁琐，不推荐）。
• ActiveX控件CommandButton：支持Visible属性，直接设置.Visible = True/False即可控制显示隐藏，是最优选择。
• 形状按钮（Shape）：若为插入的形状绑定了宏，可通过Shapes("形状名称").Visible = msoTrue/msoFalse控制显示隐藏。

建议优先改用ActiveX控件的CommandButton，操作更直接高效。

3. 适配在线找到的LOGIN代码 #

你找到的代码是独立的Sub，但实际需要把逻辑整合到UserForm的OK按钮点击事件中（即第一部分的代码逻辑），原因如下：

• 原代码通过UserForm2.PASSWORD.Value读取输入，但窗体默认是模态显示，独立Sub无法自动触发，必须绑定到按钮点击事件。
• 原代码核心逻辑是「密码比对→错误提示→正确则关闭窗体」，你只需在验证通过的分支里添加「显示按钮」的代码即可。

如果想忽略大小写验证，可以用UCase()统一转大写：

If UCase(Me.PASSWORD.Value) = UCase(CORRECT_PWD) Then
    ' 验证通过逻辑
End If

初始隐藏按钮的补充设置 #

为让四个按钮默认隐藏，可在ThisWorkbook的Workbook_Open事件中添加代码：

Private Sub Workbook_Open()
    With ThisWorkbook.Worksheets("Sheet1")
        .CommandButton2.Visible = False
        .CommandButton3.Visible = False
        .CommandButton4.Visible = False
        .CommandButton5.Visible = False
    End With
End Sub

内容的提问来源于stack exchange，提问作者Seb358