怎么设置未启用宏无法读取当前工作簿中的数据

Stone_00x

我想设计一个登录窗口，根据不同用户设置不同表格的编辑权限，但是如果用户没有启用宏的话登录就没用了，

有什么办法可以在用户没有启用宏的情况下禁止读取当前工作簿中的数据，并提示启用宏。

Stone_00x

网上搜的代码，别人的电脑上面可以用，我的电脑上面失效了，在我电脑上面禁用宏，“提示”工作表也是深度隐藏状态，也就是禁用宏的情况下还是执行了Workbook_Open事件

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2. 
   
3.     Sheets("提示").Visible = True
   
4.    
   
5.     For Each sh In Me.Worksheets
   
6.         If UCase(sh.Name) <> "提示" Then sh.Visible = xlSheetVeryHidden
   
7.     Next sh
   
8.    
   
9.     Me.Save
   
10. 
    
11. End Sub
    
12. 
    
13. 
    
14. Private Sub Workbook_Open()
    
15. 
    
16.     For Each sh In Me.Worksheets
    
17.         If UCase(sh.Name) <> "提示" Then sh.Visible = True
    
18.     Next sh
    
19.    
    
20.     Sheets("提示").Visible = xlSheetVeryHidden
    
21. 
    
22. End Sub

复制代码

liulang0808

这个防君子，设置表格深度隐藏，不启用宏，就仅仅显示一个所谓的“主页”，其他隐藏，输入账号密码后，再显示对应内容

Stone_00x

liulang0808 发表于 2024-1-8 17:06
这个防君子，设置表格深度隐藏，不启用宏，就仅仅显示一个所谓的“主页”，其他隐藏，输入账号密码后，再显 ...

就是防君子，只是做个简单的权限管控，防止别人误操作