工作表、工作簿保护密码关闭

此密码主要用于防止数据表的表格、格式、内容、公式等被修改删除。当工作表的单元格被保护时，试图编辑或删除那些单元格时你会收到提示 “试图更改的单元格或图表在受保护的工作表中” 告诉你编辑失败。工作簿被保护时，则不能新增、删除工作表。此类密码的破解方法因文件的后缀而异：

1) 后缀为 .xls 的文件

用 Excel 打开工作簿，然后按 Alt + F11 进入 “开发工具” 界面，如下图：

在左边的工程栏（Project）中选定节点 “ThisWorkbook”，双击左键，然后把下面的代码复制到右边的代码编辑框中

Public Sub 工作表保护密码破解()Const DBLSPACE As String = vbNewLine & vbNewLineConst 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 WorksheetDim i As Integer, j As Integer, k As Integer, l As IntegerDim m As Integer, n As Integer, i1 As Integer, i2 As IntegerDim i3 As Integer, i4 As Integer, i5 As Integer, i6 As IntegerDim PWord1 As StringDim ShTag As Boolean, WinTag As BooleanApplication.ScreenUpdating = FalseWith ActiveWorkbookWinTag = .ProtectStructure Or .ProtectWindowsEnd WithShTag = FalseFor Each w1 In WorksheetsShTag = ShTag Or w1.ProtectContentsNext w1If Not ShTag And Not WinTag ThenMsgBox MSGNOPWORDS1, vbInformation, HEADERExit SubEnd IfMsgBox MSGTAKETIME, vbInformation, HEADERIf Not WinTag ThenElseOn Error Resume NextDo 'dummy do loopFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126With ActiveWorkbook.Unprotect Chr(i) & Chr(j) & Chr(k) & _Chr(l) & C

完成后如下图：

然后点击上图的小三角按钮（如蓝色圆圈标注）执行代码破解密码。如果 Excel 提示宏被禁用而导致代码无法运行时，先在文件菜单中保存文件，然后关闭 Excel。重新打开 Excel 并启用宏，按 Alt + F11 回到此界面再点击小三角按钮重新进行密码破解。

破解期间会出现两次提示的对话框，都选择 “确认”。密码破解完毕之后会出现如下窗口：

这说明工作表或工作簿的保护密码已被成功清除。最后按 Alt + F11 回到 “开发工具” 界面，删除 “ThisWorkbook” 节点中的代码，保存工作表。

工作表、工作簿保护密码关闭相关推荐

如何在不知道密码的情况下解除excel的工作表中的保护
如何在不知道密码的情况下解除excel的工作表中的保护在工作过程中经常会遇到打开一个受保护的excel文件,不知道密码只能查看不能进行编辑,那如何在不知道密码的情况下解除excel工作表的保护呢?下 ...
vba 之判断工作表是否处于保护状态：Worksheets.ProtectContents
ProtectContents 是工作表的属性,用于判断工作簿中的某张表是否处于保护状态 Sub worksheet_ProtectContents()Debug.Print Sheets(1).Pr ...
excel之工作表工作簿保护暴力撤销
excel可以在审阅中设置工作表.工作簿的密码保护,但是当密码忘记或一些特殊情况下需要进行操作. 1.工作簿保护撤销步骤一:将需要破解的excal文件后缀名改为rar 步骤二:用压缩软件打开文件可以 ...
如何找回Excel表的保护密码
前言不知道大家有没有遇到过这样的问题:当别人给了你一份Excel表格的时候,你却无法编辑.原因就是工作表设置了保护密码,而那个人和你都不知道密码,怎么办呢?最近我就遇到了这个问题,下面就 ...
找回XLS工作表保护密码
使用 VBA 代码在 Excel 中恢复丢失的工作表保护密码以下 VBA 代码可以帮助您快速取消工作表中的原始密码. 1. 打开您之前受保护的工作表. 2. 按住 ALT + F11 键,它会打开 ...
excel链接隐藏工作表_在Excel 2007和2010中隐藏和取消隐藏工作表和工作簿
excel链接隐藏工作表 Hiding worksheets can be a simple way to protect data in Excel, or just a way reduce th ...
如何取消excel密码_办公软件操作技巧020：如何给excel工作表设置密码
在日常工作中,有时我们需要对excel表格内容进行只读保护,即只能查看数据,但不能随意更改数据内容,或者表格制作完成后,为了避免误操作对数据的修改,就可以对excel工作表进行加密保护.今天我们来分享 ...
本工作簿不能再使用其他新字体_1.2.16 EXCEL篇之关于工作表的操作合集
本篇的开始,还要从复制一个表格说起... 相信不少童鞋复制一个表格到其他工作表,都是以下的操作:框选表格→复制粘贴到目标工作表→调整行高列宽,如下图所示可以看到这样简单粗暴地直接复制粘贴过去,新表的 ...
Android手机替代笔记本出差实战之处理受保护的工作表（excel）
爪机用哪个办公软件好?我以前也做过一个简单评测用图片说公道话,Android能处理Office文档和平板电脑替代笔记本出差实战案例现在的这篇并不是什么评测的文章,这是个前几天解决的一个真实案例,供 ...

工作表、工作簿保护密码关闭

工作表、工作簿保护密码关闭相关推荐

最新文章

热门文章