excel表格被设置了密码保护,无法更改,急需破解

kuaidi.ping-jia.net  作者:佚名   更新日期:2024-05-03
Excel 表格被写入密码保护了 无法编辑表格里面的内容 那位高手知道怎么破解 请指教

'去除VBA编码保护
Sub MoveProtect()
Dim FileName As String
FileName = Application.GetOpenFilename("Excel文件(*.xls & *.xla),*.xls;*.xla", , "VBA破解")
If FileName = CStr(False) Then
Exit Sub
Else
VBAPassword FileName, False
End If
End Sub
'设置VBA编码保护
Sub SetProtect()
Dim FileName As String
FileName = Application.GetOpenFilename("Excel文件(*.xls & *.xla),*.xls;*.xla", , "VBA破解")
If FileName = CStr(False) Then
Exit Sub
Else
VBAPassword FileName, True
End If
End Sub
'核心过程调用 无论是加密还是解密都必须经过的过程
Private Function VBAPassword(FileName As String, Optional Protect As Boolean = False)
If Dir(FileName) = "" Then
Exit Function
Else
FileCopy FileName, FileName & ".bak"
End If
Dim GetData As String * 5
Open FileName For Binary As #1
Dim CMGs As Long
'去除密码的
Dim DPBo As Long
For i = 1 To LOF(1)
Get #1, i, GetData
If GetData = "CMG=""" Then CMGs = i
If GetData = "[Host" Then DPBo = i - 2: Exit For
Next

If CMGs = 0 Then
MsgBox "请先对VBA编码设置一个保护密码...", 32, "提示"
Exit Function
End If

If Protect = False Then
Dim St As String * 2
Dim s20 As String * 1

'取得一个0D0A十六进制字串
Get #1, CMGs - 2, St

'取得一个20十六制字串
Get #1, DPBo + 16, s20

'替换加密部份机码
For i = CMGs To DPBo Step 2
Put #1, i, St
Next

'加入不配对符号
If (DPBo - CMGs) Mod 2 0 Then
Put #1, DPBo + 1, s20
End If
MsgBox "文件解密成功......", 32, "提示"
Else
Dim MMs As String * 5
MMs = "DPB="""
Put #1, CMGs, MMs
MsgBox "对文件特殊加密成功......", 32, "提示"
End If
Close #1
End Function


你说的是这种情况么,很简单,打开工作表后,在工作表的名称下单击右键,

撤销工作表保护即可,

excel密码保护破解方法一:

小编这个Excel“客户销售明细表”文件,包含8张Excel工作表,其中第七张(sheet7)是“宁夏店”的销售数据。从图中,可以看到这个工作表是有密码的,单击“撤销工作表保护”,要求我们输入密码,可是密码忘记了,下面小编就一步一步档例带大家破解他。

1、修改EXCEL文件扩展名

将原始文件:客户销售明细表.xlsx修改为客户销售明细表.zip,这时会变成解压缩格式;

2、从zip中复制密保工作表文件

打开压缩后的文件,并在xl\worksheets中找到有密码保护的文件(本例中为sheet7.xml),拖拽复制该文件到文件夹下面。


3、用记事本打开sheet7.xml文件

打开之后,并找到下面这段代码,将其删除。

保存,并关闭sheet7.xml文件。

4、把改好的sheet7.xml文件复制到zip压缩包中替换;

www.winwin7.com Wint7系统之家 整理


将删除了sheetProduction代码的sheet7.xml文件复制替换回压缩包里面。

5、将ZIP文件改回为XLSX文件,再打开excel文件,可以看到工作表保护密码已经被强制破解删除了。

总结:Excel工作表保护密码是一种很弱的保护,使用本文的方法,就可以破解撤销工作表保护密码。


excel密码保护破解方法二:

1、快捷键A1t F11打开vbe编辑器→插入菜单



2、选择插入模块winwin7.com

