怎么找到excel表格的口令

1.如何查找电脑里面所有密码的Excel文件

请尝试如下步骤：1、在Excel里面随便新建一个工作簿；2、键入Alt+F11，打开VBA编辑环境，执行菜单命令“插入-模块”；3、在代码编辑区里面粘贴如下代码：Option ExplicitConst g_strRootPath = "c:\Temp\docs\Excel\" ' 存放所有文件的目录，可以有子目录Dim g_nRowIndex As IntegerSub () On Error Resume Next Dim fso, oFolder Cells.Clear Cells(1, 1) = "带有密码保护的文件" Cells(1, 1).Font.Bold = 1 g_nRowIndex = 2 Set fso = CreateObject("Scripting.FileSystemObject") Set oFolder = fso.GetFolder(g_strRootPath) fso, oFolder Columns("A:A").EntireColumn.AutoFit Columns("A:A").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _ :=xlPinYin, DataOption1:=xlSortNormalEnd SubSub (fso, oFolder) Dim oSubFolder, oFile Dim strExt As String For Each oSubFolder In oFolder.SubFolders fso, oSubFolder Next For Each oFile In oFolder.Files strExt = LCase(fso.GetExtensionName(oFile.Path)) If (strExt = "xls") Or (strExt = "xlsx") Then If (oFile.Path) Then ActiveSheet.Cells(g_nRowIndex, 1) = oFile.Path g_nRowIndex = g_nRowIndex + 1 End If End If NextEnd SubFunction (strFileName As String) As Boolean On Error Resume Next Dim oWorkbook As Workbook Set oWorkbook = Workbooks.Open(Filename:=strFileName, Password:="") If oWorkbook Is Nothing Then = True Exit Function Else oWorkbook.Close = False End IfEnd Function4、修改代码中的那个g_strRootPath参数，设置为存放所有Excel文件的根目录；5、键入F5运行，直到提示“完成！”；6、键入Alt+Q返回Excel主窗口，可以看到当前工作表的第一列里面列举出了在指定目录下所有加了密的文件完整路径。

请注意，这里所能检测到的为Excel文件设置的加密，只能是通过菜单“工具-选项-安全性”设置的“打开权限密码”这种形式的加密。其它形式的加密这个方法不适用。

如果需要判断其它形式加密（比如通过菜单“工具-保护”），请补充提问或和我联系。

2.如何找回EXCEL的密码

Intelore Excel Password Recovery 可以帮助你快速的找回丢失或者遗忘的Excel文档的密码，支持Excel 2003/XP/2002/2000/97等各个版本，程序支持包括 "brute-force"破译技术，基于字典的破译技术和非常快速的"Booost-Up"破译技术三种破译方式，并具有类似于断点续传的功能，可以在你中断了破译之后，自动记忆并可以在下次继续从上次中断的地方继续破译过程，非常实用

软件下载地址：