[分享]一个简单的工作簿登录界面(新增“取消宏，则关闭文件”)

shun2233 · 发表于 2007-4-16 12:52

值得学习，但此程序有个问题：

当进入后，将工作表定位在其他工作表，保存后退出；

下次进入此工作薄后，禁用宏，你只要不激化Sheet1表，就能正常使用！

stx1980710 · 发表于 2007-4-16 13:04

QUOTE:

以下是引用shun2233在2007-4-16 12:52:16的发言：

值得学习，但此程序有个问题：

当进入后，将工作表定位在其他工作表，保存后退出；

下次进入此工作薄后，禁用宏，你只要不激化Sheet1表，就能正常使用！

这里有一个较完善的：

xyq123456 · 发表于 2007-4-17 21:41

先收了

tu01 · 发表于 2007-6-23 08:05

我想把你做的登陆系统移植到我的电子表格里.

我的具体方法是:从你的登陆系统中把窗体和模块还有SHTTE和THISBOOKS的宏命令全部导入或复制下来,再把我的电子表格中导入或复制你们窗体和模块.

当我打开我的电子表格的时候,为什么没有窗体中的图片?如何加载它?

gxihome · 发表于 2007-6-23 08:58

不简单[em04]

stx1980710 · 发表于 2007-6-26 09:31

QUOTE:

以下是引用tu01在2007-6-23 8:05:48的发言：

我想把你做的登陆系统移植到我的电子表格里.

我的具体方法是:从你的登陆系统中把窗体和模块还有SHTTE和THISBOOKS的宏命令全部导入或复制下来,再把我的电子表格中导入或复制你们窗体和模块.

当我打开我的电子表格的时候,为什么没有窗体中的图片?如何加载它?

先导出，再导入。如图所示

hyybo · 发表于 2007-6-26 10:36

很值得学习，漂亮。支持！！！！！！！！！！！

tu01 · 发表于 2007-6-26 10:51

[upload=rar]viewFile.asp?ID=257057[/upload

为什么这样?

[此贴子已经被作者于2007-6-26 11:39:15编辑过]

stx1980710 · 发表于 2007-6-26 11:05

QUOTE:

以下是引用tu01在2007-6-26 10:51:37的发言：

怎么错误424,运行时错误?

因为在窗口初始化时，要加载用户名和密码，但你的工作簿中没有Sheet8工作表，所以会出错

For i = 4 To Sheet8.Range("A65536").End(xlUp).Row '增加用户名
Me.ComboBox1.AddItem Sheet8.Cells(i, 1).Value
Next i

tu01 · 发表于 2007-6-26 11:45

Bzd5DdH1.rar (214.66 KB, 下载次数: 7)

我按照你的要求,设置了SHTT8,为什么在我没有更新原密码的情况下,说我的密码错误?

也许是公式错了?应该怎么写?

[此贴子已经被作者于2007-6-26 11:51:28编辑过]

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