[已解决]求大神帮忙修改

qwertyuiop357

用户名和密码都是admin，请帮忙修改用户权限，例如设置表中A列的值是1，代表有权限修改“表一”中的A列，没有值的话，不能修改“表一”中的A列。万分感谢。

最佳答案

月排行榜 / 总排行榜

Zipall

2014-3-18 13:57

通过设置单元格格式和保护工作表实现.

153.rar (15.72 KB, 下载次数: 6)

2014-3-18 13:57 上传

点击文件名下载附件

跳转到最佳答案楼层

Zipall

通过设置单元格格式和保护工作表实现.

153.rar (15.72 KB, 下载次数: 6)

2014-3-18 13:57 上传

点击文件名下载附件

Zipall

提醒你一下 关闭前自动保存是个很危险的动作.误操作可能会造成无法撤消的破坏.建议用savecopyas保存成备份文件

另外这种保护基本上是防君子不防小人,对于想蓄意破解的人来说,这样的保护形同虚设.

qwertyuiop357

Zipall 发表于 2014-3-18 13:57
通过设置单元格格式和保护工作表实现.

请问撤销的密码是多少

qwertyuiop357

Zipall 发表于 2014-3-18 14:04
提醒你一下 关闭前自动保存是个很危险的动作.误操作可能会造成无法撤消的破坏.建议用savecopyas保存成备份文 ...

能用VBA写吗？

Zipall

qwertyuiop357 发表于 2014-3-18 14:05
请问撤销的密码是多少

工作表保护密码就在按钮1的代码里 你试着理解下.

1. Private Sub CommandButton1_Click()
   
2.     On Error GoTo 10
   
3.     Dim n As String, t As Range
   
4.     Set sh = Sheets("设置")
   
5.     na = TextBox1.Text: ps = TextBox2.Text
   
6.     If na = "" Or ps = "" Then MsgBox "未输入用户名或密码，不能登录", "提示": Exit Sub
   
7.     Set t = sh.Range("a2:a65536").Find(na, , , xlWhole)
   
8.     If t Is Nothing Then GoTo 10
   
9.     If ps <> t.Offset(, 1).Text Then GoTo 10
   
10.     Me.Hide
    
11.     rs = t.Offset(, 2).Resize(, 24).Value
    
12.     With Sheets("表一")
    
13.         .Visible = -1
    
14.         .Unprotect "工作表保护密码"
    
15.         For c = 1 To 24
    
16.             .Columns(c).Locked = rs(1, c) - 1
    
17.         Next
    
18.         .Protect "工作表保护密码"
    
19.     End With
    
20.     Exit Sub
    
21. 10:
    
22.     MsgBox "姓名或密码错误，不能登录", , "提示"
    
23. 
    
24. End Sub
    

复制代码