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

stx1980710 · 发表于 2007-7-2 13:19

QUOTE:

以下是引用tu01在2007-7-2 7:53:09的发言：

当我完成我的电子表格,假如最后出现的页数是SHEET20,我就在第21页要加载用户名和密码,将其中的命令:

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

我想问:

是不是将上述命令中的Sheet8该为Sheet21就可以呢?

这样对吗?请指正.

第106楼不是说明了吗？

就是将保存有用户清单的工作表的代码名称，替换上面代码中的Sheet8

假如：保存有用户清单的工作表的代码名称为Sheet2，那么就修改为：

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

xhbin · 发表于 2007-7-2 15:54

谢谢，收下了

xhbin · 发表于 2007-7-2 20:14

非常棒，谢谢! 可惜在EXCEL 2007 下还是可以登陆，2007进入后在菜单栏显示是否启用宏

阿拉伯 · 发表于 2007-7-9 21:32

真的很棒，向您学习！

ddlong · 发表于 2007-7-11 01:11

楼主肌肉发达，脑子更发达，我顶[em02]

堕落王 · 发表于 2007-9-11 17:51

哦

好对象，当然要支持

好像很久前我下载过的

谢谢楼主的分享

堕落王 · 发表于 2007-9-11 18:02

楼主的样子？

你的头像？

有点像吴军

huang83110 · 发表于 2008-1-15 12:22

大哥:

有个问题很严重.禁用宏的时候打开文档.工作薄都可以直接打开,而当点击工作薄SHEET1才会自动提示关闭....(只有保存的时候在SHEET1页面才有效.会自动关闭.) (想问一下有没办法解决这问题...在任何的工作表上都可以自动提示关闭)急..........

堕落王 · 发表于 2008-8-21 20:53

楼主的资料我很久前就见识过了，真的很牛

tianlin · 发表于 2008-8-22 13:31

好看，下载。

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