对指定区域的单元格进行锁定与解锁（已解决）

aman1516

ljc6 发表于 2017-8-25 13:49
如果，单元格内有函数公式的话，好像就不行了
还有，代码里的，2，23 是什么意思，能不能解释一下，
非常 ...

Range.SpecialCells 方法
返回一个 Range 对象，该对象代表与指定类型和值匹配的所有单元格。
语法

表达式.SpecialCells(Type, Value)

表达式   一个代表 Range 对象的变量。

参数

名称 必选/可选 数据类型 描述
Type 必选 XlCellType 要包含的单元格。
Value 可选 Variant 如果 Type 为 xlCellTypeConstants 或 xlCellTypeFormulas，则该参数可用于确定结果中应包含哪几类单元格。将这些值相加可使此方法返回多种类型的单元格。默认情况下，将选择所有常量或公式，无论类型如何。

返回值
Range

说明


XlCellType 常量 值
xlCellTypeAllFormatConditions：任意格式单元格 -4172
xlCellTypeAllValidation：含有验证条件的单元格 -4174
xlCellTypeBlanks：空单元格 4
xlCellTypeComments：含有注释的单元格 -4144
xlCellTypeConstants：含有常量的单元格 2
xlCellTypeFormulas：含有公式的单元格 -4123
xlCellTypeLastCell：已用区域中的最后一个单元格 11
xlCellTypeSameFormatConditions：含有相同格式的单元格 -4173
xlCellTypeSameValidation：含有相同验证条件的单元格 -4175
xlCellTypeVisible：所有可见单元格 12

XlSpecialCellsValue 常量 值
xlErrors 16
xlLogical 4
xlNumbers  1
xlTextValues 2

如示例中的代码，2代表 含有常量的单元格
xlCellTypeFormulas, 代表 含有公式的单元格

公式单元格‘、’下拉列表单元格’ 都能锁定的

aman1516

稍修改了一下，按需选择区域、整行、整列等，更灵活通用一些，对于锁定哪些单元格，大家可依照21楼的参数自己指定吧
对选定区域进行锁定与解锁.rar (14.26 KB, 下载次数: 714)

2017-8-25 20:23 上传

点击文件名下载附件

避免溢出，屏蔽了全选工作表的情况，若需要的话，将下面这句
   If rng Is Nothing Or rng.Address(0, 0) = "1:" & Rows.Count Then
改成
   If rng Is Nothing Then
就行了。

ljc6

aman1516 发表于 2017-8-25 20:28
稍修改了一下，按需选择区域、整行、整列等，更灵活通用一些，对于锁定哪些单元格，大家可依照21楼的参数自 ...

好用，可是不会用
那个按钮，怎么做出来啊
怎么和代码关联

ljc6

ljc6 发表于 2017-8-26 09:56
好用，可是不会用
那个按钮，怎么做出来啊
怎么和代码关联

可以了，如果要启用按钮，必需输入密码，怎么做到，谢谢

ljc6

为什么过了一天，就不能用了，昨天还可以，今天就不行了

ljc6

aman1516 发表于 2017-8-25 20:28
稍修改了一下，按需选择区域、整行、整列等，更灵活通用一些，对于锁定哪些单元格，大家可依照21楼的参数自 ...

你好，为什么，过昨天还可以用，今天就不行了呢

ljc6

aman1516 发表于 2017-8-25 20:28
稍修改了一下，按需选择区域、整行、整列等，更灵活通用一些，对于锁定哪些单元格，大家可依照21楼的参数自 ...

这个提示怎么解决，请教高手帮忙

大卫龙

厉害！厉害！

maolintan

aman1516 发表于 2012-5-30 11:23
弄了一个晚上，东拼西凑，终于搞掂：

Private Sub Worksheet_Change(ByVal Target As Range)

   Range("A5:D28").SpecialCells(2, 23).Locked 中参数2.23表示什么意思啊

aman1516

maolintan 发表于 2019-11-4 09:59
Range("A5:D28").SpecialCells(2, 23).Locked 中参数2.23表示什么意思啊

请看21楼说明