Excel登陆机制的实现方法 Excel教程
作者：Excel教程 浏览：111次 评论：0条
  当我们在处理或传输Excel电子表格的时候，如果涉及到比较重要的数据，都会考虑到文档的安全问题。
  为此，我们可以使用单元格限制修改输入、借用VBA加以限制用户使用某种工具或菜单等。这一切，都是为了Excel电子表格的安全着想。
  本文，给大家介绍一种更为安全的方法，那就是，Excel登陆机制的实现。意思就是说，当我们双击Excel电子表格企图打开的时候，会提示登陆，如果登陆成功，就能够打开电子表格进行各种操作，如果登陆失败，那么，将无法成功打开Excel电子文档。
  我们先看下图吧，最终的实现效果就是，当我们双击Excel电子表格时，会看到如下图的登陆窗口。
  填写正确的用户名和密码之后，才能登陆成功。如果登陆成功，就可以对电子表格进行日常的操作。否则，就只能点击退出或关闭，从而就不能打开Excel电子表格了。
  要想实现这样的功能，有一定难度，但是，并非不可以实现，借助工作表并配合简单的VBA代码和用户窗体就可以实现。
  一、保存用户名和密码的工作表
  要想实现登陆，那么，必须要有依据，这个依据就是，我们将用户名和密码事先保存在EXCLE工作薄的某一个工作表中，登陆的时候，只需要判断表格中是否有此用户名和密码即可。有则登陆成功，没有则登陆失败。
  表格如上图中的表，只要工作薄中的任意一个工作表，用来用户名和密码即可。如本例的
工作表，名称为　UserLoginInfor ，此表中有三列，第一列是保存登陆名称，第二列保存对应的登陆密码，第三列保存用户的级别。
  根据上图的表，自己建立一个这样的工作表吧，接下来，就是用户窗体和VBA的事了。
  二、建立用户窗体
  所谓的用户窗体，就是我们所看到的第一图的登陆窗口，那个就是用户窗体，在Excel中，我们必须插入这样的一个窗体。方法如下。
  右键点击 UserLoginInfor 选择“查看代码”，如下图。
  然后，我们会看到所弹出的VBA窗口，在此窗口中，执行菜单操作“插入”→“用户窗体”，如下图。
  之后，我们就会看到如下图的界面了。
  上图中，我们通过工具箱向窗体中插入两个标签控件、两个输入框和两个按钮。两个标签控件的Captiont属性分别为“用户名”和“密码”，两个输入框则只调整大小即可。两个按钮的Caption分别设置为“登陆”和“退出”，如此如此，所有的前期准备工作到此完成。
  接下来，我们该给窗体控件增加VBA代码，以实现真正的登陆机制了。
  三、登陆机制中所使用的VBA代码
  ①ThisWorkbook对象的代码
  右键点击窗口中能够看见的ThisWorkbook，选择“查看代码”，这样，VBA代码输入小窗口就出现了。
  接下来，如上图一样，选择好对象名称是Workbook，事件名称是Open，然后，如上图一样，输入VBA代码即可。
  vba做excel窗体录入教程②窗体控件的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

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。