发布网友
共2个回答
热心网友
Dim a
Private Sub Worksheet_Change(ByVal Target As Range)
Target = a
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
a = Target.Characters
End Sub
'试试效果,只能锁定值不发生变化
热心网友
工具--保护--保护工作表.....追问我讲的是用代码不是在excel里面做