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

zhaogang1960

请看附件
强制使用宏.rar (36.12 KB, 下载次数: 473)

2012-12-28 23:13 上传

点击文件名下载附件

龙藏于渊

我试着增加了两个条件
1，增加了操作员 不能看见SHEET3
2.来宾不能 SHEET3 和基础信息表
我试着改你的代码 改了几次都不成功
如果这样如何实现呢

龙藏于渊

如果是 我让管理员 能看到所有表 操作员 不能看到目录表 来宾不能看到 目录表 基础信息表 又要如何写呢

amesman

还有一种方法，excel文件设置打开密码，然后用vb写一个程序生成exe来打开这个excel文件，可以忽略宏的安全级别的问题。。。

zhaogang1960

龙藏于渊 发表于 2012-12-28 23:30
如果是 我让管理员 能看到所有表 操作员 不能看到目录表 来宾不能看到 目录表 基础信息表 又要如何写呢

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.                 ElseIf ComboBox1 = "操作员" Then
    
26.                     For Each sh In Sheets
    
27.                         If sh.Name <> "目录" Then sh.Visible = xlSheetVisible
    
28.                     Next
    
29.                 Else
    
30.                     For Each sh In Sheets
    
31.                         If sh.Name <> "基础信息" Then sh.Visible = xlSheetVisible
    
32.                     Next
    
33.                 End If
    
34.                 Unload Me
    
35.                 Exit Sub
    
36.             End If
    
37.         Next
    
38.         
    
39.    End If
    
40.         MsgBox "登录密码错误,请重新输入!", 48, "〖出入库系统〗-提示"
    
41.         TextBox1.Text = ""
    
42.         TextBox1.SetFocus
    
43. End Sub

复制代码

zhaogang1960

龙藏于渊 发表于 2012-12-28 23:30
如果是 我让管理员 能看到所有表 操作员 不能看到目录表 来宾不能看到 目录表 基础信息表 又要如何写呢

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.                     If ComboBox1 = "操作员" Then Sheets("目录").Visible = xlSheetVeryHidden
    
26.                 Else
    
27.                     For Each sh In Sheets
    
28.                         If sh.Name <> "基础信息" Then sh.Visible = xlSheetVisible
    
29.                     Next
    
30.                 End If
    
31.                 Unload Me
    
32.                 Exit Sub
    
33.             End If
    
34.         Next
    
35.         
    
36.    End If
    
37.         MsgBox "登录密码错误,请重新输入!", 48, "〖出入库系统〗-提示"
    
38.         TextBox1.Text = ""
    
39.         TextBox1.SetFocus
    
40. End Sub

复制代码

龙藏于渊

zhaogang1960 发表于 2012-12-28 23:39

完全能解决了 谢谢啊 我刚才没有看到你的代码 我重复问同样的问题了 不好意思啊

ddzhang

楼上的VBA加密其实在宏安全性设为高后，都将失去作用，因为隐藏的表格可以通过进入VBA工程窗口后进行修改就可以取消隐藏了。

zhaogang1960

ddzhang 发表于 2012-12-29 12:51
楼上的VBA加密其实在宏安全性设为高后，都将失去作用，因为隐藏的表格可以通过进入VBA工程窗口后进行修改就 ...

这一点楼主很清楚，请看5楼：

我现在就想要实现这样的功能 至于别人删除什么的 也无所谓 反正公司也没有别人懂宏 只要别人 不启用宏 就看不到 别的工作表 就可以了 不一定要整个工作簿都关闭掉 请楼主帮我实现这个功能 谢谢了

name004

zhaogang1960 发表于 2012-12-28 23:39

老赵真好，做个记号