[问题] EXCEL如何不影响网底使用保护所有工作表

楼主: Panzeroid (Panzeroid)   2019-09-02 18:58:34
软件:EXCEL
版本:2016
目前公司在EXCEL里做出跟当月天数相同数量的工作表来回报每日业绩
因为都有设定好函数了为了怕有人手残去动到都有上锁保护
不过只能很没效率的一个一个工作表上锁
负责处理的同事问我有没有能够一次全部上锁的方法
我上网帮他找了一个利用VBA来全部上锁的指令
指令如下:
"在EXCEL里
Alt+F11.....开启VBA视窗
Ctrl+G.....在即时运算里写入以下指令
批次上锁
For Each ws In Worksheets : ws.Protect Password:="密码" : Next ws
批次解锁
For Each ws In Worksheets : ws.Unprotect Password:="密码" : Next ws
即可达到一次密码,所有工作表都一起锁定!!
可是这个指令会导致字型,对齐方式,数值等指令一并被锁住
原本手动上锁就没有这个问题,因为还需要将当日休假人员利用网底改色标注出来
请问是否有不影响使用网底将储存格填色的功能还可以一次锁上全部工作表的指令呢?
锁定前:https://i.imgur.com/kWGZQJ8.png
锁定后:https://i.imgur.com/B4rJTtg.png
作者: soyoso (我是耀宗)   2019-09-02 19:06:00
ws.protect password:="密码",allowformattingcells:=true
楼主: Panzeroid (Panzeroid)   2019-09-02 19:49:00
TO: S大 所以是要弄成For Each ws In Worksheets : ws..protect password:="密码",allowformattingcells:=true : Next ws吗?然后解锁则是沿用我上面找到的就可以?
作者: soyoso (我是耀宗)   2019-09-02 20:04:00
保护和取消保护工作表方面都如原po回文所述方式
楼主: Panzeroid (Panzeroid)   2019-09-02 20:09:00
好的,感谢指点!

Links booklink

Contact Us: admin [ a t ] ucptt.com