请高手帮忙写一个PUBLIC的参数来实现功能

lzclzch

请高手帮忙写一个PUBLIC的参数来实现功能

mxg825

给你个思路吧！
先判定一下单元格是否为空，空则可以输入！（解除工作表保护密码）
输入后，把单元格 设为锁定，（加密）

管理员 可以修改 就直接（ 解密）

兰色幻想

在thisworkbook中添加以下事件程序：
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
  ActiveSheet.Unprotect "123"
  Cells.Locked = False
  Cells.SpecialCells(xlCellTypeConstants, 23).Locked = True
  ActiveSheet.Protect "123"
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  On Error Resume Next
  ActiveSheet.Unprotect "123"
  Cells.Locked = False
  Cells.SpecialCells(xlCellTypeConstants, 23).Locked = True
  ActiveSheet.Protect "123"
End Sub

lzclzch

兰色幻想 发表于 2011-7-24 16:04
在thisworkbook中添加以下事件程序：
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error ...

兰版你好

用户名称	设置 用户密码	修改权限	删除权限	可操作表名	可名	可操作表名	可操作表名	可操作表名	可操作表名	可操作表名	可操作表名	可操作表名	可操作表名
系统管理员	123456	Y	Y	系统表	1	2	3	4	5	6	7	8	9
副管理员	111111	Y	N		1	2	3	4	5	6	7	8	9
录入者	123	Y	N		1	2	3	4	5	6	7	8	9
查看所有	123	N	N		1	2	3	4	5	6	7	8	9
高级用户	123	N	N		1		3		5		7	8	9

这个文件已经对所有人已经进行分配了
但我还想要求 录入者对数据录入只能输入一次，即使错了也不能修改，除入用副管理员和管理员用户登陆后才能修改

兰色幻想

不需要什么管理和副管理员，只要把上面的代码加到文件中就可以了，他们没有工作表保护密码是无法修改的，管理员只要知道保护密码就可以修改了

lzclzch

兰色幻想 发表于 2011-7-25 09:42
不需要什么管理和副管理员，只要把上面的代码加到文件中就可以了，他们没有工作表保护密码是无法修改的，管 ...

这样不是每次修改都密码
会不会很麻烦啊

兰色幻想

回复 lzclzch 的帖子

为什么要修改密码？

lzclzch

兰色幻想 发表于 2011-7-25 09:54
回复 lzclzch 的帖子

为什么要修改密码？

笔误,不好意思
这样不是每次都要输入密码
会不会很麻烦啊

兰色幻想

密码谁都不需要输入的，只有管理员修改时才解除保护