保护工作表时不能对整个工作簿执行该动作。 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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024