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

ok0551 · 发表于 2006-6-27 14:07

好贴。估计很多人都能用的上。

我是做采购的，能不能实现采购订单生成后自动提交主管电脑里，提请主管审批。订单自动生成订单号，一共有三个采购员。

时间有限，问题可能没说明白。

ly008421 · 发表于 2006-6-29 08:30

实际上用winrar同样也能制作成EXE文件，而且还可以设置类似注册码功能

ly008421 · 发表于 2006-6-29 08:37

QUOTE:

以下是引用彭希仁在2006-6-27 10:13:57的发言：

好容易跑进哦

系统管理员	123456
副管理员	111111
AAA	123
BBB	123
CCC	123
DDD	123
EEE	123
FFF	123
查看所有	123

在VB窗口里把系统表属性Visible设置为0－xlsheethiden其它人就无法好容易跑进哦

ly008421 · 发表于 2006-6-29 09:28

其实用winrar也可以封装成exe文件密码设为8421

axu · 发表于 2006-7-6 15:24

太感谢了！

dushanzi · 发表于 2006-7-18 09:44

很不错，谢谢！

haohaoren · 发表于 2006-11-9 22:30

谢谢分享!

lighteds · 发表于 2007-1-19 10:30

请楼主帮忙!!!

我已经套用了您这个非常有用的权限登录系统,结合自己公司Excel数据库管理应用,如下图:

请问可以在哪里加代码能使打开此文件时,自动在"注册表"移动单元格(如:Range("G10").Select),

目的是为了打开文件自动弹出登录框.

还有请问这个代码有没错误的地方

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Unprotect ("ABCacb333")
For Each Sh In Sheets
If Sh.Name <> "注册表" Then
Sh.Visible = 2 '这里有时总提示出错调试是什么原因(有时会有时不会).
End If
Next
Range("G10").Select '这里是为了使其每次都总回到原处(希望能够不弹出登录框,怎么写代码?)
ThisWorkbook.Protect ("ABCacb333")
End Sub

请指教!谢谢!

此贴已经发表好久了希望还能有回复!

[此贴子已经被作者于2007-1-19 10:40:47编辑过]

Cary1018 · 发表于 2007-1-19 21:53

Ding!!!

Cary1018 · 发表于 2007-1-19 21:54

ding

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

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