在Excel中设置动态密码

文章预览

‍ ‍ 学习Excel技术，关注微信公众号： excelperfect 标签： VBA 我们知道， Excel 中设置的密码安全性很低，很容易破解。本文提供一种密码设置技巧，提高密码的安全性。 思路是，每次输入的密码都不同，但是只有你知道其规律并能输入正确的密码。具体示例：以当前时间作为密码，例如当前时间是 17:01 分，则密码是 1701 ，你只需要看看屏幕右下角的时间就知道密码了。 示例代码如下： Sub ChangingPassword() Dim dtNow As Date Dim sPassword_Required As String Dim sPassword_Given As String dtNow = Now  sPassword_Required  =  Format(dtNow, "hhmm") sPassword_Given = InputBox("请输入密码:")  If sPassword_Given  =  sPassword_Required Then MsgBox "密码正确！" Else MsgBox "密码错误！" End If End Sub 在代码中，使用 Format 函数和 Now 函数以文本形式返回当前时间，将其作为密码存储 ………………………………