3、把下面的代码复制过去→然后把光标点到代码里→F5运行一下→工作表保护就破解了。

Sub 破解工作表密码()

   For x = 1 To Sheets.Count

   Sheets(x).Protect AllowFiltering:=True

   Sheets(x).Unprotect

   Next x

End Sub






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

Excel表格被设置了密码保护,无法更改,必须要在里面就是填入正确的密码才能打开的。

上文件破解它。

  • Excel表格如何解除密码保护
    答:1. 查看保护选项:单击Excel表格上方的“审阅”选项卡,查看是否存在“保护工作表”或“保护工作簿”的选项。如果存在,请选择相应选项并输入解锁密码(如果有)。这样就可以解除对表格的保护。2. 解除单元格保护:如果只有某...
  • excel被保护了怎么办?
    答:1、首先在电脑中打开excel表格,点击“审阅”,如下图所示。2、然后点击“撤销工作表保护”,如下图所示。3、如果没有设置密码的情况下,默认密码是空的,就不需要输入密码,可以直接撤销保护。excel具备功能如下:1、基本的...
  • excel表格被保护该怎么取消不知道密码?
    答:使用第三方Excel密码恢复工具,通过分析文件备份数据等方式破解密码。在注册表中找寻密码提示或密码加密密钥,辅助破解保护。直接重新设置Excel的用户名和密码,以管理员身份重置保护。也可以将Excel文件另存为xls格式,这种老格式的保...
  • 怎样解除Excel单元格密码保护?
    答:1. 打开Excel文件,在工作表中选择需要解除保护的单元格区域。2. 在顶部菜单栏中,选择“审阅(Review)”选项卡。3. 在“工具箱(Changes)”组中,点击“保护工作表(Protect Sheet)”按钮旁边的小箭头图标。4. 弹出“...
  • excel表格锁定了,不记得密码怎么解锁?
    答:excel表格锁定了,不记得密码了,可以按照下面的方法进行解锁:1.首先打开设置了工作表保护的表格,可以看到,当我们试图编辑时,会弹出这样的对话框。2.单击文件——选项——自定义功能区——在“开发工具”前打勾——确定...
  • excel表加密码无法读取怎么解决?
    答:1. 确认密码输入正确:在打开加密的Excel表格时,确保准确输入了正确的密码。请注意区分大小写。2. 使用正确的Excel版本:确保您使用的Excel软件版本与创建表格时使用的软件版本相同或更高。不同版本的Excel可能存在不兼容性,...
  • 怎样excel表格加密后没有密码的人可以只读呢
    答:1、比如下表是你需要保护的工作表(数据)2、点击左上角“文件”-“信息”(位于第一行)-“保护工作簿”-“保护当前工作表”3、选择“保护当前工作表”后会弹出如下图所示的界面,4、在弹出的界面上你可以选择允许或...
  • excel表格被设置了密码保护,无法更改,急需破解
    答:1、修改EXCEL文件扩展名 将原始文件:客户销售明细表.xlsx修改为客户销售明细表.zip,这时会变成解压缩格式;2、从zip中复制密保工作表文件 打开压缩后的文件,并在xl\worksheets中找到有密码保护的文件(本例中为sheet7.xml...
  • 表格被保护了怎么解锁
    答:1、首先打开已经被设置保护的excel表格,可以发现编辑栏无法进行操作。2、然后鼠标点击功能区的【审阅】选项,选择【撤销工作表保护】选项。3、接下来,在弹出的【撤销工作表保护】的'密码框里,输入已知密码,点击【确定】。...
  • EXCEL表格被写入保护密码如何解开?
    答:1、打开这个Excel表格文件,然后点击菜单栏中的“文件”2、点击文件后就打开所示的excel设置页面,在“保护工作薄”的位置可以看到加密的说明 3、点击“用密码进行加密”后,打开“加密文档”的对话框 4、删除密码下面输入框...