如何强制使用宏 让打开表格的人一定要登陆才可以

龙藏于渊

   我建立了一个登陆窗体 现在有两个问题
1，如果我在宏安全等级里 选择禁止使用宏 那么打开表格后 将 直接跳过登陆窗体 进入表格，而我想让别人打开我的表格（我的表格是放在局域网内共享的） 必须先登陆 才可以使用表格。怎么样才能让别人 不选择启用宏 就不能打开表格呢？
2，我写了代码   If ComboBox1 = "来宾" Then
            Sheets("基础信息").Visible = -2
            End If
目的是 让 用户为 来宾的 不能看到基础信息表 但是 现在运行后 即使是以来宾身份登陆表格的 仍然可以看到 基础信息表 代码错在什么地方呢
以上两个问题 请高手指教，谢谢。
上附件了： 强制使用宏.rar (30.9 KB, 下载次数: 419)

2012-12-28 21:16 上传

点击文件名下载附件

  谢谢 赵版主 百忙之中 抽出时间 给我释疑解惑 让我的问题得到解决。太感谢了！

yangyangzhifeng

论坛搜索4.0宏表，可以实现关闭宏就关闭工作簿

龙藏于渊

yangyangzhifeng 发表于 2012-12-28 21:26
论坛搜索4.0宏表，可以实现关闭宏就关闭工作簿

如何实现不关闭工作簿 但是只能看到我写提示语那个工作表 比如SHEET3 如果对方不打开宏 就只显示这个工作表
然后我在工作表上写上 提示语 不然别人不知道 怎么打开我的表格 也不行啊

zhaogang1960

VBA加密功能很脆弱：
Excel2003可以通过利用4.0宏表，不启用宏就会关闭工作簿的特点，插入一个4.0宏表达到目的，但在Excel2007、2010就无效了，不仅可以不启用宏打开工作簿，而且删除4.0宏表也很容易

龙藏于渊

zhaogang1960 发表于 2012-12-28 21:35
VBA加密功能很脆弱：
Excel2003可以通过利用4.0宏表，不启用宏就会关闭工作簿的特点，插入一个4.0宏表达到 ...

我以前看到过一个 不打开宏 他就隐藏了其他工作表 只留下 一个提示的表
除非选择 启用宏 进入登陆窗体 正常登陆 才能看到 别的工作表
我现在就想要实现这样的功能 至于别人删除什么的 也无所谓 反正公司也没有别人懂宏 只要别人 不启用宏 就看不到 别的工作表 就可以了 不一定要整个工作簿都关闭掉 请楼主帮我实现这个功能 谢谢了

zhaogang1960

龙藏于渊 发表于 2012-12-28 21:43
我以前看到过一个 不打开宏 他就隐藏了其他工作表 只留下 一个提示的表
除非选择 启用宏 进入登陆窗体  ...

我也没有什么好办法
添加一个目录工作表(或叫其他)，关闭工作簿时除了目录工作表外都深度隐藏起来，只有启用宏才能自动显示其他工作表：

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Application.CommandBars("cell").Reset
   
5.     Dim sh As Worksheet
   
6.     Sheets("目录").Visible = xlSheetVisible
   
7.     For Each sh In Sheets
   
8.         If sh.Name <> "目录" Then sh.Visible = xlSheetVeryHidden
   
9.     Next
   
10.     Me.Save
    
11.     Application.ScreenUpdating = True
    
12. End Sub
    
13. 
    

复制代码

1. Private Sub Workbook_Open()
   
2.    Application.Visible = False
   
3.    用户登录.Show
   
4.     Application.ScreenUpdating = False
   
5.     Dim sh As Worksheet
   
6.     For Each sh In Sheets
   
7.         sh.Visible = xlSheetVisible
   
8.     Next
   
9.     Sheets("单据录入").Select
   
10.     ActiveSheet.Unprotect
    
11.     Application.ScreenUpdating = True
    
12. End Sub

复制代码

zhaogang1960

请把VBA工程用密码保护起来，以免别人看到代码
请看附件
强制使用宏.rar (34.26 KB, 下载次数: 1188)

2012-12-28 22:24 上传

点击文件名下载附件

龙藏于渊

zhaogang1960 发表于 2012-12-28 22:25
请把VBA工程用密码保护起来，以免别人看到代码
请看附件

谢谢 这个完全能达到我的目的了，不过我以来宾用户登录 还是能看到基础信息表 是怎么回事呢

龙藏于渊

密码都是123
我写的让基础信息表 隐藏起来的代码 没有报错 但是为什么没有作用呢

zhaogang1960

龙藏于渊 发表于 2012-12-28 22:58
密码都是123
我写的让基础信息表 隐藏起来的代码 没有报错 但是为什么没有作用呢

把Workbook_Open的代码移动到登陆按钮中:

1. Private Sub CommandButton1_Click()
   
2.     Dim soundName As String
   
3.     Dim sh As Worksheet
   
4.     If ComboBox1.Text = "" Or TextBox1.Text = "" Then
   
5.         If ComboBox1 = "" Then
   
6.             MsgBox "用户名不能为空!", 48, "〖出入库系统〗-提示"
   
7.             ComboBox1.SetFocus
   
8.             Exit Sub
   
9.         ElseIf TextBox1 = "" Then
   
10.             MsgBox "密码不能为空!", 48, "〖出入库系统〗-提示"
    
11.             TextBox1.SetFocus
    
12.             Exit Sub
    
13.         End If
    
14.     Else
    
15.         ARR = Sheets("基础信息").Range("M2:N" & Sheets("基础信息").Range("M65536").End(3).Row)
    
16.         For I = 1 To UBound(ARR)
    
17.             If ARR(I, 1) = ComboBox1 And ARR(I, 2) = TextBox1.Text Then
    
18.                 MsgBox ComboBox1.Text & "您好!欢迎您使用本系统!", 64, "〖出入库系统〗-欢迎词"
    
19.                 Application.Visible = True
    
20.                 Sheets("单据录入").Range("J15") = ComboBox1.Text
    
21.                 If ComboBox1 <> "来宾" Then
    
22.                     For Each sh In Sheets
    
23.                         sh.Visible = xlSheetVisible
    
24.                     Next
    
25.                 Else
    
26.                     For Each sh In Sheets
    
27.                         If sh.Name <> "基础信息" Then sh.Visible = xlSheetVisible
    
28.                     Next
    
29.                 End If
    
30.                 Unload Me
    
31.                 Exit Sub
    
32.             End If
    
33.         Next
    
34.         
    
35.    End If
    
36.         MsgBox "登录密码错误,请重新输入!", 48, "〖出入库系统〗-提示"
    
37.         TextBox1.Text = ""
    
38.         TextBox1.SetFocus
    
39. End Sub

复制代码