功能:解除工作表保護操作
這個例子是将解除表保護做成一個功能函數,可以方便對當前工作薄内的所有表進行解保護,效率很高。
(結尾附代碼)
功能界面首先,打開工作表,輸入工作表保護密碼。單擊解除保護,所有工作表就解開保護了。
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每日頭條,我们将持续为您更新最新资讯!