请VBA高手帮助编写一下

hylema

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

另外，请教一下，把VB语句写在Thisworkbook下，就可以是所有工作表生效了，对吗？

半百

hylema 发表于 2023-1-29 18:28
非常感谢，已测试，发现2个问题：1、部分单位格无数据时，单元格也被锁定，是否我原文档锁定了，我解锁后 ...

那就不会了

半百

hylema 发表于 2023-1-29 18:41
另外，请教一下，把VB语句写在Thisworkbook下，就可以是所有工作表生效了，对吗？

是的
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Sh代表活动工作表

tanglf188

1. Sub protect()
   
2.     Application.ScreenUpdating = False
   
3.     For i = 1 To Worksheets.Count
   
4.         Set mysh = Sheets(i)
   
5.         mysh.unprotect Password:="123"
   
6.         mysh.Select
   
7.         mysh.Cells.Locked = False
   
8.         mysh.Range("C5:N20").Select '需要锁定的区域，如有多区域请用函数自行设定
   
9.         Selection.Locked = True
   
10.         mysh.protect Password:="123"
    
11.         Cells(5, 3).Select
    
12.     Next
    
13.     Sheet1.Select
    
14.     Application.ScreenUpdating = True
    
15. End Sub
    
16. 
    
17. Sub unprotect()
    
18.     Application.ScreenUpdating = False
    
19.     For i = 1 To Worksheets.Count
    
20.         Set mysh = Sheets(i)
    
21.         mysh.unprotect Password:="123"
    
22.     Next
    
23.     Application.ScreenUpdating = True
    
24. End Sub

复制代码

hylema

半百 发表于 2023-1-30 13:32
是的
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Sh代表活动工作 ...

谢谢高手指点

hylema

tanglf188 发表于 2023-1-30 15:27

谢谢，我测试一下

hylema

重新上传附件：一个工作簿中有3个工作表，需要实现部分空白单元格（C5：N22）填写后只有按保存了，就不能修改，如要修改需输入密码（假设123）。请VBA高手帮小白编写一下代码（务必在附件中修改，便于小白学习），最好代码语句能加一下解释，便于小白学习。不胜感激！谢谢！

hylema

tanglf188 发表于 2023-1-30 15:27

可能是小白操作问题，没用啊，能否在17楼的附件中修改，注意需求有点变化

tanglf188

hylema 发表于 2023-1-30 18:42
可能是小白操作问题，没用啊，能否在17楼的附件中修改，注意需求有点变化

在我这边（Office LTSC2021）测试没问题，现在传了附件，添加了保存触发代码。有事请留言。

准提部林

表格外的應是鎖定吧!
只有表格供輸入區..
1) 空格(可編輯)
2) 非空格(存檔後鎖定), 除非有權限者才可編輯更改(若更改成空格, 則解除鎖定, 讓其它人可再編輯)