为您找到与EXCEL如何解密相关的共200个结果:
excel2007是微软office的办公软件之一,它可以进行数据的整理、分析。如果不想让别人看到或者擅自修改的话,excel文件加密可以起到一定程度的保护。那么下面小编就教你怎么给excel2007加密和解密,希望对你有帮助!
数据加密步骤1:很多时候为了文件的安全,我们要对文件进行加密。很多人都不清楚,在excel本身就有加密功能
在excel2007的页面点击【offic 按钮】
数据加密步骤2:在点击过【offic 按钮】后得到
数据加密步骤3:选着【准备(E)】点击【加密文档(E)】
数据加密步骤4:出现【加密文档】,输入密码然后点击【确定】
数据加密步骤5:再次确认密码,然后【确定】,加密成功
数据加密步骤6:再次打开该文档是就会出现
数据加密步骤7:输入设置的密码即可打开文档
浏览量:2
下载量:0
时间:
在Excel中经常需要录入重要的数据却不想被他人随意篡改,这个时候就需要用到Excel的密码保护功能,但也会有时候会忘记密码,这个时候就需要用到破解密码的手段了。下面是读文网小编带来的关于如何解密excel文件的教程,欢迎阅读!
解密步骤1:打开您需要破解保护密码的Excel文件;
解密步骤2:依次点击菜单栏上的工具---宏----录制新宏,输入宏名字如:aaa;
解密步骤3:停止录制(这样得到一个空宏);
解密步骤4:依次点击菜单栏上的工具---宏----宏,选aaa,点编辑按钮;
解密步骤5:删除窗口中的所有字符(只有几个),替换为下面的内容; Option ExplicitPublic 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 & "andalso" & _ 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 & VERSIONConst MSGPWORDFOUND2 As String = "You had a Worksheet " & _ "password set." & DBLSPACE & "The password found was:" & _ DBLSPACE & "$$" & DBLSPACE & "Note it down forpotential " & _ "future use in other workbooks by same person who " & _ "set this password." & DBLSPACE & "Now to check andclear " & _ "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 BooleanApplication.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
解密步骤6:关闭编辑窗口;
解密步骤7:依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,运行,确定两次;
解密步骤8:等一会,再点击确定,没有密码了!
浏览量:2
下载量:0
时间:
在Excel中经常需要用到密码进行对Excel的保护,但也有忘记密码的时候,这个时候就需要我们利用点小技巧进行解密了。下面是读文网小编带来的关于如何解密excel的方法,欢迎阅读!
解密步骤1:打开您需要破解的Excel文件,如图所示:
解密步骤2:依次点击菜单栏上的工具---宏----录制新宏;
解密步骤3:输入宏名字(PS:打击积极性啊!)如:易尔拓,然后停止录制(这样得到一个空宏,为后面添加vb代码做准备);
解密步骤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
解密步骤6:依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,执行,确定两次;
解密步骤7:耐心等一会,再点击两次确定,就ok啦!
浏览量:4
下载量:0
时间:
在Excel中经常需要录入一些重要的数据而不想被随意改动,这个时候只能设置密码保护,但是过段时间就把密码忘记了,这个时候就需要用到破解密码这一步了。下面是读文网小编带来的关于excel 2003 破解密码的教程,欢迎阅读!
破解密码步骤1:先暂定系统中的杀毒软件,等将Excel密码破解完毕后再重新开启杀毒。(破解类的工具杀毒软件都会误认为是木马或病毒,这个没毒,请放心使用。)
破解密码步骤2:双击运行该软件;
破解密码步骤3:单击“文件”按钮,在弹出的菜单中选择“打开文件…”,然后找到你需要破解的Excel表格的存放位置,打开;
破解密码步骤4:此时,Excel文件就已经导入了此软件,大家还可以看到可以破解“打开”、写入、工作簿密码、共享工作簿密码、VBA工程密码等,全部可以移除。点击界面上的“移除密码”;
破解密码步骤5:点击“移除密码”以后会提示程序必须要链接网络才可以运行,(确定你的计算机是否已经链接好了网络,然后单击“确定”按钮);
破解密码步骤6:这时后会提示 “状态: 正在链接到 Rixler Server ”,只需等待几秒钟破解完成即可。
破解密码步骤7:OK,密码被成功移除,该文档已经被成功解密,如下图:
破解密码步骤8:哦,生成了一个新的没有密码了的文档:西西软件 _NESOY.xls
破解密码步骤9:里边内容部方便公开,我随便打开了一个测试时打开的截图。
破解密码步骤10:类似的破解软件现在已经很多了,有兴趣的可以自己去找找自己喜欢用了,总之自己习惯用的才是最好用的。
浏览量:2
下载量:0
时间:
在Excel中录入了重要的数据而设置了密码保护,长时间下来可能会忘记了密码,这个时候就需要用到VBA进行破解密码了。下面是由读文网小编分享的excel2007 利用vba破解密码的教程,供大家阅读、学习。
用VBA破解密码步骤1:将你要破解的Excel文件关闭,切记一定要关闭呀!然后新建一个Excel文件
用VBA破解密码步骤2:打开新建的这个Excel,按下alt+F11,打开vb界面,新建一个模块,如图所示
用VBA破解密码步骤3:将代码复制到这个模块中,代码如下:
Private Sub VBAPassword() '你要解保护的Excel文件路径
Filename = Application.GetOpenFilename("Excel文件(*.xls & *.xla & *.xlt),*.xls;*.xla;*.xlt", , "VBA破解")
If Dir(Filename) = "" Then
MsgBox "没找到相关文件,清重新设置。"
Exit Sub
Else
FileCopy Filename, Filename & ".bak" '备份文件。
End If
Dim GetData As String * 5
Open Filename For Binary As #1
Dim CMGs As Long
Dim DPBo As Long
For i = 1 To LOF(1)
Get #1, i, GetData
If GetData = "CMG=""" Then CMGs = i
If GetData = "[Host" Then DPBo = i - 2: Exit For
Next
If CMGs = 0 Then
MsgBox "请先对VBA编码设置一个保护密码...", 32, "提示"
Exit Sub
End If
Dim St As String * 2
Dim s20 As String * 1
'取得一个0D0A十六进制字串
Get #1, CMGs - 2, St
'取得一个20十六制字串
Get #1, DPBo + 16, s20
'替换加密部份机码
For i = CMGs To DPBo Step 2
Put #1, i, St
Next
'加入不配对符号
If (DPBo - CMGs) Mod 2 <> 0 Then
Put #1, DPBo + 1, s20
End If
MsgBox "文件解密成功......", 32, "提示"
Close #1
End Sub
用VBA破解密码步骤4:然后点击运行按钮,如图所示,绿色的小三角就是
用VBA破解密码步骤5:你会看到,打开了一个文件夹,找到我们要破解的这个文件,然后点击打开
用VBA破解密码步骤6:稍等几分钟你就会看到破解成功的提示了
用VBA破解密码步骤7:再次打开你要破解的这个文件,你会看到这里已经可以查看代码了哈哈
浏览量:2
下载量:0
时间:
在Excel中录入好重要的资料后都需要进行加密,但是过了段时间后又觉得不重要了就需要用到解密,或许有的朋友并不知道加密和解密该如何设置,如果不懂的朋友欢迎一起来学习研究吧。下面是由读文网小编分享的excel2010加密与解密的教程,以供大家阅读和学习。
加密与解密步骤1:如下图为我们需要加密的Excel 表格文档。
加密与解密步骤2:首先,点击软件左上角的“文件”命令,如图所示。
加密与解密步骤3:接着,点击“信息”-“保护工作簿”-“用密码进行加密”选项,如图所示。
加密与解密步骤4:然后,在弹出对话框中输入自己设置的密码,如图所示。
加密与解密步骤5:这时,我们就可以看到表格的状态为“保护”状态。
加密与解密步骤6:当其他人需要打开文档的时候,就会弹出如下图所示的密码验证窗口,如图所示。
加密与解密步骤7:要解密也很简单,打开“信息”-“保护工作簿”-“用密匙进行加密”按钮,如图所示。
加密与解密步骤8:接着,删除弹出对话框中的“*”字符,单击确定即可。
加密与解密步骤9:最后,即可看到文档的加密已经被解开了。
浏览量:3
下载量:0
时间:
在Excel中录入好重要的数据的时候经常需要进行加密的处理,但如果觉得文档不再重要了,就需要进行解密处理,具体该怎么做呢?下面是读文网小编带来的关于excel2010解密的方法,希望阅读过后对你有所启发!
解密步骤1:打开已经设置密码的Excel2010文件。
解密步骤2:在出现的密码对话框中,输入密码,单击确定后即打开文件。
解密步骤3:单击文件-另存为。
解密步骤4:在出现的另存为对话框中,单击左下角的工具按钮,在下拉列表中选择常规选项。
解密步骤5:在常规选项对话框中,将打开权限密码删除,点击确定按钮。
解密步骤6:点击另存为对话框中的保存按钮,在出现的对话框中选择“是”,替换现有文件。此时文件的密码已经删除。
解密步骤7:关闭文件重新打开,之前设置的密码已经删除了。
浏览量:2
下载量:0
时间:
在Excle中录入过多重要数据的时候经常需要进行加密处理,或许过了一段时间过后就忘记了密码,这个时候就需要进行解密方式了。或许有的朋友并不知道加密文档该如何解密,如果不懂的朋友欢迎一起来探讨研究一番吧。下面是读文网小编带来的关于excel怎么解密加密的文档方法,希望阅读过后对你有所启发!
解密加密步骤1:首先,打开受保护的Excel表格,按“ALT”+“F11”键,弹出如下的界面。
解密加密步骤2:点击“插入”——“模块”,出现下图
解密加密步骤3:打入文中的代码,粘贴到空白区域;
解密加密步骤4:点击“F5”运行宏模块,进行密码破解,出现如下图,密码为图中的圈圈
解密加密步骤5:经过以上的步骤,此Excel的表格的密码已经自动除去,好了,现在你可以插入你可爱的图片啦!
浏览量:3
下载量:0
时间:
在Excle中录入好重要的数据的后,经常需要用到密码进行保护数据,时间久了就不记得密码了,这个时候就需要进行解密了。具体该怎么解密呢?接下来是读文网小编为大家带来的excel加密文件怎么解密的教程,供大家参考。
解密步骤1:先用Microsoft Office Excel 2003创建一个“2003.xls”的普通方式加密Excel文档。
解密步骤2:然后用Office Password Remover这个在线破解工具来破解,1,2,3,3秒之后,就生产一个已经被成功破解的新Excel文档——2003(DEMO).xls 。
浏览量:2
下载量:0
时间:
Excel中该如何利用软件进行解密的操作呢?下面是由读文网小编分享的excel2007表格解密的方法,以供大家阅读和学习。
解密步骤1:点击“Access密码破解”标签,进入如图所示的窗口,点击“浏览”按钮选择要破解的Access文件(注意:未注册版“浏览”按钮不可用,你可以在文本框中输入文件路径和文件名,并且要输入后缀名)。
解密步骤2:点击“开始”按钮就可以穷举密码了。点击“暂停”按钮可以暂停程序的运行。如果点击“停止并保存”按钮则可停止程序的运行,并且保存进度,下次可以接着当前进度破解。调入进度的方法是点击工具栏上的“设置”按钮加载进度即可。找到密码时会显示在进度文本框中。
解密步骤3:点击“开始”按钮就可以穷举密码了。点击“暂停”按钮可以暂停程序的运行。如果点击“停止并保存”按钮则可停止程序的运行,并且保存进度,下次可以接着当前进度破解。调入进度的方法是点击工具栏上的“设置”按钮加载进度即可。找到密码时会显示在进度文本框中。
解密步骤4:如果得出的密码不正确,可以尝试选中“使用暴力破解”选项,然后再点“破解”按钮。
解密步骤5:如果还是不行的话,请再选中“尝试更多密码”就可以了。不过破解速度会很慢!
浏览量:6
下载量:0
时间:
Excel中的加密文档有时候需要进行解密处理,但是很多人不知道怎么操作,不要着急,小编告诉你excel表格加密文档的解密教程,希望阅读过后对你有所启发!
加密文档解密步骤1:打开您需要破解的Excel文件,如图所示:
加密文档解密步骤2:依次点击菜单栏上的工具---宏----录制新宏;
加密文档解密步骤3:输入宏名字(PS:打击积极性啊!)如:易尔拓,然后停止录制(这样得到一个空宏,为后面添加vb代码做准备);
加密文档解密步骤4:依次点击菜单栏上的工具---宏----宏,选易尔拓,点编辑按钮;
删除窗口中的所有字符,替换为下面的内容;
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
加密文档解密步骤5:依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,执行,确定两次;
耐心等一会,再点击两次确定,就ok啦!
浏览量:2
下载量:0
时间:
Excel中经常需要使用到解密的技巧,excel文档具体该如何进行解密呢?下面是由读文网小编分享的excel2007解密操作的教程,以供大家阅读和学习。
解密操作步骤1:首先备份工作簿,以防万一。
解密操作步骤2:修改工作簿文件的扩展名为zip。
解密操作步骤3:解压该压缩文件。
解密操作步骤4:找到代表目标工作表的XML文件(在xlworksheets文件夹中)。
解密操作步骤5:使用任一xml编辑器打开代表目标工作表的xml文档。
解密操作步骤6:找到“sheetProtection”标签并移除该标签所在的行。
解密操作步骤7:保存已编辑的XML文档,用其取代原Zip文件中相应的XML文档。
解密操作步骤8:将文件的扩展名修改回xlsx。
解密操作步骤9:至此,工作表保护已解除。
浏览量:2
下载量:0
时间:
Excel中经常需要使用到密码解密的技术,密码具体该如何进行破解呢?下面是由读文网小编分享的excel表格内进行密码解密的教程,以供大家阅读和学习。
密码解密步骤1:这里有份加密的EXCEL文件
密码解密步骤2:接下来开始破解这个被加密保护的EXCEL文件:
密码解密步骤3:选择工具栏——宏——录制新宏
密码解密步骤4:输入宏名,如aa
密码解密步骤5:点“停止录制”得到一个空宏
密码解密步骤6:删除窗口中的所有字符,把代码工具内的代码复制进来
密码解密步骤7:选工具——宏——选allinternalpasswords,运行,确定两次
密码解密步骤8:点完2次确定后,鼠标处于等待状态,这时代码已经在后台运行处理破解中销等2-3分钟
密码解密步骤9:最后完成后,直接点确定(也是2次确定) 最后再保存,,,,一定要记得保佑,回头再来看看是否需要密码
浏览量:2
下载量:0
时间:
Excel中经常需要把加密的文档进行破解密码,破解密码具体该如何操作呢?接下来是读文网小编为大家带来的excel2007破解密码的方法,供大家参考。
破解密码步骤1:Office Password Unlocker是一个简单、易用、功能强劲可以直接同时恢复Office文档打开密码和修改密码的office密码破解软件!
破解密码步骤2:Office Password Unlocker支持Office 97到2007系列所有版本的Microsoft Word、Excel、Access和PowerPoint。
破解密码步骤3:提供三种模式(暴力破解、带掩码的暴力破解和字典破解)来加强对上述Office系列文档密码的恢复,并且可以根据实际需要来对字典进行定制。
破解密码步骤4:提供无可匹敌比其它程序快一倍的最大密码恢复速度,不管密码的长度如何和有多复杂,它都可以及时有效地为你恢复。
浏览量:2
下载量:0
时间:
Excel中经常会遇到文档需要破解密码的需求,加密的Excel文档具体该如何进行破解密码呢?下面是由读文网小编分享的excel2007破解密码的教程,以供大家阅读和学习。
步骤1:Office Password Unlocker是一个简单、易用、功能强劲可以直接同时恢复Office文档打开密码和修改密码的office密码破解软件!
步骤2:Office Password Unlocker支持Office 97到2007系列所有版本的Microsoft Word、Excel、Access和PowerPoint。
步骤3:提供三种模式(暴力破解、带掩码的暴力破解和字典破解)来加强对上述Office系列文档密码的恢复,并且可以根据实际需要来对字典进行定制。
步骤4:提供无可匹敌比其它程序快一倍的最大密码恢复速度,不管密码的长度如何和有多复杂,它都可以及时有效地为你恢复。
浏览量:2
下载量:0
时间:
Excel中已经加密的文档具体该如何操作才能实现解密的效果呢?接下来是读文网小编为大家带来的excel解密表格的方法,供大家参考。
解密表格步骤1:解压Office Password Remover 文件压缩包到桌面;
解密表格步骤2:双击打开文件中的exe可执行文件;
解密表格步骤3:点击文件名旁边的按键选择需要解密的表格文档;
解密表格步骤4:找到加密文件的路径选中并打开;
解密表格步骤5:一键移除密码;
解密表格步骤6:出现信息提示后确定,直到完成解密。
浏览量:4
下载量:0
时间:
在当今社会中,经常需要用到Excel进行办公,或许有些并不太熟悉Excel的朋友不会使用插入下拉选项的技巧,下面是由读文网小编分享的excel找插入下拉选项的方法,以供大家阅读和学习。
插入下拉选项步骤1:打开excel文档,选中需加入下拉选项的单元格。
插入下拉选项步骤2:点击菜单中的“数据”->“数据有效性”->“数据有效性”。
插入下拉选项步骤3:在弹出的页面中设置菜单下,点击“允许”下选择“序列”按钮。
插入下拉选项步骤4:在来源中输入单元格中需设置的下拉选项,用英文的逗号“,”隔开,然后点击确定按钮。
插入下拉选项步骤5:即可得到我们要的效果。
浏览量:4
下载量:0
时间:
在使用Excel进行办公的时候,增加工作表功能被使用到的几率非常大,如果不懂得如何操作的朋友们不妨跟小编一起来学习学习该如何进行操作。下面是读文网小编带来的关于excel增加工作表的教程,希望阅读过后对你有所启发!
工作表增加步骤1:插入一张新的工作表:点击工作表末尾的插入按钮,鼠标放上面会有提示,或者可以按shift+F11快速插入,如图所示。
工作表增加步骤2:如果要在Sheet1之前插入一张工作表,则右击Sheet1。
工作表增加步骤3:打开“插入”对话框,选择“工作表”,点确定。
工作表增加步骤4:这样就可以了,你可以通过右击标签,选择“重命名”来给工作表重命名。
浏览量:12
下载量:0
时间:
在处理数据的时候经常会需要用到Excel进行对数据的编辑以及整理,或许有的朋友不知道自动筛选功能该如何使用,没关系,下面是由读文网小编分享的excel设置自动筛选的方法,以供大家阅读和学习。
设置自动筛选步骤1:打开EXCEL表格,选择数据第一行
设置自动筛选步骤2:选择菜单栏上的数据》筛选,即可 ,如果要取消,也是按一下筛选即可。
设置自动筛选步骤3:呈现在的样子如下图,各单元格带一个下三解形图标
浏览量:7
下载量:0
时间: