VBA根据不同账号登录显示不同工作表的问题

qwwqExcel

账号如下，窗体右键退出


我在调试界面执行代码，根据不同账号登录后显示不同的工作表是有效的，但在实际登录后却是无效的，
以下是部分代码，具体见附件，麻烦各位老师看下是什么问题，有什么好的方法能使之有效，谢谢各位老师！


                    For Each Sheet In ThisWorkbook.Sheets

                        If .Range("D" & I).Value = "超级管理员" Then
                            passWs.Visible = True '显示全部表单
                        Else
                        
                        If .Range("D" & I).Value = "管理员" Then
                            Sheets("数据").Visible = False
                        Else
                        
                        If .Range("D" & I).Value = "普通用户" Then
                            Sheets("设置").Visible = False
                            Sheets("数据").Visible = False
                        End If
                        End If
                        End If
                    Next

nihao123456789

首先去vba里面把表都隐藏了（2-xsheetveryhidden），然后Workbook_Open，Workbook_BeforeClose事件中加上代码，VBA工程加密并保存。
①禁用宏的人打开，看不到表（隐藏了）
②启用宏的人打开，运行Workbook_Open事件输入账号密码，关闭时运行Workbook_BeforeClose事件重新隐藏sheet并强制保存。
看起来完美了！！！
BUT，如果先启用宏的打开，输入密码后再禁用宏并保存。这样sheet就没有被隐藏，下次谁打开都可以看到了。总结来说，这个功能没办法做到完善。除非联网，去服务器请求数据。单机感觉玩不转。

iu950

在Workbook_Open事件中，除了sheet1，貌似其他工作表都被设置为可视状态了

nihao123456789

内容重复了。

qwwqExcel

iu950 发表于 2022-11-17 15:18
在Workbook_Open事件中，除了sheet1，貌似其他工作表都被设置为可视状态了

一语惊醒梦中人，为了调表方便，忘记改回去了，
sh.Visible = xlSheetVisible忘记改为sh.Visible = xlSheetVeryHidden
貌似代码没问题，窗体启动放下来，去掉sheet1的显示就正常了

WANT-T

好好学习，天天向上，祝工作顺利天天开心，好人一生平安

02761752696

WANT-T 发表于 2022-11-17 15:54
好好学习，天天向上，祝工作顺利天天开心，好人一生平安

好好学习，天天灌水

WANT-T

02761752696 发表于 2022-11-17 16:33
好好学习，天天灌水

这个东西，不适合他来搞，插眼就走