Private Sub CommandButton1_Click()
    If InputBox("请输入密码：") <> "123" Then  '密码是123
        MsgBox "密码错误,按确定退出!", 64, "提示"
        Exit Sub
    End If
    Cells(1, 1) = 10
End Sub
Sub 执行前需要验证密码的宏()
    If InputBox("请输入您的使用权限:", "系统提示") = 123 Then
        重排窗口   '要执行的宏代码或宏名称
    Else
        MsgBox "对不起,您没有使用该宏的权限,按确定键后退出!"
    End If
End Sub

Private Sub CommandButton1_Click()
    If InputBox("请输入密码：") <> "123" Then  '密码是123
        MsgBox "密码错误,按确定退出!", 64, "提示"
        Exit Sub
    End If
    Cells(1, 1) = 10
End Sub
Sub 执行前需要验证密码的宏()
    If InputBox("请输入您的使用权限:", "系统提示") = 123 Then
        重排窗口   '要执行的宏代码或宏名称
    Else
        MsgBox "对不起,您没有使用该宏的权限,按确定键后退出!"
    End If
End Sub