常常为了设密码抓耳挠腮?Excel版高级密码生成器 VBA一键生成复杂密码 图文

2017年10月28日14:49:27常常为了设密码抓耳挠腮?Excel版高级密码生成器 VBA一键生成复杂密码 图文已关闭评论 5,808 views
微信公众号 【EXCEL880】 QQ群【341401932】
课程咨询 加我微信EXCEL880B 试学网址http://v.excel880.com

网络社会,密码是我们经常使用的东西,有些不重要的东西简单密码就行,但是对于网管,或者系统管理员,就需要设置一些复杂密码来增加一定的安全性,这里分享一个自用的Excel版密码生成器,用自定义的VBA函数,可直接生成N位指定复杂度的密码,废话少说,直接上图

常常为了设密码抓耳挠腮?Excel版高级密码生成器一键生成复杂密码

看上图的密码,让你自己设置是不是会费点脑细胞呢,用了我的自定义函数,就可以分分钟生成任意密码,还可以指定位数和复杂度,使用方法

1. 打开excel,alt+f11打开vba编辑器,插入模块

2. 粘贴以下代码,另存文件为xlsm或者xls文件

 Function GenPasswd(length, level) '参数为 长度 密码的等级
 'by excel880工作室 excel880.com
 Dim allstr, substr, passwd As String
 Application.Volatile
 Randomize
 allstr = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ!@#$%^&*()"
 Select Case level
 Case 1
 strlen = 10
 Case 2
 strlen = 36
 Case 3
 strlen = 62
 Case Else
 strlen = 72
 End Select
 substr = Left(allstr, strlen)
 'Debug.Print substr
 passwd = ""
 For i = 1 To length
 passwd = passwd & Mid(substr, Int(Rnd * strlen + 1), 1)
 Next
 GenPasswd = passwd
End Function

在工作表任意位置,输入

=GenPasswd(8,4)即可得到8位4级最高等级密码

当然你也可以生成一个32位的密码=GenPasswd(32,4),让对方暴力破解的去哭吧

友情提示:记得保存好自己生成好的密码!!

案例文件也可以到我网站下载,更多Excel实例视频 可到Excel880网站观看

表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页