[求助]表格权限设置

zhchgao

是否能够就不同人员对同一表格的不同列设置不同的权限？比如：设置甲只能对B.C列进行修改；而乙则只能对A列进行修改，丙则拥有全部权限？谢谢。是不是只能编制VB程序了？谢谢，如果能把该VB发上来就更感谢了。

RATSIN

Private Sub Workbook_Open() Dim UserName As String UserName = InputBox("请输入用户名：") Sheets("sheet1").Select ActiveSheet.Unprotect If UserName = "甲" Then Columns("A:A").Locked = True Columns("B:C").Locked = False ActiveSheet.Protect ElseIf UserName = "乙" Then Columns("A:A").Locked = False Columns("B:C").Locked = True ActiveSheet.Protect ElseIf UserName = "丙" Then ActiveSheet.Unprotect Else MsgBox ("你无权打开此文件") ActiveWorkbook.Close End If End Sub

这样子大概差不多，但如果禁用宏就失效了。

格子人生

请试试 Excel XP 的“工具→保护→允许用户编辑区域”

ladhome

RATSIN：我想把列改为区域，但不成功．请给予改正．

Private Sub Workbook_Open() Dim UserName As String UserName = InputBox("请输入用户名：") Sheets("sheet1").Select ActiveSheet.Unprotect If UserName = "甲" Then Columns("A:A").Locked = True Columns("B2:C21").Locked = False ActiveSheet.Protect ElseIf UserName = "乙" Then Columns("A2:A21").Locked = False Columns("B:C").Locked = True ActiveSheet.Protect ElseIf UserName = "丙" Then ActiveSheet.Unprotect Else MsgBox ("你无权打开此文件") ActiveWorkbook.Close End If End Sub

RATSIN

把columns换成range

还可以在protect 后面加上保护密码

jacky_zhao

我新建EXCEL，把你的字段复制粘贴在sheet1代码中，没有反应啊？

为什么？

gvntw

是Workbook_Open()事件，打开工作簿时触发，关闭后再打开。

fokus

ding

c-j-z

学习了！谢谢！