如何通过单击保护Excel工作簿中的所有工作表？

Question

我的工作簿(Excel电子表格)中有大约25个工作表.有没有办法可以一键保护所有25个工作表？或者此功能不可用,我将不得不编写一个VBA代码来完成此任务.我经常需要保护所有纸张并取消所有纸张的保护,单独进行操作非常耗时

Answer 1

我不相信没有使用VBA就可以做到这一点.如果您对VBA解决方案感兴趣,请输入以下代码:

Dim ws as Worksheet
Dim pwd as String

pwd = "" ' Put your password here
For Each ws In Worksheets
    ws.Protect Password:=pwd
Next ws

取消保护实际上是相同的:

Dim ws as Worksheet
Dim pwd as String

pwd = "" ' Put your password here
For Each ws In Worksheets
    ws.Unprotect Password:=pwd
Next ws