用户登陆界面设置问题

qq346211400

代码如下

Private Sub Worksheet_Activate()
UserForm.Show
End Sub

Dim ljf As String
Dim pjy As String

Private Sub CommandButton1_Click()        ’登陆命令按钮设置
     If TextBox1.Text = "840511" And ComboBox1.Text = "pjy" Then
          userform1.Hide
          TextBox1.Text = ""
          ComboBox1.Text = ""
     ElseIf TextBox1.Text = "" Then
          MsgBox "密码不能为空"
     ElseIf TextBox1.Text <> "840511" Then
           MsgBox "密码不正确，请重新输入"
     End If
End Sub

Private Sub CommandButton2_Click()   ‘重置命令按钮代码
     ComboBox1.Text = ""
     TextBox1.Text = ""
End Sub

Private Sub UserForm_Initialize()
     Worksheets_Activate
     ComboBox1.AddItem "LinJianFeng"
     ComboBox1.AddItem "PanJiYing"
     TextBox1.PasswordChar = "*"
End Sub

登陆界面密码输对了，但是窗体不消失
把工作簿关了，重新打开，窗体不显示，还提示userform没定义，我定义为变体，还是没办法 哪个专家帮帮我呀

qq346211400

希望哪个比较厉害的朋友加我QQ346211400
我制作用户登陆界面出现了问题，我解决不了！

qq346211400

我上传了文件，内含窗体及代码，希望高手给我指点下迷津！

yuanzhuping

Private Sub CommandButton1_Click()
    If TextBox1.Value = "840511" Then 'And ComboBox1.Text = "pjy" Then
        Unload 用户登陆系统
    ElseIf TextBox1.Text = "" Then
        MsgBox "密码不能为空"
    Else
        MsgBox "密码不正确，请重新输入"
    End If
End Sub

'And ComboBox1.Text = "pjy" Then 这是什么意思？按你的代码窗体永远不会关闭。

qq346211400

那个是复合框的下拉列表里选择的用户名！您有下载文件吗

qq346211400

遇到这种问题，真的很头疼，明明代码看起来没什么问题！但是我输入正确的密码，他还老提示请输入正确的密码，进不了工作表！
难道text.password.char="*"
会影响显示出来的text.text="840511"吗

qq346211400

版主，快来99我呀，快出现啊 我急！

qq346211400

版主，快来99我呀，快出现啊 我急！

qq346211400

难道真的没人能解吗！

qq346211400

高手快出来解答！！！