[原创]仿正规软件的权限设置及密码登陆的例子

yuhuiyong · 发表于 2005-1-7 10:36

兰老师你好!

请教你如何控制打开工作表, 查看你的代码如下

Sub 按钮13_单击()

If Sheets("主界面").[A1] = 1 And Sheets("SHEET1").[c20] = 1 Then ActiveWorkbook.Unprotect PASSWORD:="12345" Sheets("表一").Visible = True Sheets("表一").Activate ActiveWorkbook.Protect PASSWORD:="12345".........

关键在于通过A1的值来控制可否打开工作表, 而A1的值与控件建立了关联。

我的文件在运用你的权限设置前是通过图片的超链接来打开工作表的，请问

是否可以在保留图片超链接的情况下运用你的权限设置，如何使用？如果不

可以，请问A1的值如何与图片建立关联，我尝试了在点击图片后输入=$A$1,

但在A1中并没有出现数值，而且图片也变了。

huyes · 发表于 2005-1-7 11:43

密码框锁定，无法登陆。

yuhuiyong · 发表于 2005-1-7 15:19

以下是引用yuhuiyong在2005-1-7 10:36:00的发言：

兰老师你好!

请教你如何控制打开工作表, 查看你的代码如下

Sub 按钮13_单击()

If Sheets("主界面").[A1] = 1 And Sheets("SHEET1").[c20] = 1 Then ActiveWorkbook.Unprotect PASSWORD:="12345" Sheets("表一").Visible = True Sheets("表一").Activate ActiveWorkbook.Protect PASSWORD:="12345".........

关键在于通过A1的值来控制可否打开工作表, 而A1的值与控件建立了关联。

我的文件在运用你的权限设置前是通过图片的超链接来打开工作表的，请问

是否可以在保留图片超链接的情况下运用你的权限设置，如何使用？如果不

可以，请问A1的值如何与图片建立关联，我尝试了在点击图片后输入=$A$1,

但在A1中并没有出现数值，而且图片也变了。

兰老师不在，能请其他朋友解一下吗

mcy318 · 发表于 2005-1-7 19:31

以下是引用yuhuiyong在2005-1-7 15:19:00的发言： 兰老师不在，能请其他朋友解一下吗

请问A1的值如何与图片建立关联, 我也想知道呀还有我还想知以下的图为何17行以下就不会动了及没有行号了?

mi25Rd3F.rar (26.34 KB, 下载次数: 81)

FangJian · 发表于 2005-1-7 22:19

兰版主：研读了这个程序收益匪浅，懂得了不窍门，一些细节还要仔细学习。我有个建议，不知对否。在检验登录代码的程序中应增加对输入数据的类型的检验，或错误处理。否则出现类型不配的情况，程序进入调试状态，也就直接进入VBE中了，工程密码也就失去作用了。

如加了工程密码就不能进入代码调试了，前面理解错了。

[此贴子已经被作者于2005-1-8 21:15:46编辑过]

yuhuiyong · 发表于 2005-1-8 10:36

请解答75楼问题

yuhuiyong · 发表于 2005-1-9 11:08

我做的权限控制，可以按权限来打开工作表了，但必须是在工作簿未保护的情况下。当工作簿受保护时运行，显示“运行时错误‘1004’，在以下代码的红色所示停止，请教什么原因，如何解决

Sub 打开_生产计划单() If Sheets("主界面").[A40] = Sheets("权限设置").[A20] And Sheets("权限设置").[D20] = 1 Then Sheets("生产计划单").Visible = True Sheets("生产计划单").Select Else MsgBox "你无权打开此表,请与管理员联系获得权限!", 1 + 64, "系统提示" End If End Sub

兰色幻想 · 发表于 2005-1-9 12:12

要加入解除工作薄保护密码的语句

wsxxj · 发表于 2005-1-9 23:21

在你的表中增加新表如何办，能不能做个控件自动添加，十张表对我来说远远不够啊，请了

chinawood · 发表于 2005-1-11 20:25

perfect! should be always at the top.

		自动登录	找回密码
密码			免费注册