excel表为什么设置密码打不开怎么办

发布网友发布时间：2022-04-22 11:53

共3个回答

热心网友时间：2023-07-11 15:39

新开一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运行此宏，选择文件，等待即可（看密码长度了）。

热心网友时间：2023-07-11 15:39

你的表格在筛选状态,可以通过筛选显示全部项目
也可以执行一次筛选菜单操作,就可以取消筛选了.
筛选状态下行号颜色偏蓝

热心网友时间：2023-07-11 15:39

首先将表格另存为文本.TXT，用写字本打开，全选，复制，再开空白Excel。黏贴。即可