excel中使用vba如何能够实现如果我这个单元格里的内容是1则另一个单元格锁定，不允许修改，

Posted 2023-04-18

如果是2则又可以修改了

假定A1单元为1，B1锁定，A1变为2时解锁。以下代码能满足你的要求：

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address <> "$A$1" Then Exit Sub
   ActiveSheet.Unprotect
   If Target = 1 Then Range("B1").Locked = True
   If Target = 2 Then Range("B1").Locked = False
   ActiveSheet.Protect
End Sub

注意两点：一是代码不能写在模块里，就写在工作表代码区，二是在写代码前先将所有单元格解锁：

参考技术A 这个要代码的事件才能完成。工作表保护，可设密码，不过容易破解。 参考技术B Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$A$1" Then Exit Sub
    If Target = 1 Then
        ActiveSheet.Unprotect
        [a2].Locked = True
        ActiveSheet.Protect
    Else
        ActiveSheet.Unprotect
        [a2].Locked = False
        ActiveSheet.Protect
    End If
End Sub

如果a1=1则锁定a2

在EXCEL中，如何使用VBA设置单元格内指定字符串格式

参考技术A Sub
ss()
Dim
j
As
Long
j
=
InStr(Range("A1"),
"格式")
With
Range("A1")
.Font.FontStyle
=
"正常"
.
Characters
(Start:=j,
Length:=2).Font.FontStyle
=
"加粗"
End
With
End
Sub
这个代码可以让你的格式两个字在任意位置
如果你A1是固定的这几个字，那么一句话搞定
Range("A1")
.Characters(Start:=4,
Length:=2).Font.FontStyle
=
"加粗" 参考技术B 查找所有应用区域中包含“hello”字符串的
sub
test1()
dim
v
as
string
dim
r
as
range
v
=
"hello"
for
each
r
in
activesheet.usedrange
if
instr(1,
r,
v)
<>
0
then
msgbox
r.address
end
if
next
end
sub