如何同时对一个excel的多个sheet进行保护,

发布网友发布时间：2022-04-28 11:11

共3个回答

热心网友时间：2023-10-02 16:04

Sub t()
Dim s As Worksheet

For i = 1 To ThisWorkbook.Sheets.Count
Set s = ThisWorkbook.Sheets(i)
s.Protect ("password")
Next
End Sub

运行一下就可以了。注意：上面程序设定了保护密码 “password”

热心网友时间：2023-10-02 16:05

sub Protect()
dim i as integer
for i=1 to thisworkbook.sheets.count
sheets(i).protect password:="$$$",drawingobjects:=true,contents:=true
next
end sub
运行上面的宏代码即可，"$$$"是你想要添加的工作表保护密码，后面drawingobjects和contents参数可省。

热心网友时间：2023-10-02 16:05

用审阅菜单中的保护工作簿追问不是那个，是要保护所有表格里面含有公式的单元格

追答这个很好办呀，把你需要保护的单元格区域选定，在设置单元格格式的“保护”页中钩选“锁定”复选框，把需要修改的单元格的锁定复选框的钩去掉，这时你再保护工作簿，被锁定的单元格就不能修改了，而没有锁定的单元格照常修改不受影响。