excel文件找回密码代码

❶ Excel表格密码忘记了怎么办

1.受保护的Excel文档无法修改，输入内容就会出现要求密码的提示框
2.修改文件的后缀名为rar，回车确定
3.双击压缩包，打开xl文件夹
4.打开worksheets文件夹
5.点击sheet1文件，以记事本的格式打开

❷ excel表格设置密码忘记了怎么办

excel表破解密码步骤：

Excel Password Unlocker破解版是一款专业用于微软 Excel 数据库文档的密码破解恢复工具。想必 Excel 应该是办公一族经常用到的吧，如果你的 Excel 密码忘记了你可以尝试使用该软件进行恢复密码或者清除密码。

Excel Password Unlocker 5.0 汉化版是专为恢复丢失的 Microsoft Excel 密码设计，一个易于使用的工具。密码修改被恢复在短短的几秒钟！对于密码打开，Excel Password Unlocker 5.0 中文版提供了三种不同的搜索方法：高级字典破解，暴力破解，以及高级强力使用面具攻击。从97到2007的Excel版本都支持。

方法一：

如果Excel文件的打开密码忘记了，且密码是6位数以内的数字，可用以下步骤解开(关掉所有程序，为了速度)：

新开一Excel，同时按Alt和F11，进入VBA界面，点菜单上的插入，模块，在新出来的窗口粘贴一下代码：

Sub crack()

Dim i As Long

Dim FileName As String

i = 0

FileName = Application.GetOpenFilename("Excel文件(*.xls & *.xlsx),*.xls;*.xlsx", , "VBA破解")

FileName = Right(FileName, Len(FileName) - InStrRev(FileName, ""))

Application.ScreenUpdating = False

line2: On Error GoTo line1

Workbooks.Open FileName, , True, , i

MsgBox "Password is " & i

Exit Sub

line1: i = i + 1

Resume line2

Application.ScreenUpdating = True

End Sub

然后在此界面直接按F5运行此宏，选择文件，等啊等。

方法二：

Excel—“撤销工作表保护密码”的破解并获取原始密码；

1、打开您需要破解保护密码的Excel文件；

2、依次点击菜单栏上的工具---宏----录制新宏，输入宏名字如:aa；

3、停止录制(这样得到一个空宏)；

4、依次点击菜单栏上的工具---宏----宏,选aa,点编辑按钮；

5、删除窗口中的所有字符(只有几个)；

6、关闭编辑窗口；

7、依次点击菜单栏上的工具---宏-----宏，选AllInternalPasswords，运行，确定两次；

8、等一会，就会出现以下对话框：这就是Excel密码对应的原始密码(此密码和原先设置的密码都能打开此文档。再点击确定。Excel的原始密码就被清除了。

❸ 我的excel表格密码忘记了，怎么解密啊

excel表格密码忘记后的解密步骤如下：

1.按住快捷键ALT+F11，然后切换出VBA编辑窗口，如图一；在该窗口的左侧我们的选择那个忘记密码的工作表，比如sheet 1。

❹ Excel文件忘记密码怎么办

可以通过以下步骤解除Excel加密密码：

所需材料：Excel、记事本、解压软件。

一、首版先点击选中被加密的表格文档权，按F2重命名，把文件格式改为RAR。

❺ 我的Excel表，设置了密码，现在忘了，怎么办

1、按住快捷键ALTF11，然后关闭VBA编辑窗口，如图1所示。在窗口的左侧，我们选择忘记密码的版工作表，例如权表1。

❻ excel表格锁后忘记了密码 怎么找回 或者打开电子表格。急！

如果表格被保护了，即开着，但是不能改动，且密码是7位数以内的数字，如下操作：
在Excel窗口，同时按键盘的Alt和F11，点菜单上的插入，模块，在右边新出来的窗口粘贴一下代码：
Sub crackProtect()
Dim i As Long
i = 1
line2:
On Error GoTo line1
Do While True
ActiveWorkbook.Unprotect i
MsgBox "Password is" & i
Exit Sub
Loop
line1:
i = i + 1
Resume line2
End Sub

然后按F5运行此宏。

如果有字母，稍微复杂些，道理是一样的。太长的密码，基本解不开了。

如果Excel文件的打开密码忘记了，且密码是7位数以内的数字，可用以下步骤解开：
新开一Excel，同时按Alt和F11，进入VBA界面，点菜单上的插入，模块，在新出来的窗口粘贴一下代码：
Sub crack()
Dim i As Long
Dim FileName As String
Application.ScreenUpdating = False
i = 1
FileName = Application.GetOpenFilename("Excel文件（*.xls & *.xlsx）,*.xls;*.xlsx", , "VBA破解")
FileName = Right(FileName, Len(FileName) - InStrRev(FileName, "\"))
line2:
On Error GoTo line1
Do While True
Workbooks.Open FileName, , , , i
Workbooks(FileName).Close 0
MsgBox "Password is " & i
Exit Sub
Loop
line1:
i = i + 1
Resume line2
Application.ScreenUpdating = True
End Sub

然后按F5运行此宏

如果有字母，稍微复杂些，道理是类似的。太长的密码，基本解不开了。

若果还有读写密码，且与打开密码一样，将Workbooks.Open FileName, , , , i 改为Workbooks.Open FileName, , , , i, i