EXCEL里所有工作表能否一次性
保护工作表时不能对整个工作簿执行该动作。
1、用宏可以完成,但过于复杂~(代码不复杂,但要执行该宏时至少有一个含有该宏的文件处于打开状态)
2、通过自定义,把保护工作表放到快捷栏,点一下,然后搞回车就可以保护了吧。
宏代码如下(保存为工作薄,要使用时打开该工作薄,选中其他工作薄,执行相应的宏即可):
Sub suo()
'工作簿内各工作表加锁
For i = 1 To Sheets。Count
Sheets(i)。 Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Next
End Sub
Sub jie()
...全部
保护工作表时不能对整个工作簿执行该动作。
1、用宏可以完成,但过于复杂~(代码不复杂,但要执行该宏时至少有一个含有该宏的文件处于打开状态)
2、通过自定义,把保护工作表放到快捷栏,点一下,然后搞回车就可以保护了吧。
宏代码如下(保存为工作薄,要使用时打开该工作薄,选中其他工作薄,执行相应的宏即可):
Sub suo()
'工作簿内各工作表加锁
For i = 1 To Sheets。Count
Sheets(i)。
Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Next
End Sub
Sub jie()
'工作簿内各工作表解锁
For i = 1 To Sheets。
Count
Sheets(i)。Unprotect
Next
End Sub
。收起