如何清除工作表保护密码

wdfcpa

Excel中保护工作表具有锁定公式的功能,密码忘记了,如何清除

wdfcpa

有哪位大朋友了解,请指教,急:wdf01@126.com

gvntw

欢迎wdfcpa!

下载个破解软件。http://www.newhua.com/soft/9704.htm

jame

请版主能否下载了放在资源共享板块，我的电脑被禁止上这个网站。

UNARTHUR

用蓝版主提供的代码吧，非常方便，不用再下什么软件了

Sub PasswordBreaker() 'Author unknown 'Breaks worksheet password protection. Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer On Error Resume Next For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) If ActiveSheet.ProtectContents = False Then MsgBox "One usable password is " & Chr(i) & Chr(j) & _ Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) Exit Sub End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next End Sub

密码越长破解时间花得越多，但是一般不会超过半分钟

[此贴子已经被作者于2005-2-27 16:30:44编辑过]

fcy

试一试，真是好

LCY-726

请教五楼朋友怎么用?

aichong

什么都不用：

Ctrl+A选中整个工作表（或左键点击行号与列标相交的空白区域）→复制→插入→工作表（或在标签栏点右键：插入→工作表），插入一个新的工作表→Ctrl+A→粘贴，这样就解除了工作表的密码，然后将原带密码的工作表删除即可。

xxiaoa

在学习中提高

tvrent

3楼推荐的时DEMO版，我试用了下，解不了。呵呵