按照常规做法EXCEL VBA 登陆界面形同虚设（已解决，有视频）

飞牛冲

最近根据常规编制了一个登陆界面。

结果拿到一台禁用宏的电脑，自动就跳过登陆，进入sheet了
太尴尬了

有没有一种方法：
如果电脑禁用宏，就打不开文件？这样保密性能稍微好点

代码如下：

Private Sub CommandButton1_Click()
  Static i  '声明一个静态变量
  If Len(TextBox1) = 0 Then MsgBox "用户名不能为空！", vbInformation, "警告": Exit Sub  '如果第一个文本框中没有字符则提示用户，然后结束过程
  If Len(TextBox2) = 0 Then MsgBox "密码不能为空！", vbInformation, "警告": Exit Sub  '如果第二个文本框中没有字符则提示用户，然后结束过程


  If TextBox1 = "admin" And TextBox2 = admin Or TextBox1 = "1" And TextBox2 = 1 Then
    Unload Me                  '关闭窗体
    Application.Visible = False         '显示应用程序的主界面
    PVMenu.Show
    'Sheets(1).Activate             '进入第一个工作表
    Application.EnableCancelKey = xlInterrupt   '恢复设置，允许中断过程
  Else  '否则
    MsgBox "密码与用户名不匹配，请重新输入!", vbInformation  '提示
    i = i + 1                  '累加变量，记录错误次数
    If i >= 3 Then                '如果错误三次
      MsgBox "您已尝试三次错误，程序即将关闭！" '提示
      Unload Me                 '关闭窗体
      Application.Visible = True        '恢复程序可见
      ThisWorkbook.Close False          '关闭工作簿且不保存
    End If
  End If
End Sub

****************************************************分割线**************************************************
2023.11.24更新

这个问题网上常用方法解决了，网上找了个视频，很不多，分享给大家吧。
[color=rgba(0, 0, 0, 0.85)]Excel VBA入门教程，禁用宏就隐藏工作表，双保险防数据泄露.mp4
[color=rgba(0, 0, 0, 0.85)]https://www.aliyundrive.com/s/iRyz6iA2jNp提取码: w27n

飞牛冲

自我回复下：
论坛找到了一个，在四楼。留个记号
https://club.excelhome.net/thread-436290-1-1.html?_dsign=8a9ebc04

donglinlin888

顶起来，坐等大哥来解决

飞牛冲

donglinlin888 发表于 2023-11-23 21:21
顶起来，坐等大哥来解决

已经解决了。有视频分享。还不错。

donglinlin888

飞牛冲 发表于 2023-11-24 08:47
已经解决了。有视频分享。还不错。

视频在哪里，求分享

半夏知秋

感谢楼主分享，就是 如果人家用WPS打开（WPS个人版，未启动宏功能），是不是也达不到隐藏的效果啊

飞牛冲

leeson7502 发表于 2023-11-24 09:36
留一张表作为主界面，其他表深度隐藏，登录成功后显示，工作表关闭前再把其他表隐藏。

是的，就是这个思路；
关闭前使用veryhidden，无法直接取消隐藏。

打开时候，必须用VBA命令取消隐藏。

飞牛冲

半夏知秋 发表于 2023-11-24 14:06
感谢楼主分享，就是 如果人家用WPS打开（WPS个人版，未启动宏功能），是不是也达不到隐藏的效果啊

可以，不启用宏，只能看到一张表。

飞牛冲

donglinlin888 发表于 2023-11-24 13:07
视频在哪里，求分享

https://www.aliyundrive.com/s/iRyz6iA2jNp提取码: w27n

这个啊