VBA 中 是一列单元格 不可编辑 而其他的可以编辑
就是查询出来的数据主键那一列 我想让那一列不能编辑 只能看
应该怎么写代码
VBA 中 是一列单元格 不可编辑 而其他的可以编辑
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
分享- 邀请回答
-
2条回答 默认 最新
战在春秋 2017-02-09 07:08关注代码如下：
Cells.Locked = False //单元格初始默认是写保护状态，所以需要先解锁 Columns(1).Locked = True ActiveSheet.Protect解决 无用评论 打赏举报 分享
- 2022-08-17 09:28回答 2 已采纳 这个问题涉及以下知识点1.vba的for循环2.vba怎么获取sheet数据区域的最大行号3.vba中字符串拼接4.vba数组 Sub Demo() Dim i As Integer, j A
- 2021-10-09 09:49回答 2 已采纳 a=Worksheets("sheet1").Range("H" & i).Valuec=Worksheets("sheet1").Range("H" & m).ValueDim z as Integ
- 2021-08-22 00:10回答 1 已采纳 期望的效果图是这样的吗？ 行业券商股票传媒东吴证券完美世界,芒果超媒天下秀传媒方正证券完美世界天下秀 最终要输出excel办不到，excel合并后的单元格字体颜色等设置是唯一的。但是输出为md表格，然
- 2021-01-29 11:27陆小白很白的博客 把一张工作表分为可编辑区域与不可编辑区域，步骤如下： 选中表格中的准备锁定的区域 右键=>“设置单元格格式”=>“保护”=>"锁定"选项打上勾 选中表格中的准备编辑区域 右键=>“设置单元格格式”=...
- 2021-05-12 21:01回答 2 已采纳 默认黑色的，直接设置成黑色就行了吧 Sheets(1).Cells(2, "A").Font.Color = vbBlack
- 2018-12-04 13:48回答 1 已采纳 如果答案对你有帮助，请采纳下 ``` Sub hello() r = ThisWorkbook.Sheets(1).Range("A65535").End(xlUp).Row For i
- 2021-01-12 14:48回答 2 已采纳 第一个需求可以用这段代码 Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long) Private S
- 2023-12-19 17:47拾清心的博客 目前有这样一个场景，需要寻找excel表数据区域中的多个值所在的位置，再用数组保存这些位置，后面可以直接用数组输出，从而定位到对应位置。那么可以用下面这段代码。
- 2022-05-22 19:06回答 2 已采纳 代码都没看懂就用看你的描述，应该是在一列中的数据，和arr数组中存在的某个元素完全一致就删除该行如此，根本不用这么麻烦的代码倒序循环，用内置函数WorksheetFunction.Match()判断数
- 2022-07-13 20:48回答 2 已采纳 Sub test() Dim arr Dim i, j As Integer Dim flag As Boolean arr = Array("张三", "王五", "钱六") flag = True
- 2023-01-09 15:02回答 7 已采纳 Sub CheckMergedCellsAdjacency() Dim rng1 As Range, rng2 As Range Set rng1 = Range("A1:B2")
- 2022-05-13 09:45野生研究员的博客 '本功能可以实现通过判断表格第26列的布尔值来决定是否允许用户修改单元格的值 '不允许修改的逻辑为:保存上一次选中单元格的range和range的value '不允许修改的核心方法是给上一次选中的单元格赋值修改前的值
- 2021-05-18 11:12回答 3 已采纳 代码有点小问题，做了些修改，点击openword过程，按f5后可以打开word文档了 '来源：https://zhidao.baidu.com/question/22140033.html '
- 2023-03-10 18:29是小爱呀的博客 使用VBA控制工作表一二行填写数据后不允许修改
- 2022-03-26 16:33薛定谔_51的博客 单元格内容按指定分隔符拆分为单独一行，或一列
- 没有解决我的问题, 去提问
悬赏问题
- ¥15 如何在scanpy上做差异基因和通路富集？
- ¥20 关于#硬件工程#的问题，请各位专家解答！
- ¥15 关于#matlab#的问题：期望的系统闭环传递函数为G(s)=wn^2/s^2+2¢wn+wn^2阻尼系数¢=0.707，使系统具有较小的超调量
- ¥15 FLUENT如何实现在堆积颗粒的上表面加载高斯热源
- ¥30 截图中的mathematics程序转换成matlab
- ¥15 动力学代码报错，维度不匹配
- ¥15 Power query添加列问题
- ¥50 Kubernetes&Fission&Eleasticsearch
- ¥15 報錯：Person is not mapped，如何解決？
- ¥15 c++头文件不能识别CDialog