功能：解除工作表保護操作
這個例子是将解除表保護做成一個功能函數，可以方便對當前工作薄内的所有表進行解保護，效率很高。
（結尾附代碼）
功能界面首先，打開工作表，輸入工作表保護密碼。單擊解除保護，所有工作表就解開保護了。
reProtect() '解除所有表保護
Sub reProtect() '解除所有表保護 On Error Resume Next Dim sheetPW As String sheetPW = VBA.UCase(VBA.Trim(Me.TextBox1.Value)) If VBA.Len(sheetPW) = 0 Then MsgBox "密碼不能為空值！": Exit Sub Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets If ws.ProtectContents = True Then '判斷是否保護 ws.Activate ActiveSheet.Unprotect Password:=sheetPW End If Next ws If VBA.Err.Number <> 0 Then MsgBox ActiveSheet.Name & "密碼錯誤，請重新輸入！": Exit Sub MsgBox "表保護解除成功！", vbOKOnly, "成功" end sub
解除保護對應的是設置表保護，關注江覓，查看更多内容。
更多
- Excel 設置工作表保護
- 一個工作表拆分成多個文件
,
- 多個工作表合并成一個
更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!
zpostcode 
Recruit 
weather 
mreligion 
Yellowpages 
sport 
constellation 
shopping 
name 
game 
directory 
literature 
Word 
tour 
furnish 
Lottery 
tftnews 
lyrics 
News 
digital 
car 
dir 
Edu 
Finance 
