excel表保护密码破解软件,电子表格excel2016保护密码破解
1. excel2016保护密码破解
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.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
2. excel2013密码破解
1.打开先前设置过密码的文档，输入密码即可；
2.
点击文件，点击在左边一列中的文档加密会有一个右拉菜单，再点击密码加密；
3.
之后会跳出密码加密的窗口，打开文件密码，再次输入密码和密码提示的输入框中把密码都删除点击应用。
之后会跳出“密码加密”的窗口，在“打开文件密码”，“再次输入密码”和“密码提示”的输入框中把密码都删除了之后，在按“应用”，等再次打开excel表格就不需要输入密码了。
3. excel 保护密码破解
如果Excel文件的打开密码忘记了，且密码是6位数以内的数字，可用以下步骤解开（关掉所有程序，为了速度）：
新开一Excel，同时按Alt和F11，进入VBA界面，点菜单上的插入，模块，在新出来的窗口粘贴一下代码：
Sub crack()Dim i As LongDim FileName As Stringi = 0FileName = Application.GetOpenFilename("Excel文件（*.xls & *.xlsx）,*.xls;*.xlsx", , "VBA破解")FileName = Right(FileName, Len(FileName) - InStrRev(FileName, "\"))Application.ScreenUpdating = Falseline2: On Error GoTo line1Workbooks.Open FileName, , True, , iMsgBox "Password is " & iExit Subline1: i = i + 1Resume line2Application.ScreenUpdating = TrueEnd Sub然后在此界面直接按F5运行此宏，选择文件，等啊等（看密码长度了）
4. excel保护密码怎么破解
我们打开excel 软件后，看见单元格里的文字。接下来，我们在单元格里输入文字。这个时候，我们会发现无法输入文字，并且会收到单元格或则图标受保护的提示。
于是，我们点击excel软件上方的审阅。在审阅处的右上方，我们看见有个撤销工作表保护，点击撤销工作表保护。随即，就会跳出取消工作表保护的密码提示。输入我们设置保护工作表时的密码。然后点击确定。这个时候，我们就取消了excel表格的保护。
当我们返回到excel表格时，我们就能够杂单元格里输入文字或则图表了。
5. excel2016破解方法
office没有进行激活。
建议用激活工具进行激活一下就可以了1.下载好激活工具后，双击蓝色激活工具图标。2.左键单击最上面的“Install/Uninstall KMService”，弹出的对话框输入“y”。3.输入y后，按回车键，等待一小会，看到底部出现“Prease any key to exit...”，就可以把当前的对话窗口关闭了。4.然后点击最下面的Rearm Office 2010，输入y，按回车，等待一会，出现“Prease any key to exit...”，就可以把当前的对话窗口关闭了。5.最后一步，点击Activate office 2010 VL，即可成功激活。
6. excel2007设置密码保护
微软出品的excel表格每个版本的加密方式都不一样。
1.excel2003版：打开表格，点击菜单栏上的“工具”，在下啦菜单中选择“选项”，在弹出的窗口中选择“安全性”，然后在“打开权限密码”后面输入密码，在弹出的确认密码对话框再次输入一样的密码，确定即可。
2.2007版：点击左上角的office图标按钮，然后选择“准备”中的“加密文档”；在弹出的对话框中输入密码确定，会再弹出确认密码对话框，再输一遍密码即可。
3。2010版：单击左上角“文件”，然后选择“信息”中的“保护工作簿”，在下拉菜单中选择“用密码进行加密”，在弹出的“加密文档”对话框中输入密码确定，然后在弹出的对话框中再次输入密码确定即可。
取消密码的方法：只需要按上述步骤操作，最后在输入密码的地方什么都不要输入，留空白，点击确定即可。
wps表格的加密：点击左上角“文件”，在下拉菜单中选择“文档加密”，选择右侧的“密码加密”，按要求输入密码即可
7. 破解excel2016加密文件
首先我们点击打开这个已经加密的Excel文件，打开时需要正确输入文档密码。输入正确密码后，进入Excel表格页面，点击左上角的【文件】。
接着左侧弹出选项，点击第4个【信息】，在这里我们可以找到取消密码的设置。接着进入信息选项，找到保护工作簿，并点击保护工作簿下方的小三角，点击【用密码进行加密】。最后在加密文档密码下方，我们将已有的密码删除，然后点击文档加密框下方的【确定】即可。
8. excel2016设置密码保护
1、首先我们打开想要加密的EXCEL文件，点击工具栏上面的工具按钮。
2、在工具按钮的下拉菜单中选点击选项按钮。弹出选项菜单框。
在选项菜单框里面，我们找到安全性选项卡
3、在安全性选项卡里面，我们看到有一个打开权限密码，在打开权限密码后面的那个框里输入你想设置的密码点击确定。
4、点击确定后，系统会让再次输入刚才的密码确认一下。我们在输一次刚才的密码点击确定。
5、加密完成，我们看看效果。需要输入密码才可以进入这个文件，是不是很有用?
9. 如何破解excel密码保护
1打开excel，点击审阅-撤销工作表保护
2出现菜单后，输入之前设置的密码，点击确定
3当图标变成保护工作表字样，就去除密码了。
10. excel2013破解
caxa2013破解版安装方法如下
1、下载解压caxa2013破解版
，双击文件“CE-v2013.exe”依提示安装；2、稍等后，软件将自动完成安装；3、双击桌面图标，软件将弹出30天试用期，选择“否”继续试用；4、30天试用期，关闭软件，将破解文件“DrawLib.dll”复制到软件安装目录下即可成功破解；6、软件安装目录一般为：C:\Program Files\CAXA\CAXA DRAFT MECHANICAL\2013\bin327、再次打开软件，已经可以无限制使用。