Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

工作中常用的Excel函数公式,全印在一张超大鼠标垫上
查看: 170|回复: 9

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

[复制链接]
发表于 2021-9-9 17:56 | 显示全部楼层 |阅读模式
本帖最后由 lixiaofeng1997 于 2021-9-9 18:07 编辑

用VBA设置单元格可编辑区域,其他区域不允许编辑
微信图片_20210909180435.png
发表于 2021-9-9 19:11 | 显示全部楼层
Sub pr()
Sheet1.Unprotect
Sheet1.Cells.Locked = True
Sheet1.Range("G7:H13,J7:K13,M7:N13").Locked = False
Sheet1.Protect
End Sub
回复

使用道具 举报

 楼主| 发表于 2021-9-10 08:58 | 显示全部楼层
lisongmei 发表于 2021-9-9 19:11
Sub pr()
Sheet1.Unprotect
Sheet1.Cells.Locked = True

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

使用道具 举报

发表于 2021-9-10 09:44 | 显示全部楼层
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
回复

使用道具 举报

 楼主| 发表于 2021-9-10 11:01 | 显示全部楼层
lisongmei 发表于 2021-9-10 09:44
Sub pr()
Sheet1.Unprotect
Sheet1.Cells.Locked = True

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

弯钢参数运算.zip

12.41 KB, 下载次数: 5

回复

使用道具 举报

发表于 2021-9-10 12:04 | 显示全部楼层
lixiaofeng1997 发表于 2021-9-10 11:01
具体情况如表格所示,谢谢

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

使用道具 举报

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

这个问题VBA里可以实现吗?
回复

使用道具 举报

发表于 2021-9-10 14:07 | 显示全部楼层
lixiaofeng1997 发表于 2021-9-10 13:05
这个问题VBA里可以实现吗?

肯定可以啊,你录制个宏就知道了。录出来如下
  1. Sub 宏1()
  2. '
  3. ' 宏1 宏
  4. '

  5. '
  6.     ActiveWindow.FreezePanes = False
  7.     ActiveWindow.Zoom = 55
  8.     Range("H38").Select
  9.     ActiveWindow.FreezePanes = True
  10.     ActiveWindow.Zoom = 100
  11. End Sub
复制代码





回复

使用道具 举报

 楼主| 发表于 2021-9-11 12:46 | 显示全部楼层
lisongmei 发表于 2021-9-10 14:07
肯定可以啊,你录制个宏就知道了。录出来如下

还是不行
回复

使用道具 举报

发表于 2021-9-11 13:11 | 显示全部楼层

那算了,反正我的行。

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2021-9-16 19:32 , Processed in 0.206326 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表