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

ztj1967

1、您说能改动某段语句从而引导出WORD等文档的，但是我试了却不行（能启动WORD程序，但是无法打开指定的文件，我的改动是： Private Sub Timer1_Timer() 　　Dim Exl As Object ' 建立一个对象变量 　　Set Exl = CreateObject("WORD.Application") ' 设置对象为Excel（你可以通过修改这里，实现用VB打开其他类型文件） 　　Exl.Workbooks.Open (App.Path & "\" & "多用户登录.DOC")　 ' 链接 EXCEL 文件 　　Exl.Visible = True 　　Unload Me End Sub

2、能在VB引导程序中设定一定的信息，并将此信息写入其引导的所有的EXCEL文件的指定单元格吗？

以上问题还望不吝赐教

[此贴子已经被作者于2005-12-21 22:06:02编辑过]

danielcm

首先感谢楼主，让我们学习了不少知识。 我本想把它改一下用于信息发布平台，已做了一定的改动，当进入试用时，发现一个很大的缺陷，不能使用。请各位高手想想办法，能否解决，因改动较大，文件已有12.9M。上传太慢，如想看我改成什么样请联系我，danielcm@sina.com 缺陷是：此文件放在一电脑中，所有连网的电脑都能打开使用，问题就是只能一台电脑使用，其实电脑无法正常使用（其它电脑打开是只读文件），只能等所有人关闭后才能使用，很不方便。

yyxxdd

谢谢楼主！

zs2116

好货.

horace4ever

不错

风神

以下是引用[I]welcpa[/I]在2005-5-31 0:01:00的发言：[BR]

顶一下

我想这不应该叫封装，只是在VB里调用EXCLE而矣。这种方法我原来捣鼓VB时就用过了。

风神

以下是引用[I]fokus[/I]在2005-8-29 11:19:47的发言：[BR]

不必封装，更方便

如何改进？？才能实现：

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

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

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

在 workbook.open中加入窗体启动后，再隐藏EXCEL主界面(excel.application.visible=false)，再SHEETS（"表名").active就行。

361722019

封装多余，看了下VBA源码，程序也是写得很乱，一看就知道不是专业程序员写的程序，可读性差!

讲得不好，请不要扔鸡蛋!

361722019

再看功能，其实就是一个数据库，但又不如数据库，特别是当用户多的时候，就会很慢，但如果你采用SQL数据库，就不会存在这样的情况!

zmr7419

果然高手如云！