怎么破解excel的单元格保护?
Excel表格密码保护的解除方法 关键字:office2003 office2007 宏 密码保护 表格受密码保护时,我们修改数据Excel弹出“您试图更改的单元格或图表受保护,因而是只读的。若要修改受保护单元格或图表,请先使用‘撤消工作表保 护’命令(在‘审阅’选项卡的‘更改’组中)来取消保护。可能会提示您输入密码。这时候我们可以用VBA宏代码破解法来破解表格保护密码: 第一步: Office2003打开该文件,先解除默认的“宏禁用”状态,方法是点击工具栏下的“选项”状态按钮,打开“Microsoft Office安全选项”窗口,选择其中的“启用此内容”,“确定”。再切换到“视图”选项卡,点击“宏”→“录制宏”,出现“录制新宏”窗口,在“宏名” 定义一个名称为:PasswordBreaker,点击“确定”退出; Office2007默认是不显示开发工具栏的,在excel窗口最顶端右键点击“custome quick access tool自定义快捷工具栏”---》在新窗口中点击“Popular常用”---》选择右侧的“show developer tab in the ribbon”,确定;在新出现的developer工具栏,点击“macro security ”,然后选择新窗体中的“enable all macros (not recommands...)” 第二步:再点击“宏”→“查看宏”,选择“宏名”下的 “PasswordBreaker”并点击“编辑”,打开“Microsoft Visual Basic”编辑器,用如下内容替换右侧窗口中的所有代码: Sub PasswordBreaker() Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer On Error Resume Next 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 ActiveSheet.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 ActiveSheet.ProtectContents = False Then MsgBox "One usable password is " _chr(i) _chr(j) _ Chr(k) _chr(l) _chr(m) _chr(i1) _chr(i2) _ Chr(i3) _chr(i4) _chr(i5) _chr(i6) _chr(n) ActiveWorkbook.Sheets(1).Select Range("a1").FormulaR1C1 =_chr(i) _chr(j) _ Chr(k) _chr(l) _chr(m) _chr(i1) _chr(i2) _ Chr(i3) _chr(i4) _chr(i5) _chr(i6) _chr(n) Exit Sub End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next End Sub 第三步:再点击“宏”→“查看宏”,选择“宏名”下的“PasswordBreaker”并点击“执行”,密码就现形了 第四步:点击“撤消工作表保护”,然后输入密码即可解除锁定; 测试结果,密码破解可用,但是很晕的是破解的密码跟原来的密码有很大的差距,想不明白了,反正能用就好。
EXCEL表格被写入保护密码如何解开?
如果CTRL+A用不了,那么就是单元格保护里面限制了选择。
可以用VBA来强行选择复制:
一、按ALT+F11 打开VB编辑器
二、双击左边靠上的【工程资源管理器】中的【Microsoft Excel 对象】中的ThisWorkbook(如果找不到【工程资源管理器】请按CTRL+R),在右边的代码窗口贴入下面的代码:(根据实际情况按代码说明修改a、b的值,""中的内容)
Sub 强行复制()
'修改以下两行""中的工作表名字
Dim a As String: a = "Sheet1" '修改成你需要复制的表名
Dim b As String: b = "Sheet2" '修改成粘贴的空白表名
'以下不需要修改
Sheets(a).Cells.Copy
Sheets(b).Range("A1").Select
ActiveSheet.Paste
End Sub
三、回到EXCEL表,运行菜单 【工具】-【宏】-【宏】,选择 强行复制 这条宏,然后按执行。
四、假如有提示说宏的安全性被限制此类的信息,请在工具栏-【宏】-【安全性】里面把【安全级】设置为【中】。
指纹考勤机导出的excel工作表被保护了,没有密码,怎么破解?虚心求教破解之道,请大家帮帮忙
在我们的日常工作中,工作表不希望同事改动内容,我们通常会在审阅的,保护工作表里面,设置一个密码
这样同事打开你的工作表,只能查看数据,不能编辑改动,编辑会弹出警告提示
有的时候,你设置了保护工作表密码,你自己想编辑的时候,取消保护工作表的密码忘记了,你也编辑不了,这个时候就尴尬了
今天教大学两种方法来破解工作表的保护
方法一,使用压缩包方法
将文件重命名,将后缀改成.rar格式
直接双击打开压缩包,找到xl/worksheets下,是哪个工作表被保护了,就选择哪个工作表,用内部查看器打开
按CTRL+F查找内容protect的位置,然后选中之间的内容,进行delete删除掉
关闭的时候,在压缩包里面要选择更新内容,然后将.rar格式改回.xlsx格式,
双击打开表格文件,工作表的保护密码就被去除了,里面的内容也可以自由的编辑了
方法二:使用VBA代码法
上述的方法如果多个工作表都有保护密码,要在多个表格里面搜索protect,处理起来还是比较麻烦,建议大家使用下面的VBA代码法,只需要一个复制粘贴即可搞定,多个工作表都可以同时去除
在开发工具,点击VBA,然后右键,插入一个模块
在模块里面输入代码,直接运行,就直接破解了
代码如下:
Sub 破解工作表密码()
Dim a As Worksheet
For Each a In Worksheets
a.Protect AllowFiltering:=True
a.Unprotect
Next
End Sub
你学会了么?动手试试吧~
密码忘记了,咋整?
现如今,密码这么多,搞不准哪天就给忘记了。那,这个保护后的工作表,咋整?
这里我分享2种方法给大家,建议留存
直接修改文件信息法
VBA跳过密码保护
这两种方法,只适合工作表的保护密码破解。
直接修改文件
将Excel文件修改为RAR文件格式(将Excel文件的后缀名修改.rar后缀)
打开压缩包,找到文件 xl\worksheets\工作表名.xml
用记事本打开该文件,并删除其中的
sheetProtection.............../部分,并保存
将压缩包后缀名修改会.xlsx文件即可
VBA跳过保护密码
在受保护的工作表标签中,右键,菜单中选择"查看代码"
在VBA编辑器中,录入如下代码:
Sub 破解()
ActiveSheet.Protect DrawingObjects:=True, CONTENTS:=True, AllowFiltering:=True
ActiveSheet.Protect DrawingObjects:=False, CONTENTS:=True, AllowFiltering:=True
ActiveSheet.Unprotect
End Sub
运行该代码即可破解保护密
怎样破解excel表格加密
强行破解的话会导致文件表格内容受损的,你用什么对表格进行加密的,看看有没有密码找回的办法。或是密码提示,根据提示回想正确密码。
可以把能想到的密码写在文档里,然后一个一个复制粘贴的去试。如果当初设置的密码有字母,就要注意一下大小写以及全角半角这方面。
excel表格被设置了密码保护,无法更改,急需破解
实在不行就采用笨办法:先用只读方式打开表格,然后全选复制,再新建表格粘贴。