EXCEL怎么保护多个列表

来源：百度知道 编辑：UC知道 时间：2024/05/20 19:28:36
如何保护同一个EXCEL中的多个工作表，急！！！（不要一个个保护，我希望一步到位，一遍一次保护，太多了，有300多个工作表，累死，跪求）
麻烦再列举下解除群保护的程序，谢谢

用VBA做

代码是

Sub pljm()
Dim i As Integer, j As Integer
i = Application.Worksheets.Count
For j = 1 To i
Sheets(j).Protect Password:=123
Next
End Sub

密码是123，想改为你自己的密码，只需改动这句

Sheets(j).Protect Password:=123

改为
Sheets(j).Protect Password:=你自己的密码

补充

批量解码

换这句

Sheets(j).Unprotect Password:=123

VBA代码如下：
Sub Macro1()
dim i as integer
For i = 1 To 3
Worksheets(i).Protect Password:=123
Next
End Sub

备注：
i = 1 To 3，表示表1到表3进行保护，如果从第二个表到第十个表进行保护，将此句改为i = 2 To 10
Worksheets(i).Protect Password:=123，表示密码为123，如密码设为456，将此句改为 Worksheets(i).Protect Password:=456