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

qqboy1

系统管理员可以进行 新建工作表、删除工作表、设定用户、设定用户密码、分配用户不同操作的工作表。其他用户登录后可以操作不同的工作表。

至于工作表 1-9 具体用作什么，放什么数据，完全由使用者决定了。

说明：源代码是由 snood 斑竹编写的。 本人对其作了Vb封装、美化与修改，并用 Winrar 作成自解压文件方便使用，请 snood 版主加以指教。

---------------------------------------------

vba 密码为：6243442， Excel 文件可以直接打开的。

有关突破用户和工作表总数限制的方法在 62楼 有说明，核心代码在 63 楼~~！

此为链接，点击查看----05.7.25

[此贴子已经被作者于2005-7-25 21:13:11编辑过]

shuiyuan

直接打开Excel就可以

cpali3023

EXCEL权限的分配我觉得在非数据库设计情况下没有太大的意义！

在SQL数据库中对各种表的权限的各种限制设置起来是较容易的，而且非常的可靠，可由管理员对数据库本身进行修改，而无需动客户端程序！

york888

这样做作用不大, 还不如直接打开EXCEL!来得更方便直接!

cpali3023

数据权限的分配本来就是网络多用户的情况下，对数据库各表的操作权限的分配问题。如果用与EXCEL中表的权限设置有点小题大作！

ZHENSIQIU

大家说得不错啊,虽然EXCEL强大,并不是在数据管理方面.

如果我们不是把精力用在EXCEL的分析能力上,盲目地开发代码,那实在是螺壳里作道场,划不来.

希望这能成为大家的共识.

识从无中有

不错！

可惜工程不可查看？密码？

还有我想知道如何封装EXCEL文件？不知道能否赐教？

qqboy1

用VB封装Excel可以起到避开“启用宏”对话框的作用，制作原理其实很简单，现将其简要说明如下，希望起到抛砖引玉的作用。

最基本的设置为：[SHADOW=255,ORANGE,2]1.新建一个文件夹[/SHADOW]——用于存放Excel文件和Vb启动画面文件。[SHADOW=255,ORANGE,2]2.打开VB[/SHADOW]——新建一个 标准EXE。[SHADOW=255,ORANGE,2]3.设置Form1用户窗体的显示属性[/SHADOW]——Borderstyle、StartupPositio等。

<1>Borderstyle=0-none 去掉form1的标题栏

<2>StartupPositio=2 设置在屏幕中央显示窗口

<3>Icon 如果需要设置图标可以设置这个属性（可以不设置）[SHADOW=255,ORANGE,2]4.建立打开Excel文件的控件[/SHADOW]——这步是最重要的，也是Vb打开Excel的原理所在！添加一个Timer控件，将其Interval设为600（控制窗口显示的时间），双击Timer控件，在出现的代码窗口中输入以下代码：

Private Sub Timer1_Timer() 　　Dim Exl As Object ' 建立一个对象变量 　　Set Exl = CreateObject("Excel.Application") ' 设置对象为Excel（你可以通过修改这里，实现用VB打开其他类型文件） 　　Exl.Workbooks.Open (App.Path & "\" & "多用户登录.xls")　 ' 链接 EXCEL 文件 　　Exl.Visible = True 　　Unload Me End Sub[SHADOW=255,ORANGE,2]5.生成EXE文件[/SHADOW]——命令在“文件”菜单中，将生成EXE文件保存到 1. 中建立的文件夹。

好了，这样就可以了，如果你觉得界面不美观，可以对窗体的其他显示属性进行设置，完全由你了。

qqboy1

以下是引用cpali3023在2005-5-30 13:26:00的发言： 数据权限的分配本来就是网络多用户的情况下，对数据库各表的操作权限的分配问题。如果用与EXCEL中表的权限设置有点小题大作！

其实最主要的是不同人可以操作不同的表，这点是很有应用价值的，至于权限倒是次要的。

兰色幻想

如果避免启用宏，直接进行数字签名就行了。

其实目的并不是最重要的，在我们这个研究EXCEL开发技术的论坛中，过程和其中的技术也是很重要的。

关于SQL2000开发，没有做过专业编程的一般会员是很难做到的。我们要做精，同时也要兼顾大部分普通EXCEL会员的工作应用。