VBA 设置用户名密码

我爱你_浮浮沉〃

用以下代码编的用户名 密码 没效果，在输入用户名，密码界面直接点击取消，照样可以编辑表格 保存...求指点
Private Sub Workbook_Open()
    Dim Yfm As String
    Dim Mima As String
    Yfm = "123456"
    Mima = "456123"
    t = InputBox("请输入用户名", "")
    If t <> Yfm Then
        MsgBox "用户名错误！"
        Exit Sub
    End If
    t1 = InputBox("请输入密码")
    If t1 <> Mima Then
        MsgBox "您的密码错误！"
        Exit Sub
    End If
    Sheet1.Select
End Sub

ctp_119

Private Sub Workbook_Open()
    Dim Yfm As String
    Dim Mima As String
    Yfm = "123456"
    Mima = "456123"100:
    t = InputBox("请输入用户名", "")
    If t <> Yfm Then
        MsgBox "用户名错误！"
       goto 100
    End If
10:
    t1 = InputBox("请输入密码")
    If t1 <> Mima Then
        MsgBox "您的密码错误！"
        goto 10
    End If
    Sheet1.Select
End Sub

ctp_119

Private Sub Workbook_Open()
    Dim Yfm As String
    Dim Mima As String
    Yfm = "123456"
    Mima = "456123"
    t = InputBox("请输入用户名", "")
    If t <> Yfm Then
        MsgBox "用户名错误！"
    thisworkbook.close true
    End If
    t1 = InputBox("请输入密码")
    If t1 <> Mima Then
        MsgBox "您的密码错误！"
        thisworkbook.close true
    End If
    Sheet1.Select
End Sub


提供两种解决问题的方法，供你选择。

傍海听风

Private Sub Workbook_Open()

    Dim Yfm As String
    Dim Mima As String
    Yfm = "123456"
    Mima = "456123"
    t = InputBox("请输入用户名", "")
    If t <> Yfm Then
   
    MsgBox "用户名错误！"
        
        Worksheets.Select
            
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
   
        ActiveWindow.Close
        
        Exit Sub
        
    End If
   
   
    t1 = InputBox("请输入密码")
    If t1 <> Mima Then
        MsgBox "您的密码错误！"
        
        Worksheets.Select
            
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
   
        ThisWorkbook.Close
        
        
        Exit Sub
    End If
   
    Sheet1.Select
  
   
End Sub

我爱你_浮浮沉〃

傍海听风 发表于 2013-4-6 14:11
Private Sub Workbook_Open()

    Dim Yfm As String

我利用完整的教程制作了登录窗口，为什么总是密码错误？

我爱你_浮浮沉〃

ctp_119 发表于 2013-4-6 13:21
Private Sub Workbook_Open()
    Dim Yfm As String
    Dim Mima As String[/ ...

我利用完整的教程制作了登录窗口，为什么总是密码错误？

ctp_119

我爱你_浮浮沉〃 发表于 2013-4-6 14:16
我利用完整的教程制作了登录窗口，为什么总是密码错误？

上传附件吧，这样不好调试。

傍海听风

Private Sub Workbook_Open()
    Dim Yfm As String
    Dim Mima As String
    Yfm = "123456"
    Mima = "456123"
   

i = 1

100:

    t = InputBox("请输入用户名", "")
    If t <> Yfm Then
        MsgBox "用户名错误！"
        
    i = i + 1
   
    If i = 4 Then GoTo 200
        
    GoTo 100
      
    End If
   
j = 1
   
10:
    t1 = InputBox("请输入密码")
    If t1 <> Mima Then
        MsgBox "您的密码错误！"
        
   j = j + 1
   
    If j = 4 Then GoTo 200
        
    GoTo 10
        
    End If
   
    GoTo 500

200:

ThisWorkbook.Close True

Exit Sub

500:
   
Sheet1.Select
        
End Sub

我爱你_浮浮沉〃

ctp_119 发表于 2013-4-6 14:18
上传附件吧，这样不好调试。

已经上传，感谢帮忙哈

ctp_119

我爱你_浮浮沉〃 发表于 2013-4-6 14:45
已经上传，感谢帮忙哈

你怎么用WPS呀，wps可能不支持vba的。