[已解决]如何锁定单元格

france723

想实现 单元格H,I,J三列被保护, 不能手动删除或修改.
只能通过窗体进行编辑(窗体已有).
求大神帮忙

最佳答案

月排行榜 / 总排行榜

砂海

2017-4-14 21:46

选中整个工作表 > 右键  >设置单元格格式 > 保护 > 取消勾选
在需要单元格 > 右键  >设置单元格格式 > 保护 > 勾选

然后执行代码
Sheets("工作表名称").Protect Password:="密码", UserInterfaceOnly:=True

跳转到最佳答案楼层

砂海

Wb.Sheets("XX").Protect Password:="", UserInterfaceOnly:=True '如果为 True，则保护工作表后，可以用宏操作

france723

砂海 发表于 2017-4-14 20:04
Wb.Sheets("XX").Protect Password:="", UserInterfaceOnly:=True '如果为 True，则保护工作表后，可以用宏 ...

老师, 我想实现的是 工作表"F1"中单元格H,I,J三列被保护, 请问具体代码是什么?

大灰狼1976

1、先全选单元格，右键设置单元格格式、保护、取消锁定复选框；
2、选中H、I、J三列，同样右键设置单元格格式、保护、锁定；
3、再运行楼上代码；
4、之后除H、I、J三列以外，可以手动编辑内容，H、I、J三列必须通过宏操作进行编辑，或者先取消保护后才能编辑。

砂海

选中整个工作表 > 右键  >设置单元格格式 > 保护 > 取消勾选
在需要单元格 > 右键  >设置单元格格式 > 保护 > 勾选

然后执行代码
Sheets("工作表名称").Protect Password:="密码", UserInterfaceOnly:=True

france723

大灰狼1976 发表于 2017-4-14 21:43
1、先全选单元格，右键设置单元格格式、保护、取消锁定复选框；
2、选中H、I、J三列，同样右键设置单元格 ...

谢谢大灰狼师傅

france723

砂海 发表于 2017-4-14 21:46
选中整个工作表 > 右键  >设置单元格格式 > 保护 > 取消勾选
在需要单元格 > 右键  >设置单元格格式 > 保 ...

谢谢大神

france723

大灰狼1976 发表于 2017-4-14 21:43
1、先全选单元格，右键设置单元格格式、保护、取消锁定复选框；
2、选中H、I、J三列，同样右键设置单元格 ...

师父, 如何解锁单元格, 右键没办法设置单元格格式, VBA如何编写

大灰狼1976

如果是上述代码保护的工作表，可以用
Sheets(1).Cells.Locked = False解锁单元格，区域自己设，
用其他方法保护的工作表，就要用代码先取消保护再解锁。

france723

大灰狼1976 发表于 2017-4-19 15:44
如果是上述代码保护的工作表，可以用
Sheets(1).Cells.Locked = False解锁单元格，区域自己设，
用其他方 ...

区域如何设阿, 右键没办法设置单元格格式.
是这样的师父, 我写的是 Sheets("1").Protect Password:="", UserInterfaceOnly:=True, 但是通过宏操作进行编辑总报错1004.
改写Sheets("1").Protect Password:="1", UserInterfaceOnly:=True, 就不报错了