首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

如何通过Excel 制作动态密码登入

通常我们有比较机密的文档都会使用密码保护起来,除了常规的做法今天我们就来学习一下如何使用EXCEL 制作动态密码登入窗体。

先来看下效果:

首先创建窗体:

按ALT+F11在VBE编程环境中创建窗体,如下图所示,右键点窗体-插入-用户窗体

在窗体中分别添加两个命令按钮、一个文本框、一个标签。

双击登入按钮编写如下代码:

Private Sub CommandButton1_Click()

t = Format(Date, "yyyymmdd")’获取日期,年月日

If TextBox1.Value = t Then’如果文本框输入的密码是年月日则登入工作文档。

Windows("图书管理").Visible = True‘这里 图书管理 是工作簿文档名称。

UserForm1.Hide

Else

MsgBox "密码错误"

TextBox1.SetFocus

End If

End Sub

设置按钮名称:

双击退出按钮编写如下代码:

Private Sub CommandButton2_Click()

Windows("图书管理").Close

Application.DisplayAlerts = True

End Sub

双击窗体按钮编写如下代码:

Private Sub UserForm_Activate()

Application.DisplayAlerts = False

TextBox1.SetFocus

End Sub

双击工作簿编写如下代码:

Private Sub Workbook_Open()

Windows("图书管理").Visible = False

UserForm1.Show

End Sub

本例最后将文档保存为 图书管理.xlsm

本例主要通过获取当天日期与文本框输入的内容相匹配则登入工作簿。

如当天日期为2020-04-09则在文本框内输入20200409就可以登入了。第二天登入则是20200410会随着日期的变化而变化。本例只是一个学习窗体基本使用的一个简单参考示例。有兴趣的朋友可以有更多的创意扩展自己的思路做出更多工作上实用的工具。

  • 发表于:
  • 原文链接https://kuaibao.qq.com/s/20200703A0U96B00?refer=cp_1026
  • 腾讯「腾讯云开发者社区」是腾讯内容开放平台帐号(企鹅号)传播渠道之一,根据《腾讯内容开放平台服务协议》转载发布内容。
  • 如有侵权,请联系 cloudcommunity@tencent.com 删除。

扫码

添加站长 进交流群

领取专属 10元无门槛券

私享最新 技术干货

扫码加入开发者社群
领券