[已解决]请vba大师帮忙修改代码

武林长风

这个登陆窗体的用户名是ABC，密码是123。现在想把它改为这样:当用户名是ZC，密码是321时，登陆后只能看到支出工作表；当用户名是QB时，密码是789时，则能看到所有操作的工作表。用户名、密码不要放在工作表里。请放在代码里。请大师帮忙修改一下，谢谢！！! 新建文件夹.rar (39.18 KB, 下载次数: 6)

2015-2-22 13:25 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2015-2-22 14:47

1. Private Sub CmdOk_Click()          '单击"确定"按钮的时候执行过程
   
2.     Dim sht As Worksheet
   
3.     Application.ScreenUpdating = False          '关闭屏幕更新
   
4.     Static i As Integer                         '声明一个变量
   
5.     '判断用户名和密码是否输入正确
   
6.     If CStr(User.Value) = "ABC" And CStr(Password.Value) = "123" Then
   
7.         Unload Me                              '关闭登录窗体
   
8.         Application.Visible = True             '显示Excel界面
   
9.     ElseIf CStr(User.Value) = "ZC" And CStr(Password.Value) = "321" Then
   
10.         '显示Excel界面
    
11. 
    
12.         Worksheets("支出").Visible = xlSheetVisible
    
13.         For Each sht In Worksheets
    
14.             If sht.Name <> "支出" Then sht.Visible = xlSheetVeryHidden
    
15.         Next
    
16.         Unload Me                              '关闭登录窗体
    
17.         Application.Visible = True             '显示Excel界面
    
18.     ElseIf CStr(User.Value) = "QB" And CStr(Password.Value) = "789" Then
    
19. 
    
20.         For Each sht In Worksheets
    
21.             sht.Visible = xlSheetVisible
    
22.         Next
    
23.         Sheet1.Visible = xlSheetVeryHidden
    
24.         Unload Me                              '关闭登录窗体
    
25.         Application.Visible = True
    
26.     Else
    
27.         i = i + 1             '密码或用户名输入错误一次，变量i加1
    
28.         If i = 3 Then         '如果输错三次执行下面的语句
    
29.             MsgBox "对不起，你无权打开工作薄！", vbInformation, "提示"
    
30.             ThisWorkbook.Close savechanges:=False            '关闭当前工作薄，不保存更改
    
31.         Else                        '如果输错不满三次，执行下面的语句
    
32.             MsgBox "输入错误，你还有" & (3 - i) & "次输入机会。", vbExclamation, "提示"
    
33.             User.Value = ""                 '清除文字框中的用户名
    
34.             Password.Value = ""             '清除文字框中的密码
    
35.         End If
    
36.     End If
    
37.     Application.ScreenUpdating = True           '开启屏幕更新
    
38. End Sub

复制代码

跳转到最佳答案楼层

武林长风

原表里的其它功能保留，只添加个权限方面的功能。

hwc2ycy

登陆窗体.rar (38.89 KB, 下载次数: 4)

2015-2-22 14:24 上传

点击文件名下载附件

这样扩展性太差了。

武林长风

hwc2ycy 发表于 2015-2-22 14:24
这样扩展性太差了。

有一点小问题：当用户名是QB、密码是789时，登陆后，sheet1不要显示。sheet1是在禁用宏时显示的。

hwc2ycy

武林长风 发表于 2015-2-22 14:27
有一点小问题：当用户名是QB、密码是789时，登陆后，sheet1不要显示。sheet1是在禁用宏时显示的。

这个小问题自己试着改下，这样才会有进步。

武林长风

hwc2ycy 发表于 2015-2-22 14:29
这个小问题自己试着改下，这样才会有进步。

可对不懂vba的人来说是个大问题。

hwc2ycy

1. Private Sub CmdOk_Click()          '单击"确定"按钮的时候执行过程
   
2.     Dim sht As Worksheet
   
3.     Application.ScreenUpdating = False          '关闭屏幕更新
   
4.     Static i As Integer                         '声明一个变量
   
5.     '判断用户名和密码是否输入正确
   
6.     If CStr(User.Value) = "ABC" And CStr(Password.Value) = "123" Then
   
7.         Unload Me                              '关闭登录窗体
   
8.         Application.Visible = True             '显示Excel界面
   
9.     ElseIf CStr(User.Value) = "ZC" And CStr(Password.Value) = "321" Then
   
10.         '显示Excel界面
    
11. 
    
12.         Worksheets("支出").Visible = xlSheetVisible
    
13.         For Each sht In Worksheets
    
14.             If sht.Name <> "支出" Then sht.Visible = xlSheetVeryHidden
    
15.         Next
    
16.         Unload Me                              '关闭登录窗体
    
17.         Application.Visible = True             '显示Excel界面
    
18.     ElseIf CStr(User.Value) = "QB" And CStr(Password.Value) = "789" Then
    
19. 
    
20.         For Each sht In Worksheets
    
21.             sht.Visible = xlSheetVisible
    
22.         Next
    
23.         Sheet1.Visible = xlSheetVeryHidden
    
24.         Unload Me                              '关闭登录窗体
    
25.         Application.Visible = True
    
26.     Else
    
27.         i = i + 1             '密码或用户名输入错误一次，变量i加1
    
28.         If i = 3 Then         '如果输错三次执行下面的语句
    
29.             MsgBox "对不起，你无权打开工作薄！", vbInformation, "提示"
    
30.             ThisWorkbook.Close savechanges:=False            '关闭当前工作薄，不保存更改
    
31.         Else                        '如果输错不满三次，执行下面的语句
    
32.             MsgBox "输入错误，你还有" & (3 - i) & "次输入机会。", vbExclamation, "提示"
    
33.             User.Value = ""                 '清除文字框中的用户名
    
34.             Password.Value = ""             '清除文字框中的密码
    
35.         End If
    
36.     End If
    
37.     Application.ScreenUpdating = True           '开启屏幕更新
    
38. End Sub

复制代码

武林长风

hwc2ycy 发表于 2015-2-22 14:47

谢谢您的热心与耐心！！！