|
エクセル2000を使用しています。
以下のマクロを作り、19行目の”AAA”を探し、29行目で1つ前の列までロックしようとしています。
新規のエクセルで使用すると、動作しますが、肝心の組み込みたいエクセルだと動作しません。
19行目には”AAA”以外の文字列があります。
(19行目には、”AAA”は必ず1つしかありません)
また、”AAA”は関数で19行目に表示されています。
上手く動作する方法などありましたら、教授ください。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim h As Range
Cells.Locked = False
ActiveSheet.Protect userinterfaceonly:=True
Set h = Range("19:1").Find(what:="AAA", lookat:=xlWhole)
If h Is Nothing Then Exit Sub
If h.Column = 1 Then Exit Sub
Range(Range("A29"), h.Offset(1, -1)).Locked = True
End Sub
|
|