在一个工作簿中如何让不同用户进入不同的工作表

jzk

我有个共享工作簿，是期中、期末考试后老师们登记学生成绩的。现在遇到问题自己水平有限，解决不了。求助各位大师：在一个工作簿中如何让不同用户进入不同的工作表。

skyzxh

你还不如把每个表拆分出来给各位老师，他们填写好发给你，你做个汇总程序自动汇总一下就好了

ftgli

1. If UserForm1.ComboBox1.Value = "系统管理员" Then
   
2.         Worksheets("目录").Activate
   
3.     Else
   
4.         Worksheets(UserForm1.ComboBox1.Value).Activate
   
5.     End If

复制代码

jzk

skyzxh 发表于 2018-5-6 16:38
你还不如把每个表拆分出来给各位老师，他们填写好发给你，你做个汇总程序自动汇总一下就好了

这样做工作效率太低，一张工作表包含同年级同学科的多个班级，一人输成绩，难道其他人坐等吗？我的工作簿是共享的，几十人是可以同时输成绩的。

ivccav

你自己都实现功能了，就差最后一小步，根据账号名激活不同工作表的功能了。

我把窗体中的代码改了一点点，你试试看吧：

If na = "系统管理员" Then
    Worksheets("目录").Activate
Else
    Worksheets(na).Activate
End If

建议楼主提前手工把所有工作表深度隐藏，只保留一个使用说明工作表(Excel不能隐藏所有工作表，必须留一个)，并且设置工程查看密码。
不然别人禁用宏，就看得到所有内容了。你隐藏之后，用户必须登录了窗体才能看到需要的表格。（只防君子，VBA工程加密太简陋）

学生成绩协同录入与查询（有数据）.zip (967.49 KB, 下载次数: 248)

2018-5-6 17:24 上传

点击文件名下载附件

jzk

ivccav 发表于 2018-5-6 17:25
你自己都实现功能了，就差最后一小步，根据账号名激活不同工作表的功能了。

我把窗体中的代码改了一 ...

很好！非常感谢大师指点！

ivccav

jzk 发表于 2018-5-6 17:35
很好！非常感谢大师指点！

建议楼主提前手工把所有工作表深度隐藏，只保留一个使用说明工作表(Excel不能隐藏所有工作表，必须留一个)，并且设置工程查看密码。

不然别人禁用宏，就看得到所有内容了。你隐藏之后，用户必须登录了窗体才能看到需要的表格。（只防君子，VBA工程加密太简陋）

lvexcel_0210

加2个代码试试，不启动宏就看不见工作表

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim nsht As Worksheet, sht As Worksheet
Set nsht = Sheets.Add
nsht.Name = "tempsht"
For Each sht In Sheets
    If sht.Name <> "tempsht" Then sht.Visible = xlSheetVeryHidden
Next sht
Application.DisplayAlerts = False
ThisWorkbook.SaveAs ThisWorkbook.FullName
Application.DisplayAlerts = True
End Sub

Private Sub Workbook_Open()

Dim sht As Worksheet
Application.ScreenUpdating = False
For Each sht In Sheets
    sht.Visible = xlSheetVisible
Next sht

Application.DisplayAlerts = False
Sheets("tempsht").Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub

excelkill

正是需要的，点赞