请VBA高手帮助编写一下

hylema

需求：EXCEL2013环境，一个A工作簿中有N个工作表，需要实现部分空白单元格（假设B3：F20）填写后就不能修改，如要修改需输入密码（假设123）。请VBA高手帮小白编写一下代码，最好代码语句能加一下解释，便于小白学习。不胜感激！谢谢！


补充内容 (2023-1-30 18:43):
需求有点变化，以17楼为准，谢谢

shiruiqiang

1、for each sht in sheets；2、sht.range("b2:f20").locked=flase；3、sht.procked("123")

hylema

shiruiqiang 发表于 2023-1-25 13:04
1、for each sht in sheets；2、sht.range("b2:f20").locked=flase；3、sht.procked("123")

感谢高手的答案，因本人为小白，在知道答案的基础上更想学习，因此能否帮忙写的详细点，这三句语言小白还不知道如何应用，最好加上解释，学习

mmwwdd

hylema 发表于 2023-1-25 19:23
感谢高手的答案，因本人为小白，在知道答案的基础上更想学习，因此能否帮忙写的详细点，这三句语言小白还 ...

你不上传附件怎么帮你

hylema

mmwwdd 发表于 2023-1-26 05:59
你不上传附件怎么帮你

不好意思，我认为表达清楚了，无需附件，是通用的，待我上班后上传附件

hylema

附件上传，附件中指设置了三个工作表，因实际使用过程中会涉及更多的工作表，请大神编写时考虑N个工作表的需求（是否应用循环来完成）

hylema

mmwwdd 发表于 2023-1-26 05:59
你不上传附件怎么帮你

附件在6楼请高手帮助

hylema

shiruiqiang 发表于 2023-1-25 13:04
1、for each sht in sheets；2、sht.range("b2:f20").locked=flase；3、sht.procked("123")

附件在6楼，请高手详细描述，谢谢

半百

请测试，，，

hylema

半百 发表于 2023-1-29 16:54
请测试，，，

非常感谢，已测试，发现2个问题：1、部分单位格无数据时，单元格也被锁定，是否我原文档锁定了，我解锁后可以。2、麻烦稍作修改，改成保存文档后不能修改，因为这修改权限到时给管理员的，在输入过程中还是允许修改，但当保存后，要再改就要管理员同意，这样可操作性会更强。