作者：绿色风
分类：
时间：2022-08-17
浏览：226
楼主
kevinchengcw |
Q: 如何用VBA代码禁止选中某一行上的单元格？
A: 有些情况下我们不希望用户更改工作表上的某些单元格的内容，也许你会选择不停的将修改过的内容改回来，但是也可以尝试一下下面的方法，让用户无法选中被禁止的单元格区域（本例为工作表的每六行），代码如下：- Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
- Dim Rng As Range
- If Target.Rows.Count = 1 And Target.Row = 6 Then '如果选择区域只有一行，且是第六行时
- Set Target = Target.Offset(1, 0) '选择区域下移一行
- Target.Select '选中新的区域
- Else
- Set Rng = Union(Rows("1:5"), Rows("7:" & Rows.Count)) '设定一个除第六行之外的其他行的单元格区域变量
- Set Target = Intersect(Target, Rng) '否则，设定选择区域为与除第六行之外的其他行的交集
- Target.Select '选中新的区域
- End If
- End Sub
当工作簿打开启用宏后则无法选中第六行的内容。
以上代码放入了工作表的selectionchange事件中，仅对当前工作表有效，如欲对全部工作表有效，将代码写入workbook_sheetselectionchange事件中即可。
具体使用中请全面考虑VBA代码的安全特性。
使用实例参见http://www.exceltip.net/thread-8737-1-1.html
的7楼
附示例文件。
 禁止选中第六行.rar
|
2楼
fas1314 |
谢谢你。正需要学习这个方法 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一