Excel登陆机制的实现方法 Excel教程
作者：Excel教程 浏览：111次 评论：0条
当我们在处理或传输Excel电子表格的时候，如果涉及到比较重要的数据，都会考虑到文档的安全问题。
元旦收过路费吗抗日剧电影大全 为此，我们可以使用单元格限制修改输入、借用VBA加以限制用户使用某种工具或菜单等。这一切，都是为了Excel电子表格的安全着想。
本文，给大家介绍一种更为安全的方法，那就是，Excel登陆机制的实现。意思就是说，当我们双击Excel电子表格企图打开的时候，会提示登陆，如果登陆成功，就能够打开电子表格进行各种操作，如果登陆失败，那么，将无法成功打开Excel电子文档。
我们先看下图吧，最终的实现效果就是，当我们双击Excel电子表格时，会看到如下图的登陆窗口。
温婉被封杀 填写正确的用户名和密码之后，才能登陆成功。如果登陆成功，就可以对电子表格进行日常的操作。否则，就只能点击退出或关闭，从而就不能打开Excel电子表格了。
一、保存用户名和密码的工作表
要想实现登陆，那么，必须要有依据，这个依据就是，我们将用户名和密码事先保存在EXCLE工作薄的某一个工作表中，登陆的时候，只需要判断表格中是否有此用户名和密码即可。有则登陆成功，没有则登陆失败。
表格如上图中的表，只要工作薄中的任意一个工作表，用来用户名和密码即可。如本例的
工作表，名称为 UserLoginInfor ，此表中有三列，第一列是保存登陆名称，第二列保存对应的登陆密码，第三列保存用户的级别。
根据上图的表，自己建立一个这样的工作表吧，接下来，就是用户窗体和VBA的事了。
二、建立用户窗体
所谓的用户窗体，就是我们所看到的第一图的登陆窗口，那个就是用户窗体，在Excel中，我们必须插入这样的一个窗体。方法如下。
右键点击 UserLoginInfor 选择“查看代码”，如下图。
然后，我们会看到所弹出的VBA窗口，在此窗口中，执行菜单操作“插入”→“用户窗体”，如下图。
之后，我们就会看到如下图的界面了。
polo衫配什么裤子 上图中，我们通过工具箱向窗体中插入两个标签控件、两个输入框和两个按钮。两个标签控件的Captiont属性分别为“用户名”和“密码”，两个输入框则只调整大小即可。两个按钮的Caption分别设置为“登陆”和“退出”，如此如此，所有的前期准备工作到此完成。
接下来，我们该给窗体控件增加VBA代码，以实现真正的登陆机制了。
三、登陆机制中所使用的VBA代码
①ThisWorkbook对象的代码
右键点击窗口中能够看见的ThisWorkbook，选择“查看代码”，这样，VBA代码输入小窗口就出现了。
接下来，如上图一样，选择好对象名称是Workbook，事件名称是Open，然后，如上图一样，输入VBA代码即可。
②窗体控件的VBA代码
窗体的控件的VBA代码，包括三类代码。一是登陆按钮的代码；二是退出按钮的代码；三是点击 ×关闭的代码。
运费模板怎么设置>云之遥攻略 为方便大家的学习，下面将这三类代码粘贴如下：
Ａ、登陆按钮的代码
Dim MyLoginStatus As Single
MyLoginStatus = 0
For i = 2 To ThisWorkbook.Sheets("UserLoginInfor").UsedRange.Rows.Count
If (Trim(ThisWorkbook.Sheets("UserLoginInfor").Cells(i, 1).Value)) = Trim(TextBox1.Valu
e) And (Trim(ThisWorkbook.Sheets("UserLoginInfor").Cells(i, 2).Value)) = Trim(TextBox2.Value) Then
MyLoginStatus = MyLoginStatus 1
If (Trim(ThisWorkbook.Sheets("UserLoginInfor").Cells(i, 3).Value) = "最高权限") Then
发布评论