破解软件

破解软件,破解密码,破解工具,破解论坛,破解技术

单子表格保护破解代码(excel破解工作表保护)

本文导读目录:

怎么破解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表格被设置了密码保护,无法更改,急需破解

实在不行就采用笨办法:先用只读方式打开表格,然后全选复制,再新建表格粘贴。

  • 评论列表:
  •  澄萌王囚
     发布于 2022-05-30 23:07:16  回复该评论
  • 么破解?虚心求教破解之道,请大家帮帮忙在我们的日常工作中,工作表不希望同事改动内容,我们通常会在审阅的,保护工作表里面,设置一个密码这样同事打开你的工作表,只能查看数据,不能编辑改动,编辑会弹出警告提示
  •  澄萌音梦
     发布于 2022-05-30 17:58:32  回复该评论
  • 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 ActiveSheet.Unprotect_chr(i)
  •  柔侣风渺
     发布于 2022-05-30 21:51:48  回复该评论
  • :=True, AllowFiltering:=TrueActiveSheet.Protect DrawingObjects:=False, CONTENTS:=True, AllowF
  •  辙弃野梦
     发布于 2022-05-30 18:01:41  回复该评论
  • = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 T

发表评论:

Powered By

Copyright Your WebSite.Some Rights Reserved.