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