Sub FindProtectedWorksheets()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.ProtectContents Then
MsgBox "Worksheet '" & ws.Name & "' is protected."
End If
Next ws
End Sub
vba 查看保护的worksheet
最新推荐文章于 2024-07-05 13:24:32 发布