Question

EXCEL如何编辑登录窗口

就是在打开文档的同时出现登录窗口，需要输入用户名和密码才能完成登录，否则退出文档。
好象这个只能用VBA来完成，但我不是很懂，所以在此求教了！
有愿意帮我的请留联系方式，不胜感激，采纳后有加分！

Answer 1

1. 按"Alt+F11"启动VBA编辑器，右键→插入→用户窗口

   

    

2. 按照下图，将控件中的按钮，和文本框画在“uaerform1”中即可。

   

3. 双击“登录”按钮，并输入：

       If TextBox1.Value = "管理员" And TextBox2.Value = "123" Then
           Me.Hide
           Sheets("sheet1").Select
       Else
           ThisWorkbook.Application.QuitE

   End if

    

    

   

4.   双击“ThisWorkbook”并输入代码：

   Private Sub Workbook_Open()
       UserForm1.Show 0
   End Sub

   

5. 启动如果是2007版本以后，界面如下：（备注：需将文件另存为xlxm文件格式）

    

   

6. VBA也是容易破解的，用excel自带的帐号密码，相对更安全：保存的时候，选择“工具”→“常规工具”，在录入密码即可。

   

Answer 2

首先建立一个用户窗体UserForm1做为登录窗，设置两个文本框TextBox1和TextBox2，一个确定按钮，CommandButton1。代码如下
Private Sub CommandButton1_Click()
If TextBox1.Value = "管理员" And TextBox2.Value = "123" Then
Me.Hide
Sheets("sheet1").Select
Else
ThisWorkbook.Application.Quit
End If
End Sub
在thisworkbook项输入如下代码，就在打开文档时弹出登录窗。
Private Sub Workbook_Open()
UserForm1.Show 0
End Sub

Answer 3

下方链接的相关代码，可直接使用，也可根据你的需求稍做调整就更好了。

追问

我用了你给的链接里的代码，可是运行时总是出错，不知是不是我做的不对还是怎么了。我还做了个登录窗口。

追答

'thisworkbook代码
Private Sub Workbook_Open()
Application.Visible = False: UserForm1.Show
End Sub
'窗体UserForm1中新建一个按钮CommandButton1和一个文本框TextBox1，假设登录密码为123，代码如下：
Private Sub CommandButton1_Click()
If TextBox1.Text = "123" Then Me.Hide: Application.Visible = True Else ThisWorkbook.Application.Quit
End Sub

追问

还想继续请教，我的QQ576012965，谢谢！

追答

加你QQ了