一个相当成熟的多用户不同权限登录系统

donghua200

建议送精

jidanbing

谢谢了！

ccyy431

如何给单个工作表加保护，也就是说对单个工作表设置修改权限。现在加了保护后重新打开文件时保护就没有了，这个功能对我很重要，请楼主指点一二。

qqboy1

提供一种思路，可以通过修改以下部分的代码。或者给这些代码设定执行条件，把你要设置的单个工作表分离出来设定单独条件，当条件满足时按你设定的保护方法保护，否则执行通用保护。记得同时要设有解保护的代码。

Sub SheetP() For i = 1 To Sheets.Count If Sheets(i).Name <> "注册表" Then Sheets(i).Protect ("ABCacb333") Next End Sub Sub unSheetP() For i = 1 To Sheets.Count If Sheets(i).Name <> "注册表" Then Sheets(i).Unprotect ("ABCacb333") Next End Sub 注册表WorkSheet代码为：

Private Sub Worksheet_Activate() ThisWorkbook.Unprotect ("ABCacb333") For i = 1 To Sheets.Count If Sheets(i).Name <> "注册表" Then Sheets(i).Visible = 2 Next ThisWorkbook.Protect ("ABCacb333") End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range) UserForm1.Show 0 End Sub

ThisWorkbook代码为：

Private Sub Workbook_BeforeClose(Cancel As Boolean) ThisWorkbook.Unprotect ("ABCacb333") For i = 1 To Sheets.Count If Sheets(i).Name <> "注册表" Then Sheets(i).Visible = xlSheetVeryHidden Next ThisWorkbook.Protect ("ABCacb333") End Sub

zz5151353

非常非常感謝 qqboy1 兄提供原碼分享,要不然只出現亂碼. 送上一朵鮮花表示感謝 qqboy1 兄.[em17][em23][em24][em27][em26]

firechuan

同意QQBOY的说法，

qqboy1

以下是引用ccyy431在2005-7-25 17:28:26的发言：

非常感谢楼主

我已经将其用到我的自动表中了，就是如何给单个工作表加保护，也就是说对单个工作表设置修改权限。现在加了保护后重新打开文件时保护就没有了，这个功能对我很重要，请楼主指点一二。

ccyy431 , 您好~！ 〉 我按你说的方法试了一下，果然如此。加密工作薄后文件之所以变大，原因可能为 〉加密后的工作薄不能操作，所以每张表都按照65536*256 的矩阵存储，而每个工作薄都 〉加密了，所以原本结构相同的工作表，加密后由于不可操作就变成了各不相同的表，所 〉以根据Winrar加密软件的算法——结构相同的部分就会通过算法计算，不必全部记录， 〉大概相当于Flash中motion(创建补间动画）会自动计算出中间帧一样。 〉 因此保护后文件有3M多，不保护压缩只有604K，不知道我这样理解对吗？

解决方法：

将ThisWorkbook.Protect ("ABCacb333") 句前加 ' 屏蔽掉即可。

Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.ScreenUpdating = False ThisWorkbook.Unprotect ("ABCacb333") For i = 1 To Sheets.Count If Sheets(i).Name <> "注册表" Then Sheets(i).Visible = xlSheetVeryHidden Next 'ThisWorkbook.Protect ("ABCacb333") End Sub

你试试。

ztj1967

楼主：谢谢你传递的妙方！

不过，一打开就显示您的资料，这.....

能改吗？怎么改？

谢谢哦

Robinhuang

能增加用户修改密码的功能吗?

fokus

不必封装，更方便

如何改进？？才能实现：

1。打开excel时自动显示登陆窗口。不显示其他界面。

2。输入密码后，“确定”后，直接进入到权限范围内的所有表的第一个。

这对我非常重要，请各位帮忙！！谢谢！！！！