【excel2013怎么破解密码破解】
文章插图
打开新建的这个Excel,按下alt+F11,打开vb界面,新建一个模块代码如下,我没装2013,你自己试下吧Private Sub VBAPassword() '你要解保护的Excel文件路径Filename = Application.GetOpenFilename("Excel文件(*.xls & *.xla & *.xlt),*.xls;*.xla;*.xlt", , "VBA破解")If Dir(Filename) = "" ThenMsgBox "没找到相关文件,清重新设置 。"Exit SubElseFileCopy Filename, Filename & ".bak" '备份文件 。End IfDim GetData As String * 5Open Filename For Binary As #1Dim CMGs As LongDim DPBo As LongFor i = 1 To LOF(1)Get #1, i, GetDataIf GetData = "https://www.myit5.com/shenghuo/CMG=""" Then CMGs = iIf GetData = "https://www.myit5.com/shenghuo/[Host" Then DPBo = i - 2: Exit ForNextIf CMGs = 0 ThenMsgBox "请先对VBA编码设置一个保护密码...", 32, "提示"Exit SubEnd IfDim St As String * 2Dim s20 As String * 1'取得一个0D0A十六进制字串Get #1, CMGs - 2, St'取得一个20十六制字串Get #1, DPBo + 16, s20'替换加密部份机码For i = CMGs To DPBo Step 2Put #1, i, StNext'加入不配对符号If (DPBo - CMGs) Mod 2 <> 0 ThenPut #1, DPBo + 1, s20End IfMsgBox "文件解密成功......", 32, "提示"Close #1End Sub
推荐阅读
- 银镯子变黄是怎么回事
- 抖音违规开通不了橱窗怎么办?如何处理?
- 剪映创作人真的赚钱吗?怎么做?
- 茶叶蛋吃不了怎么保存
- 买回来的猪蹄怎么清洗
- 微信服务号二维码怎么生成
- 烤箱空烤后还是有味道怎么办
- 冰柜臭味严重怎么去除
- 加州山火怎么引起的
- 茶籽油过期了怎么用