今天幫同事解決個EXCEL問題，現記在這，以作備忘

現象： 想要修改保護單元 格的內容，在使用“工具”菜單“保護”子菜單的“撤消工作表保護”命令，這時要求輸入密碼。

解決方案：網上找到一文http://www.excel123.cn/Article/excelvba/200812/126.html

1.按Alt+F11，打開VBA編輯器。

??? 2.在“工程”窗口中選擇要取消保護的工作表名稱，單擊菜單“插入→模塊”。

??? 3.在右側的代碼窗口中輸入下列代碼：

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 As Integer, i3 As Integer
?? Dim i4 As Integer, i5 As Integer, 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 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 "已經解除了工作表保護！"
???????? Exit Sub
?? End If
?? Next: Next: Next: Next: Next: Next
?? Next: Next: Next: Next: Next: Next
End Sub

?? 4.關閉VBA編輯器，回到工作表中，按Alt+F8，打開“宏”對話框，選擇“Remove_WorkSheet_Password”，并單擊“執行”按鈕。稍等片刻工作表保護將被取消。

???

轉載于:https://www.cnblogs.com/yuanbao/archive/2009/05/31/1492961.html

總結

以上是生活随笔為你收集整理的用VBA去除Excel工作表保护密码的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。