江苏龙网

  1. 主页 > 生活百科 > >

excel怎么破密码

百科知识生活经验


excel怎么破密码

文章插图
EXCEL工作表保护密码破解 。
1\打文件 。
2\工具---宏----录制新宏---输入名字:aa 。
3\停止录制(空宏) 。
4\工具---宏----宏,选aa,点编辑按钮 。
5\删除窗口所字符(几),替换面内容:(复制吧) 。
6\关闭编辑窗口 。
7\工具---宏-----宏,选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)
' 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 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 " & _ 。
【excel怎么破密码】"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 。


推荐阅读


上一篇：论文开题报告文献综述怎么写快

下一篇：苹果平板ipad密码忘记了怎么办