这个代码以前可以解除有密的工作表，怎么不能用了 哪位大佬能指导下嘛

179319104

Sub Remove_WorkSheet_Password()
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 AsInteger, i3 As Integer
Dim i4 As Integer, i5 AsInteger, i6 As Integer
On Error Resume Next
If ActiveSheet.ProtectContents= False Then
MsgBox "该工作表没有保护密码！"
Exit Sub
End If
For i = 65 To 66: For j = 65 To66: For k = 65 To 66
For l = 65 To 66: For m = 65 To66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65To 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 "已经解除了工作表保护！"
Exit Sub
End If
Next: Next: Next: Next: Next:Next
Next: Next: Next: Next: Next:Next
End Sub

zxnwda

程序没问题，只是你复制的时候少了几个空格

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
Dim pswd As String
On Error Resume Next
If ActiveSheet.ProtectContents = False Then
MsgBox "该工作表没有保护密码！"
Exit Sub
End If
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

179319104

zxnwda 发表于 2024-10-11 12:16
程序没问题，只是你复制的时候少了几个空格

Dim i As Integer, j As Integer, k As Integer

大佬 没看明白 少了哪里的空格啊

zxnwda

正确的我发给你了呀

LIUZHU

解除密码保护，需要密码吧