设置excel打开权限(关于excel设置权限的问题)

内容导航：

设置excel打开权限
关于excel设置权限的问题
怎么设置excel只读权限

一、设置excel打开权限

你是高手，我简单回答，希望你能明白。

你的文件中至少要有两个工作表，其中一个有用，一个没用。同时按Alt和F11，进入宏界面，点菜单的插入，模块，粘贴如下代码：
Sub yy()
Sheets("Sheet1").Visible = 2
End Sub

把代码中的Sheet1改为你有用的工作表的名字，然后运行此宏，这样Sheet1就彻底隐藏了（在Excel中无法取消隐藏）。删除此代码。

存盘退出，重新打开此表，不启用宏。Alt+F11进入宏界面，在左上窗口找到本工作簿中的ThisWorkbook，双击它，在右边粘贴如下代码：
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Cancel = True '如果删除前面的单引号，别人就不可以对此文件进行存盘
End Sub

Private Sub Workbook_Open()
Dim xName, xPSWD As String
Dim xNum
xName = "Sheet1"
xPSWD = "1a2b3c"
xNum = InputBox("请输入学号:")
Sheets(xName).Unprotect "1a2b3c"
Sheets(xName).Range("D1:D200").AutoFilter 1, xNum
Sheets(xName).Protect "1a2b3c"
Sheets(xName).Visible = -1
Sheets(xName).Select
End Sub

把第1个粗体改为有用工作表的名字，第2个粗体字是工作表的保护密码，粗体的D1:D200表示学号所在列（包括表头），请自救修改。

存盘退出。

这样，可以实现如下功能：
打开此文件，不启用宏，看不到有用的工作表（被深度隐藏，无法取消）；
打开此文件，启用宏，会出现一输入框，输入学号，只能看到该学号的内容；且无法存盘。

二、关于excel设置权限的问题

我有个大概的办法就是有点繁琐哦
你不是开始设置了一个表 3个部门吗
那你可以变通的实现
开始的时候你还是用区域密码来设置
这里最关键的是区域

设置好了假设A B C 部门的区域分别是A2：a6000 B21:b6000 c21:c6000三列的话
那你开始的时候都把 A B C 一下的区域隐藏或者填充白色也可以反正看不到就好了
然后下面是最主要的你可以录制宏
规定当 A1里面是A的时候那些区域可见（就是把填充色去掉
B1里面是B 的时候怎么样怎么样
这里你设置区域密码的时候要把A1 B1 C1单独设置好
让他们只能修改自己的专属单元格
还有就是录制宏的时候要麻烦点~~
我这是最笨的办法
期待有高手解决
补充一下东台的啊啊哈哈老乡我盐都的