作者:乔山办公网日期:
返回目录: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运行此宏。
如果有字母,稍微复杂些,e69da5e6ba907a686964616f333道理是一样的。太长的密码,基本解不开了。
如果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
excel表格锁定了,不记得密码了,可以按照下面的方法进行解锁:
1.首先打开设置了工作表保护的表格,可以看到,当我们试图编来辑时,会弹出这样的对话框。
2.单击文件——选源项——自定义功能区——在“开发工具”前打勾——确定。
3.单击工具栏——开发工具——宏,新建宏。然后保存。
4.保存之后,运行该宏,即可弹出显示密码的窗口。单击确定,然后输入密码即可实现解锁。zhidao
如果表格被保护了,即开着,但是不能改动,且密码是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位数以内的数字,可用以下步骤解开e799bee5baa6e997aee7ad94e58685e5aeb9338:
新开一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