用VBA设置单元格可编辑区域

lixiaofeng1997

用VBA设置单元格可编辑区域，其他区域不允许编辑

lisongmei

Sub pr()
Sheet1.Unprotect
Sheet1.Cells.Locked = True
Sheet1.Range("G7:H13,J7:K13,M7:N13").Locked = False
Sheet1.Protect
End Sub

lixiaofeng1997

lisongmei 发表于 2021-9-9 19:11
Sub pr()
Sheet1.Unprotect
Sheet1.Cells.Locked = True

代码放入后，除了可编辑区域外的其他区域仍能点击编辑状态，我想通过VBA代码让其他区域点击都没有反应。

lisongmei

lixiaofeng1997 发表于 2021-9-10 08:58
代码放入后，除了可编辑区域外的其他区域仍能点击编辑状态，我想通过VBA代码让其他区域点击都没有反应。
...

Sub pr()
Sheet1.Unprotect
Sheet1.Cells.Locked = True
Sheet1.Range("G7:H13,J7:K1233,M7:N13").Locked = False
Sheet1.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

lixiaofeng1997

lisongmei 发表于 2021-9-10 09:44
Sub pr()
Sheet1.Unprotect
Sheet1.Cells.Locked = True

具体情况如表格所示，谢谢

lisongmei

lixiaofeng1997 发表于 2021-9-10 11:01
具体情况如表格所示，谢谢

亲，你这个并不是不可以编辑，你这个只是把你显示的区域冻结了而已。。。。。。。造成一种没法 显示与选择 其他区域的假象。。。。

lixiaofeng1997

lisongmei 发表于 2021-9-10 12:04
亲，你这个并不是不可以编辑，你这个只是把你显示的区域冻结了而已。。。。。。。造成一种没法 显示与选 ...

这个问题VBA里可以实现吗？

lisongmei

lixiaofeng1997 发表于 2021-9-10 13:05
这个问题VBA里可以实现吗？

肯定可以啊，你录制个宏就知道了。录出来如下

1. Sub 宏1()
   
2. '
   
3. ' 宏1 宏
   
4. '
   
5. 
   
6. '
   
7.     ActiveWindow.FreezePanes = False
   
8.     ActiveWindow.Zoom = 55
   
9.     Range("H38").Select
   
10.     ActiveWindow.FreezePanes = True
    
11.     ActiveWindow.Zoom = 100
    
12. End Sub

复制代码

lixiaofeng1997

lisongmei 发表于 2021-9-10 14:07
肯定可以啊，你录制个宏就知道了。录出来如下

还是不行

lisongmei

lixiaofeng1997 发表于 2021-9-11 12:46
还是不行

那算了，反正我的行。