manbet网

188bet
 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 181|回复: 10
打印 上一主题 下一主题

锁定对勾行的数据不被修改

[复制链接]
跳转到指定楼层
1楼
发表于 2021-6-10 09:46 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
本帖最后由 hhxq001 于 2021-6-11 10:05 编辑

需求:e列某行打√后,该行自动锁定不允许修改,但e列本身不锁定;f列某行填入“作废”后,同样该行自动锁定不允许修改,但f列本身也不锁定可以修改。其他没有√或作废的行仍然可以自由编辑。求高手代码怎么实现。

求助-对勾和作废行锁定.zip (18.17 KB, 下载次数: 5)
分享到:  QQ好友和群QQ好友和群
收藏收藏
2楼
发表于 2021-6-10 12:23 | 只看该作者
下面方法我是录制宏得到的,所以某些参数你也别细究:
1、先解释下我对锁定单元格的理解:
     单元格默认都是锁定的(右键-保护中能看到),但锁定需要有个前提条件:保护工作表,所以单元格默认虽然上锁但还是能被编辑;
     保护工作表会对所有上锁的单元格执行锁定,因此要选择性锁定,需要先对单元格默认的上锁先进行解锁,不然在保护工作表后,所有的单元格都不能被编辑;

2、具体方法,假设以勾选 e4单元格为例:
     在开发工具-插入-复选框,注意是第一排的窗体控件,有注释的,不是第二排的activeX控件,ActiveX控件属于外部控件,工作方法不太一样;
     用鼠标拖到e4单元格,要精确对齐,改用ctrl+箭头移动;

3、设置控件格式,右键-控制-单元格连接,输入f4,意思是复选框的结果会填入到f4单元格中,因此需要有一列做为复选框写入值的备用列,这个备用列可以是任意列,如果f列也是数据录入列,就改成用不到的n列好了,为了视觉上的美观,这个列可以掩藏;

4、右键控件,选择宏,输入代码:
     ActiveSheet.Unprotect       '取消工作表保护
     Cells.Locked = False         '所有单元格解锁
     If Range("f4") Then          'f4为真,表示复选框选中
        Rows("4:4").Locked = True         '第4行上锁
        Range("e4:f4").Locked = False    'e4:f4取消上锁,因为复选框对应f4,如果不取消,复选框就不能被再次设定;
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True      '保护工作表,上锁的单元格才能被真正锁定
     End If


3楼
 楼主| 发表于 2021-6-10 15:54 | 只看该作者
能不能直接做好了呢,不太懂,看糊涂了
4楼
发表于 2021-6-10 16:37 | 只看该作者
hhxq001 发表于 2021-6-10 15:54
能不能直接做好了呢,不太懂,看糊涂了

代码只是测试了你要求的锁定一行,就是第4行。f4会有复选框的结果,为了美观,实际应用中可以掩藏它;关于列的锁定,方法类似,但这个代码里没有包含它;



工作簿1.rar

15.89 KB, 下载次数: 6

5楼
发表于 2021-6-10 17:58 | 只看该作者
可以上传个附件。
6楼
 楼主| 发表于 2021-6-11 10:05 | 只看该作者

锁定对勾行的数据不被修改

yyy423827 发表于 2021-6-10 17:58
可以上传个附件。

记得上传附件了,不知怎么就没有了,最近我的网络也不正常,现在重新上传。
求助-对勾和作废行锁定.zip (18.17 KB, 下载次数: 1)
7楼
 楼主| 发表于 2021-6-11 10:47 | 只看该作者
hfwufanhf2006 发表于 2021-6-10 16:37
代码只是测试了你要求的锁定一行,就是第4行。f4会有复选框的结果,为了美观,实际应用中可以掩藏它;关 ...

不是我需要的方式,看下1楼附件啦
8楼
发表于 2021-6-11 12:11 | 只看该作者
hhxq001 发表于 2021-6-11 10:47
不是我需要的方式,看下1楼附件啦

你之前没有附件,我还以为是用控件复选框,那你就试试下面这个;我只是简单测试了下,感觉差不多了,你要多测试下;

副本求助-对勾和作废行锁定.rar

24.7 KB, 下载次数: 4

9楼
查看详细资料 发表于 2021-6-11 13:39 | 只看该作者
本帖最后由 yyy423827 于 2021-6-11 13:54 编辑
hhxq001 发表于 2021-6-11 10:47
不是我需要的方式,看下1楼附件啦

见附件

求助-对勾和作废行锁定.rar

23.64 KB, 下载次数: 2

10楼
 楼主| 发表于 2021-6-11 16:52 | 只看该作者
哈哈,两位大侠的方法异曲同工啊,厉害
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|manbet ( )

GMT+8, 2021-6-28 17:42 , Processed in 0.124800 second(s), 7 queries , Gzip On, Redis On.

Powered by X3.4

Copyright © 2001-2020, Tencent Cloud.

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