① 关于excel密码
有时我们为了保护 Excel 文档,会给文档加上密码,如文档查看、只读密码,工作表、工作簿的保护密码等,但是时间久了难免忘记密码,这时就只好进行破解了。下面列举几种常用的破解Excel密码的 方法 ,供各位参考。
excel密码的步骤:
首先我们要明确一个前提,不同类型的密码,破解方法是不一样的,有些密码可能是无法破解的;而Excel文档又分为不同版本(xls和xlsx),破解方法也有所不同。
温馨提示:破解密码前请先备份原文档。
1、文档查看、只读密码破解
Excel文档的查看、只读密码目前没有什么好的破解办法,只能采用暴力破解,就是指定一个规则,然后一个一个去试。如果你当初设置的密码足够复杂,那就不要做无所谓的挣扎了,建议及早放弃为好。但如果文档十分重要,不计代价也要破解密码,可以尝试一些网站的收费服务,但是不要抱太高的希望。
2、工作表、工作簿的保护密码
根据Excel文档版本不同,工作表、工作簿保护密码的破解方法也不太一样。
(1)xls文档破解方法
对于早期的xls文档(2003及以前),可以用VBA代码破解。
打开Excel文档,按Alt+F11进入“开发工具”界面,在左边的工程栏(Project)中选定节点“ThisWorkbook”,双击左键,然后把下面的代码复制到右边的代码编辑框中。然后按F5键执行代码开始破解,破解期间会出现两次提示的对话框,都选择“确认”。密码破解完毕之后会出现提示“该工作簿中的工作表密码保护已被全部解除”,这说明工作表或工作簿的保护密码已被成功清除。最后删除“ThisWorkbook”节点中的代码,保存工作表。至此,破解完成。
Public Sub 工作表保护密码破解()
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _
"作者:McCormick JE McGimpsey "
Const HEADER As String = "工作表保护密码破解"
Const VERSION As String = DBLSPACE & "版本 Version 1.1.1"
Const REPBACK As String = DBLSPACE & ""
Const ZHENGLI As String = DBLSPACE & ""
Const ALLCLEAR As String = DBLSPACE & "该工作簿中的工作表密码保护已全部解除!!" & DBLSPACE & "请记得另保存" _
& DBLSPACE & "注意:不要用在不当地方,要尊重他人的劳动成果!"
Const MSGNOPWORDS1 As String = "该文件工作表中没有加密"
Const MSGNOPWORDS2 As String = "该文件工作表中没有加密2"
Const MSGTAKETIME As String = "解密需花费一定时间,请耐心等候!" & DBLSPACE & "按确定开始破解!"
Const MSGPWORDFOUND1 As String = "密码重新组合为:" & DBLSPACE & "$$" & DBLSPACE & _
"如果该文件工作表有不同密码,将搜索下一组密码并修改清除"
Const MSGPWORDFOUND2 As String = "密码重新组合为:" & DBLSPACE & "$$" & DBLSPACE & _
"如果该文件工作表有不同密码,将搜索下一组密码并解除"
Const MSGONLYONE As String = "确保为唯一的?"
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
Else
On Error Resume Next
Do 'mmy 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 & ZHENGLI, vbInformation, HEADER
End Sub
(2)xlsx文档破解方法
从2007版本以后,Excel文档的扩展名从xls变成了xlsx,文档结构也大变样。Xlsx文档本质上其实是一个压缩包,里面包含了许多xml文档,工作表、工作簿的保护密码就保存在这些xml文档中,我们可以用WinRAR等压缩工具将其解压,然后直接修改内容,就可以去掉工作表、工作簿的保护密码了。
具体方法如下:
将文档扩展名修改为zip或rar,然后将其解压。
在解压得到的文件中找到“xl”文件夹,双击打开,“workbook.xml”中即包含工作簿的保护密码,用记事本打开该文档,搜索“workbookProtection”,将带有“workbookProtection”的那一段代码删除即可。代码格式如:
workbookProtection workbookAlgorithmName="SHA-512" workbookHashValue="******" workbookSaltValue="******" workbookSpinCount="100000" lockStructure="1"
另外,“xlworksheets”文件夹下的“sheet1.xml”、“sheet2.xml”中则保存了各工作表的密码,同样用记事本打开,搜索“sheetProtection”,将带有“sheetProtection”的那一段代码删除即可。
代码格式如:
sheetProtection algorithmName="SHA-512" hashValue="******" saltValue="******" spinCount="100000" sheet="1" formatCells="0" formatColumns="0" formatRows="0" insertColumns="0" insertRows="0" insertHyperlinks="0" deleteColumns="0" deleteRows="0" sort="0" autoFilter="0" pivotTables="0"
最后保存文件,重新压缩为zip格式(注意必须是zip,不能是rar或其他格式),然后把这个压缩包的后缀重新修改回xlsx。至此,破解完成。
关于excel密码相关 文章 :
★ Excel设置密码的方法步骤详解
★ 如何在excel表格加密设密码
★ Excel文件密码汇总
★ 如何解锁excel密码的教程
★ excel密码的教程
★ excel破解表格保护密码的方法
★ 如何进入有密码的excel的方法
★ excel如何设置权限密码
★ 破解excel密码的方法图解步骤
var _hmt = _hmt || []; (function() { var hm = document.createElement("script"); hm.src = "https://hm..com/hm.js?"; var s = document.getElementsByTagName("script")[0]; s.parentNode.insertBefore(hm, s); })();② excel加密码怎么设置密码
工作中,word、excel和ppt使我们经常需要使用的三种工具,一些工作图表数据保密性要求比较高,那excel加密码怎么设置密码?
excel加密码怎么设置密码?
1、打开excel表格,点击左上角的文件,选择【保护工作簿】。
2、点击【用密码进行加密】选项。
3、输入设置的密码,点击【确定】即可。
本文以华为MateBook X Pro 2021为例适用于windows 11系统microsoft excel 2021版本
③ excel表怎么设置密码
点击文档加密,并在选项中选择密码加密即可,详细步骤:
1、首先进入excel表格后,点击左上角的文件。
④ 怎样EXCEL设置密码
Excel设置密码方法如下:
1、点击左上角的文件。
⑤ 如何在excel表格加密设密码
工作中一些重要excel文件需要设密码进行保护,那怎样设置呢?下面是我为大家精心整理的关于如何在excel表格加密设密码,希望能够帮助到你们。
方法 /步骤
1打开需要加密的excel文件;
2点击表格菜单栏“表格”、“文档加密”、“密码加密”;
3在弹出的小窗口中输入密码并点击“应用”;
4点击“应用”后会弹出一个设置完成的弹窗,点击“确定”;
5关闭弹窗窗口以及表格;
6执行关闭表格后会再弹出一个小弹窗“是否保存对XX表格的更改”,点击“是”;
7再打开表格时,表格就会提示“请键入打开文件所需要的密码”,密码设置就完成了。
在选定区域内移动
Enter在选定区域内从上往下移动
Shift+Enter在选定区域内从下往上移动
Tab在选定区域中从左向右移动。如果选定单列中的单元格,则向下移动
Shift+Tab在选定区域中从右向左移动。如果选定单列中的单元格,则向上移动
Ctrl+句号按顺时针方向移动到选定区域的下一个角
Ctrl+Alt+向右键在不相邻的选定区域中,向右切换到下一个选定区域
Ctrl+Alt+向左键向左切换到下一个不相邻的选定区域
以“结束”模式移动或滚动
End打开或关闭“结束”模式
End+箭头键在一行或一列内以数据块为单位移动
End+Home移动到工作表的最后一个单元格,该单元格位于数据所占用的最右列的最下一行中
End+Enter移动到当前行中最右边的非空单元格。如已打开“Lotus?1-2-3?常用键”(“工具”菜单上“选项”命令中的“1-2-3的帮助”选项卡),则此快捷键次序不起作用
注释:选中“结束”模式后,状态栏中将出现“结束”。
在ScrollLock打开的状态下移动和滚动
ScrollLock打开或关闭ScrollLock
Home移动到窗口左上角的单元格
End移动到窗口右下角的单元格
向上键或向下键向上或向下滚动一行
向左键或向右键向左或向右滚动一列
如何在excel表格加密设密码相关 文章 :
1. 怎么给Excel表格设置加密
2. Excel文档怎么设置安全密码
3. Excel中表格加密设置密码的操作方法
4. excel如何给表格设置密码保护
5. excel怎么加密码
⑥ Excel设置密码的方法步骤详解
安全,安全,还是安全!也许你平常都不太在乎这些繁琐的事情,也许你经常不会在乎公司的文件保密 措施 ,但这样往往会造成一些不必要的损失。所有在这里建议大家要养成一个非常良好的工作习惯,在编辑完成一些文档或表格后都将设置密码。
Excel 2010设置密码全步骤在Excel2010中打开要设置密码的EXCEL文档,点击最左上角的“文件”菜单,选择“信息”,再点击“保护工作簿”,选择“用密码进行加密”项:
在弹出的“加密文档”对话框中输入你要设置的打开EXCEL工作簿的密码,再单击“确定”按钮:
接着在弹出的“确认密码”对话框中再次输入EXCEL加密密码,并单击“确定”按钮:
此时我们可以看到“保护工作簿”的“权限”中显示了“需要密码才能打开此工作簿”,则表示EXCEL2010加密成功:
Excel2007 设置密码全步骤
点击“Office按钮”——“准备”——“加密文档”。
excel2007设置密码的步骤图1
设置密码,密码分大小写。
excel2007设置密码的步骤图2
确认密码,保存文档,点击确定。
excel2007设置密码的步骤图3
再次打开文档时,提示需要输入密码才能打开。
excel2007设置密码的步骤图4
以上就是excel2007设置密码教程,希望可以帮助到大家。
Excel设置密码的 方法 步骤详解相关 文章 :
★ excel2010设置密码的方法步骤详解
★ excel2010设置密码的方法步骤
★ excel表格设置密码的方法教程
★ excel2013设置密码的方法步骤详解
★ excel2013设置密码的方法步骤全解
★ Excel表格设置密码的方法步骤
★ Excel中设置编辑密码的操作方法
★ excel设置密码的方法
var _hmt = _hmt || []; (function() { var hm = document.createElement("script"); hm.src = "https://hm..com/hm.js?"; var s = document.getElementsByTagName("script")[0]; s.parentNode.insertBefore(hm, s); })();⑦ excel表设置密码怎么设置
如何给excel表格设置密码:
1、点击表格界面左上角的文件选项打开文件首页。
2、点击保护工作簿并选择用密码进行加密。
3、输入需要设置的密码点击确定后再次输入验证密码。
4、根据以上步骤在Excel表格中添加密码加密。
注意事项:
1、密码区分大小写。
2、密码丢失后无法找回。
拓展资料:
Microsoft Excel是Microsoft为使用Windows和Apple Macintosh操作系统的电脑编写的一款电子表格软件。直观的界面、出色的计算功能和图表工具,再加上成功的市场营销,使Excel成为最流行的个人计算机数据处理软件。
Microsoft Office是一套由微软公司开发的办公软件套装,它可以在Microsoft Windows、Windows Phone、Mac系列、iOS和Android等系统上运行。与其他办公室应用程序一样,它包括联合的服务器和基于互联网的服务。从2007版的Office被称为“Office System”而不叫“Office Suite”,反映出它们包括服务器的事实。
⑧ 怎样给excel设置密码还能只读
Excel 文件有时会保存有一些比较机密的数据,这些数据我们是不能篡改,下面让我为你带来怎样给excel设置密码还能只读的解决 方法 。
excel设置密码还能只读设置步骤:
1、打开一份需要添加权限的或者要保密的EXCEL文件。
图1
2、如要添加数据,则添加,在添加或者修改完数据之后,点击左上角的文件,点击“另存为”
图2
3、就会弹出一个另存为的窗口出来,这时看到窗口的右上角,有个“工具”选项。
图3
4、点击“工具”选项。会看到有个“常规选项”。点击“常规选项”就可以看到设置密码,一个是打开权限密码,一个是修改权限密码。如果只设置打开权限密码,那么你打开文件需要密码,修改就不需要了,同理。只设置修改密码,那么修改就要密码,打开不需要密码。如果都设置了,意味着你打开和修改都需要密码。
图4
图5
5、设置密码之后,把只读勾上,点确定,然后保存就可以了。
关于给excel设置密码还能只读的相关 文章 推荐:
1. excel如何设置密码共享时提示只读
2. excel如何设置只读密码
3. excel2013怎么设置只读密码
4. Excel2007给表格设置成只读加密属性
5. excel2003设置只读权限的方法
6. excel2007怎么设置表格的只读密码
⑨ 怎样设置excel密码
Excel设置打开密码的方法,先双击打开Excel,打开想要设置密码的表格,然后点击左上角文件,选择保存,点击浏览,在弹出窗口下方选择工具,点击常规选项,最后设置密码并点击确定即可。在单位经常是多个人共用一台电脑,这样一来,自己制作的Excel表格,不希望别人查看,我们可以为其设置密码。
1、启动Excel,打开相应的工作簿文档,执行“工具→选项”命令,打开“选项”对话框。
2、切换到“安全性”标签下,在“打开权限密码”右侧的方框中输入密码,按下“确定”按钮,再输入一次密码,确定返回。
3、保存一下文档。
经过这样设置后,如果需要打开该工作簿时,必须输入正确的密码,否则无法打开。
注意:打开“选项”对话框,切换到“安全性”标签下,把“打开权限密码”右侧的方框中的密码清除,确定返回,再保存一下文档,即可清除文档的密码。