请大家帮忙看更改下登入界面问题

baydnqmq · 发表于 2012-2-25 21:49

用户密码.part08.rar (23.51 KB, 下载次数: 22)

用户密码.part07.rar (220 KB, 下载次数: 14)

用户密码.part06.rar (220 KB, 下载次数: 15)

用户密码.part05.rar (220 KB, 下载次数: 15)

用户密码.part04.rar (220 KB, 下载次数: 14)

用户密码.part03.rar (220 KB, 下载次数: 14)

用户密码.part02.rar (220 KB, 下载次数: 14)

用户密码.part01.rar (220 KB, 下载次数: 15)

我设置了一个登入界面，必需输入正确的账号和密码才能进入，可现在遇到的一个问题是我设置的一个宏有错，就算不用指定账号跟密码第一次不能进，但第二次再打开表格，确能进表格。请大家好心帮忙更改下，教我问题错在哪？谢谢大家了

shuyee · 发表于 2012-3-8 20:32

我就不做附件了。看我后面的说明，相信你已经知道怎么做了。
Private Sub CommandButton1_Click()
If TextBox1.Text = "陈城钢" And TextBox2.Text = "5697" Then
Application.Visible = True
For i = 1 To Sheets.Count
Sheets(i).Visible = True
Next
ElseIf TextBox1.Text = "1314" And TextBox2.Text = "1314" Then
Application.Visible = True
Sheets(2).Visible = False
Sheets(3).Visible = False
Else
MsgBox "今天忘记拿头去撞墙了吧，快去撞下再回来！", 64
End If
UserForm1.Hide '你只是Hide了，Excel并未关闭。再点击文件，系统自动取消Hide，并询问是否重新打开，选择“否”，即可打开你的文件
End Sub

ngc · 发表于 2012-3-15 11:40

shuyee 发表于 2012-3-8 20:32
我就不做附件了。看我后面的说明，相信你已经知道怎么做了。
Private Sub CommandButton1_Click()
If Tex ...

我也遇到这样的问题，实在是苦恼，谢谢了

shuyee · 发表于 2012-3-15 14:22

不知道你们的问题解决了没

baydnqmq · 发表于 2012-3-21 09:18

还是不行。。运行界面是正常的，但是，如果不在界面上输入正确密码，自动退出后，再一次打开表格，就能进入进去了，等同于我设的这个界面是摆设

shuyee · 发表于 2012-3-21 17:55

考虑不周，就是如果直接关闭登录窗口，应立即关闭本文档就行了。试一下。

baydnqmq · 发表于 2012-3-22 08:19

感谢大大。现在界面窗口已经可以用了，但你改的这个宏，就是输入正确的密码后，点登入，打开的不是我做的表格，而是一个全锁定的灰色表格。。

shuyee · 发表于 2012-3-22 10:43

{:soso_e128:}.我什么也没动.只是把隐藏改为退出.自己再努力一把,你能看到代码,有这个能力的.

baydnqmq · 发表于 2012-3-22 11:22

大哥。。谢谢了。。我重新研究再弄了一个登入界面了。。现在已经完好。。请鉴定

baydnqmq · 发表于 2012-3-22 11:24

搞定了。。为了这个界面研究了一个星期了。。累啊。

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