EXCEL请问设置宏，一次性把所有工作表全部锁定保护，密码可设定修改，并且可以编辑对象。

Question

Sub protect()
Dim i
For i = 1 To Sheets.Count
Sheets(i).protect Password:="123"
Next
End Sub
请问如何添加编辑对象功能！非常感谢

Answer 1

1、要在表锁定后，还能编辑对象，首先需要对该对象取消“锁定”，手动操作如下：
右键点击该对象，选“设置对象(/图表)格式”，在弹出对话框中，找到“锁定”复选框，默认都是勾上的，取消它的勾选。
2、用如下VBA宏批量锁定工作表，
Sub protect()
Dim i
For i = 1 To Sheets.Count
'用以下这句批量自动取消各表中图形对象的锁定
Sheets(i).Shapes.Locked = msoFalse
Sheets(i).protect Password:="123", DrawingObjects:=False, Contents:=True, Scenarios:= True
Next
End Sub