破解加密excel的教程的方法步骤详解
发布时间:2023-08-09 17:23:50
在Excel中可能有些设置了密码保护却又忘记密码的重要数据,这个时候就需要破解加密保护的Excel文件了,下面是由小编分享的如何破解加密excel的教程,希望对你有用。
破解加密excel的教程
破解密码步骤1:打开受密码保护的工作表
破解加密excel的教程图1
破解密码步骤2:工具—宏—-录制新宏—输入名字如:hh
破解加密excel的教程图2
破解密码步骤3:停止录制(这样得到一个空宏)
破解加密excel的教程图3
破解密码步骤4:工具—宏—-宏,选hh,点编辑按钮
破解加密excel的教程图4
破解密码步骤5:删除窗口中的所有字符,替换为下面的内容:
Option Explicit 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 passwords Const DBLSPACE As String = vbNewLine & vbNewLine Const 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 & VERSION Const MSGNOPWORDS2 As String = "There was no protection to " & _ "workbook structure or windows." & DBLSPACE & _ "Proceeding to unprotect sheets." & AUTHORS & VERSION Const 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 & VERSION Const 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 & VERSION Const 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 & VERSION Const MSGONLYONE As String = "Only structure / windows " & _ "protected with the password that was just found." & _ ALLCLEAR & AUTHORS & VERSION & REPBACK Dim w1 As Worksheet, w2 As Worksheet Dim i As Integer, j As Integer, k As Integer, l As Integer Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer Dim PWord1 As String Dim ShTag As Boolean, WinTag As Boolean Application.ScreenUpdating = False With ActiveWorkbook WinTag = .ProtectStructure Or .ProtectWindows End With ShTag = False For Each w1 In Worksheets ShTag = ShTag Or w1.ProtectContents Next w1 If Not ShTag And Not WinTag Then MsgBox MSGNOPWORDS1, vbInformation, HEADER Exit Sub End If MsgBox MSGTAKETIME, vbInformation, HEADER If Not WinTag Then MsgBox MSGNOPWORDS2, vbInformation, HEADER Else On Error Resume Next Do 'dummy do loop For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 With 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 Then PWord1 = 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, HEADER Exit Do 'Bypass all for…nexts End If End With Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next Loop Until True On Error GoTo 0 End If If WinTag And Not ShTag Then MsgBox MSGONLYONE, vbInformation, HEADER Exit Sub End If On Error Resume Next For Each w1 In Worksheets 'Attempt clearance with PWord1 w1.Unprotect PWord1 Next w1 On Error GoTo 0 ShTag = False For Each w1 In Worksheets 'Checks for all clear ShTag triggered to 1 if not. ShTag = ShTag Or w1.ProtectContents Next w1 If ShTag Then For Each w1 In Worksheets With w1 If .ProtectContents Then On Error Resume Next Do 'Dummy do loop For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For 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 Then PWord1 = 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 sheets For Each w2 In Worksheets w2.Unprotect PWord1 Next w2 Exit Do 'Bypass all for…nexts End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next Loop Until True On Error GoTo 0 End If End With Next w1 End If MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER End Sub
破解加密excel的教程图5
破解密码步骤6:关闭编辑窗口
破解密码步骤7:工具—宏—–运行,,等1分钟,再确定.OK,没有密码了
猜你喜欢
- iPhone 12 发布会后,国外科技媒体 The Verge 撰文感叹:「忘掉 5G 吧,MagSafe 才是你购买 iPhon
- 在Excel中,录入的数据过于繁多,未免会有一些重复录入的情况,这个时候就需要利用Excel的功能进行去掉重复项,下面是小编带来的关于exc
- Excel中计算方差的方法如下:1、新建一个Excel文档,输入需要统计的相关数据。2、在数据下面单元格输入“方差”,在另一个单元格输入“=
- 今天,CoolStar团队给大家发布了iOS 13 - iOS 13.5 越狱公测版。很多正在使用 iPhone 的网友,对 “ 越狱 ”都
- 对于EXCEL用的不熟悉的小伙伴常常都会问excel表格筛选怎么用?小编教你一招。excel表格筛选使用步骤选中数据,在工具菜单中找到数据,
- Excel中经常需要使用到筛选后进行删除的技巧,筛选后的数据具体该如何进行删除操作呢?接下来是小编为大家带来的excel表格筛选后进行删除操
- 在我们的工作中有时会遇上EXCEL中大量修改工作表标签,如果我们一个一个修改会花很多时间,那有什么方法可以快速修改呢?下面小编就为大家介绍用
- 如何在Word 2013中向文档添加水印?当较高的纸张在光线下直射时,它们会显示水印-嵌入纸张中的图像。Word 2013允许您通过在文档的
- 经常在使用Excel表格时,肯定对表格那从没有变化过的白底背景产生了一定的厌恶,常常感慨为什么不能多一点新意呢?其实我们可以为Excel表格
- WORD长文档排版自动生成目录和图表索引!排版关键点提示:1、排版前一定要清除“导航窗格”的内容;2、一定要使用“多级列表”;3、“导航窗格
- 当我们的电脑win10系统出现引导文件丢失的情况,引导文件一旦丢失就会造成系统无法正常使用,所以用户通常会使用一些外置的工具来进行相关修复,
- 格式刷位于word 2016“开始”功能区的“剪贴板”组,看上去就像一把“刷子”。用它可以“刷”文字、段落格式,还有一些图片、图形、表格的设
- 在工作中签订合同是常见的,签订的合同比较多的情况下,没办法记住全部客户的合同到期时间,这时候我们可以使用Excel来制作合同到期提醒,这样就
- 当一些朋友使用win10系统时,如果他们发现sgtool.exe文件的映像已损坏,该怎么办?通常,在应用程序计算机的整个运行过程中,都会遇到
- Word软件已经广泛应用在我们的日常办公中,掌握Word软件的应用技巧极为重要。为了节约纸张怎么在A4纸上打印8张图片,接下来我们要好好利用
- 我们在使用Win10系统时,有很多用户发现开机或系统更新以后蓝牙功能开关就不见了。那么这是怎么回事呢?我们如何才能找到呢?今天小编就来告诉大
- 英雄联盟是一款深受玩家们喜爱的网络游戏,但是有用户跟小编反映自己升级到win10之后,玩英雄联盟特别卡顿,导致游戏体验感非常差。我们可以尝试
- 1、菜单,格式--样式和格式,调出样式和格式工具条,然后对文档中的所有标题设置相应的标题样式;2、生成目录:把光标移到文章最开头你要插入目录
- 在进行文档的修订时,很难区分修订前的内容和修订后的内容,Office Word 2007 增强的“比较”文档功能,可以更加直观的浏览文档修订
- Word是最多人使用的办公软件之一,我们在日常工作中有时因工作需要要将一个文档中的内容拆分为多个文档,如果我们只是使用复制粘贴的基础方法来进