功能：解除工作表保护操作

这个例子是将解除表保护做成一个功能函数，可以方便对当前工作薄内的所有表进行解保护，效率很高。

（结尾附代码）

功能界面

首先，打开工作表，输入工作表保护密码。单击解除保护，所有工作表就解开保护了。

解除函数

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 设置工作表保护一个工作表拆分成多个文件多个工作表合并成一个,