EXCEL密码清除(破解找回密码)—

各位朋友估计都经历过excel 设置了密码，N久以后本以为这辈子都不会忘记的密码，真的忘记了。

唯一能做的就是破解，但网上各种破解工具又不可靠，各种担心，好不容易鼓起勇气决定下载破解软件，结果一次次中招，密码没有破解，自己中毒不浅。。。

只能自己想办法了！利用宏运行方式破解，真的很有效，运行中可能电脑会有两分钟无反应，千萬不要以为死机了哦，等一等！

步骤方法如下:

打开文件
工具—宏—-录制新宏—输入名字如：【W搞密码W】
停止录制(这样得到一个空宏)
工具—宏—-宏,选【W搞密码W】,点【编辑】按钮
删除窗口中的所有字符(只有几个),替换为下面的内容:(复制以下代码)
关闭编辑窗口
工具—宏—–宏,选【AllInternalPasswords】，【运行】,确定两次，注意看一下两次确定，会显示密码内容
等2分钟,再确定.OK,没有密码了! !
宏程序代码内容如下：

 Public Sub AllInternalPasswords()' Breaks worksheet and workbook structure passwords. Bob McCormick' probably originator of base code algorithm modified for coverage' of workbook structure / windows passwords and for multiple passwords'' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)' Modified 2003-Apr-04 by JEM: All msgs to constants, and' eliminate one Exit Sub (Version 1.1.1)' Reveals hashed passwords NOT original passwordsConst DBLSPACE As String = vbNewLine & vbNewLineConst AUTHORS As String = DBLSPACE & vbNewLine & _"Adapted from Bob McCormick base code by" & _"Norman Harker and JE McGimpsey"Const HEADER As String = "AllInternalPasswords User Message"Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04"Const REPBACK As String = DBLSPACE & "Please report failure " & _"to the microsoft.public.excel.programming newsgroup."Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _"now be free of all password protection, so make sure you:" & _DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _DBLSPACE & "Also, remember that the password was " & _"put there for a reason. Don't stuff up crucial formulas " & _"or data." & DBLSPACE & "Access and use of some data " & _"may be an offense. If in doubt, don't."Const MSGNOPWORDS1 As String = "There were no passwords on " & _"sheets, or workbook structure or windows." & AUTHORS & VERSIONConst MSGNOPWORDS2 As String = "There was no protection to " & _"workbook structure or windows." & DBLSPACE & _"Proceeding to unprotect sheets." & AUTHORS & VERSIONConst MSGTAKETIME As String = "After pressing OK button this " & _"will take some time." & DBLSPACE & "Amount of time " & _"depends on how many different passwords, the " & _"passwords, and your computer's specification." & DBLSPACE & _"Just be patient! Make me a coffee!" & AUTHORS & VERSIONConst MSGPWORDFOUND1 As String = "You had a Worksheet " & _"Structure or Windows Password set." & DBLSPACE & _"The password found was: " & DBLSPACE & "$$" & DBLSPACE & _"Note it down for potential future use in other workbooks by " & _"the same person who set this password." & DBLSPACE & _"Now to check and clear other passwords." & AUTHORS & VERSIONConst MSGPWORDFOUND2 As String = "You had a Worksheet " & _"password set." & DBLSPACE & "The password found was: " & _DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _"future use in other workbooks by same person who " & _"set this password." & DBLSPACE & "Now to check and clear " & _"other passwords." & AUTHORS & VERSIONConst MSGONLYONE As String = "Only structure / windows " & _"protected with the password that was just found." & _ALLCLEAR & AUTHORS & VERSION & REPBACKDim w1 As Worksheet, w2 As WorksheetDim i As Integer, j As Integer, k As Integer, l As IntegerDim m As Integer, n As Integer, i1 As Integer, i2 As IntegerDim i3 As Integer, i4 As Integer, i5 As Integer, i6 As IntegerDim PWord1 As StringDim ShTag As Boolean, WinTag As BooleanApplication.ScreenUpdating = FalseWith ActiveWorkbookWinTag = .ProtectStructure Or .ProtectWindowsEnd WithShTag = FalseFor Each w1 In WorksheetsShTag = ShTag Or w1.ProtectContentsNext w1If Not ShTag And Not WinTag ThenMsgBox MSGNOPWORDS1, vbInformation, HEADERExit SubEnd IfMsgBox MSGTAKETIME, vbInformation, HEADERIf Not WinTag ThenMsgBox MSGNOPWORDS2, vbInformation, HEADERElseOn Error Resume NextDo 'dummy do loopFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126With ActiveWorkbook.Unprotect Chr(i) & Chr(j) & Chr(k) & _Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)If .ProtectStructure = False And _.ProtectWindows = False ThenPWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)MsgBox Application.Substitute(MSGPWORDFOUND1, _"$$", PWord1), vbInformation, HEADERExit Do 'Bypass all for...nextsEnd IfEnd WithNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfIf WinTag And Not ShTag ThenMsgBox MSGONLYONE, vbInformation, HEADERExit SubEnd IfOn Error Resume NextFor Each w1 In Worksheets'Attempt clearance with PWord1w1.Unprotect PWord1Next w1On Error GoTo 0ShTag = FalseFor Each w1 In Worksheets'Checks for all clear ShTag triggered to 1 if not.ShTag = ShTag Or w1.ProtectContentsNext w1If ShTag ThenFor Each w1 In WorksheetsWith w1If .ProtectContents ThenOn Error Resume NextDo 'Dummy do loopFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126.Unprotect Chr(i) & Chr(j) & Chr(k) & _Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)If Not .ProtectContents ThenPWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)MsgBox Application.Substitute(MSGPWORDFOUND2, _"$$", PWord1), vbInformation, HEADER'leverage finding Pword by trying on other sheetsFor Each w2 In Worksheetsw2.Unprotect PWord1Next w2Exit Do 'Bypass all for...nextsEnd IfNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfEnd WithNext w1End IfMsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADEREnd Sub

