安全版下载 极速版下载
适用于 Windows 11、10、7、XP 系统 微软官方原版镜像
视频教程
当前位置:首页 > Win7 教程

Excel有密码怎么破解,小编教你怎么破解

分类:Win7 教程    回答于: 2017年11月14日 13:00:42

EXCEL提供了14类100多种基本的图表,可以直接填入数据,就可形成现实生活中的各种表格。如学生登记表,考试成绩表,工资表,物价表等为我们的办公提供了方便,也许出于安全考虑,一些用户将其设置上密码,那么如果忘记了密码,该怎么去破解Excel密码呢?别急,小编这就给大家提供破解的方法。


EXCEL表处理软件是美国微软公司研制的办公自动化软件OFFICE中的重要成员,作为办公软件,自然有其重要的数据,一些工作人员会将其设置密码,但是就没有打开,就会忘记密码,那这可怎么办呢?不用紧张,小编这就带给大家破解Excel密码的方法。

Excel有密码怎么破解


打开需要破解的Excel文件

密码

密码图-1

依次点击菜单栏上的工具---宏----录制新宏

破解密码

破解密码图-2

输入宏名字,然后停止录制(这样得到一个空宏,为后面添加vb代码做准备)

Excel

Excel图-3

依次点击菜单栏上的工具---宏----宏,选易尔拓,点编辑按钮;

删除窗口中的所有字符,替换为下面的内容;


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

破解密码

破解密码图-4

依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,执行,确定两次

工作软件

工作软件图-5

前面输入的宏名 变成了AllInternalPasswords 点击执行 会出现如下对话框 点确定

破解密码

破解密码图-6

一直点 确定 直到不在 出现对话框为止。

破解密码

破解密码图-7

破解密码

破解密码图-8

等待一段之间之后 系统会 再次跳出对话框 再点确定 保护就破解成功了。

密码

密码图-9

以上内容便是Excel密码破解方法的操作步骤,下次请用户在设置Excel密码的时候尽可能的简单一些,并记录下密码备份,避免再次需要使用宏。


happy 有用 26 sad
分享 share
转载请注明:文章转载自 www.xiaobaixitong.org
user 小白系统
小白帮助
如果该页面中上述提供的方法无法解决问题,您可以通过使用微信扫描左侧二维码加群让客服免费帮助你解决。备注:人工客服仅限正常工作时间(周一至周六:9:00~12:00 2:00~6:00)
QR
分享到
wx微信好友
circleOfFriends朋友圈
QQQQ好友
QQZoneQQ空间
wb新浪微博
取消
复制成功
详解win7激活方法两种方法
eye1000
2022/11/07
2022年win7旗舰版永久激活最新密钥神Key win7激活码永久序列号免费激活大全
eye1000
2022/11/03
win7专业版激活密钥2022 win7专业版激活密钥永久激活码
eye1000
2022/11/03
win7激活密钥专业版永久免费版大全
eye1000
2022/10/16
windows7系统如何恢复出厂设置
eye1000
2022/10/09
小白系统重装win7的方法步骤
eye1000
2022/06/24
小白三步装机系统win7怎么激活
eye1000
2022/06/23
win7重装系统后连不上网怎么办
eye1000
2022/06/13
电脑系统重装windows7
eye1000
2020/03/17
一键装机win7图文详解
eye1000
2020/01/30
文章已经到底了,点击返回首页继续浏览新内容。
Win7 教程 更多>>
系统 更多>>
Win7 教程 更多>>
Win10 教程 更多>>

小白一键重装系统 www.xiaobaixitong.org 假冒盗版横行,敬请甄别!

关注小白微信公众号获取更多实用电脑教程、技巧、资讯、软件信息。

Copyright © 2012-2023 小白系统 All Rights Reserved. 粤公网安备 44130202001068号

惠州市早点科技有限公司 保留所有权利

返回顶部

喜欢小白一键重装网站吗?

喜欢 不喜欢