如何做到打开EX文件后弹出窗口要求你填写用户名和密码？

雨夜1987

如图所示，当我打开EX文件后就会立刻弹出一个窗口要求你填写用户名和密码的，这个可以防止其他人别轻易登录进去看你文件的内容，这样可以做到保密的作用，除非对方知道你的用户名和密码。请问这样的效果是如何做到的？

02761752696

管理员：admin  密码：123456

02761752696

图片   效果    ，记得要开启宏

雨夜1987

02761752696 发表于 2016-4-30 16:54
管理员：admin  密码：123456

你好，我想要的是这个界面是怎么样弄出来的，你里面是帮我弄好了，我不要模板，我只想知道这个界面的操作过程

金樽空对月

雨夜1987 发表于 2016-4-30 17:29
你好，我想要的是这个界面是怎么样弄出来的，你里面是帮我弄好了，我不要模板，我只想知道这个界面的操作 ...

要想知道具体的过程，建议你先在本网站下载一些相关的教学视频学习一下，因为这个不是三言两语能够给你讲清楚的。最多只能给你个步骤：
1、在VBE编辑窗口新插入一个窗体(名称通常为userform1），在窗体上画出两个文字框控件，分别命名为账号和密码；
2、然后在工作薄的打开事件中写入代码：userform1.show
这样在工作薄一打开就会出现窗体了。

雨夜1987

金樽空对月 发表于 2016-4-30 22:27
要想知道具体的过程，建议你先在本网站下载一些相关的教学视频学习一下，因为这个不是三言两语能够给你讲 ...

第二步不知道怎么做尼，新手没办法，或者你是否可以搞一个录像来看看，我真的很需要这个过程，在网上不知道去哪里下载这样的视频，拜托了！

爱疯

楼主自己先试着去做，等做到不会时再问，别人就好针对你不会的地方解释。

cyyj

下载下来研究一下。

雨夜1987

爱疯 发表于 2016-4-30 23:17
楼主自己先试着去做，等做到不会时再问，别人就好针对你不会的地方解释。

他上面说的第一步知道怎么做，但是第二步就不知道怎么入手了

grf1973

1、新建窗体，命名为denglu
2、denglu窗体按钮代码：

1. Static i As Integer
   
2.   If 用户名正确 and 密码正确 Then
   
3.     Unload Me
   
4.     Application.Visible = True
   
5.   Else
   
6.     i = i + 1
   
7.     If i = 3 Then
   
8.         MsgBox "对不起，你无权打开工作薄", vbInformation
   
9.         ThisWorkbook.Close savechanges:=flase
   
10.     Else
    
11.          MsgBox "输入错误，你还有" & (3 - i) & "次机会", vbInformation
    
12.          清空密码区
    
13.    End If
    
14. End If

复制代码

3、工作簿在Thisworkbook中写入代码：

1. Private Sub Workbook_Open()
   
2.       Application.Visible = False
   
3.       denglu.Show
   
4. End Sub
   

复制代码