EXCEL密码清除(破解找回密码)——巧用宏代码相关推荐

如何破解PDF文件密码(在线破解PDF密码)
如何破解PDF文件密码(在线破解PDF密码) fcwgw.5d6d.com 整理:凌空飞度社区每当毕业临近的时候,毕业生都会忙着写论文,每逢此时,Adobe Reader就是最忙的了,但是有时候遇到 ...
忘记了PDF密码？快速找回密码的实用方法！
一步搞定!遇到PDF密码怎么办?百度搜索"密码帝官网",点击"立即开始",在用户中心上传文件即可.最简单的方法,不用下载软件,手机电脑都可以用.不仅支持PDF文 ...
js里面把密码encode_PHP会员找回密码功能的简单实现
设置思路 1.用户注册时需要提供一个E-MAIL邮箱,目的就是用该邮箱找回密码. 2.当用户忘记密码或用户名时,点击登录页面的"找回密码"超链接,打开表单,并输入注册用的E-MAI ...
js加mysql写邮箱找回密码_邮箱找回密码 · woyong/docs Wiki · GitHub
第三方平台申请松鼠号 [申请松鼠号][post_songshu_device] [post_songshu_device]:https://github.com/woyong/docs/wiki/申请 ...
H3C服务器web怎么修改密码,h3c路由器怎么修改密码_h3c路由器找回密码
H3c无线路由器密码的修改 1.访问进入的路由器,电脑同路由器配置到同意IP地址段192.168.1.1. 2.在浏览器内输入192.168.1.1,默认用户admin密码admin,登录路由器,选择 ...
linux系统修改普通用户密码和破解管理员密码
Linux的基础操作破解密码 1.用户之间的切换 (1).点击系统桌面右上角退出切换 (2).通过终端命令切换命令: su - 目标用户名(必须是已建有的) 实例代码: [root@server ~ ...
php 找回密码思路,PHP找回密码机制流程
笔者前段接了一个项目,其中包含了一个用户注册系统,用到了密码找回功能,简单整理一下,写点心得. 首先,我们假定你已经有了一个用户注册系统.其中用户表可能如下: create table member( ...
js加mysql写邮箱找回密码_邮箱找回密码实现
邮箱找回密码实现思路: 点击邮箱找回:前端给后端服务器发送请求 get:http://127.0.0.1:8000/api/v1/email?email=7777777777@qq.com 后端发送 ...
php laravel 忘记密码,Laravel实现找回密码及密码重置，详细操作
忘记密码是应用中常见的场景之一,Laravel5也提供了对密码重置的支持,我们只需稍微做一下配置即可轻松实现重置密码. 1.实现思路通过给用户注册邮箱发送包含特定令牌的重置密码链接,然后用户登录邮箱 ...
找回mysql登陆密码怎么办_MySQL忘记密码怎么办如何找回密码
作者选择100电脑网推荐配置了解最佳配置看首页如果运行MySQL,mysqld首先杀掉: killall -TERM mysqld. 启动MySQL:bin / safe_mysqld跳过-gra ...

EXCEL密码清除(破解找回密码)——巧用宏代码

EXCEL密码清除(破解找回密码)——巧用宏代码相关推荐

最新文章

热门文章