|
下記1)のようにイベントで、セルに入力が行われると色が変わるようにしましたが
下記2)で行の削除を行うと、削除を行った事に対しても反応し、行の色も変えてしまいます。どうにかして、なおしたいので、どうかよろしくお願いします。
1)Private Sub Workbook_sheetchange(ByVal sh As Object, ByVal Target As Range)
ActiveSheet.Unprotect
Target.Interior.ColorIndex = 6
ActiveSheet.Columns("A:IV").Locked = True
ActiveSheet.Columns("AQ:AR").Locked = False
ActiveSheet.Columns("BA:IV").Locked = True
ActiveSheet.Protect
End Sub
_______________________________________________________________
2)'行の削除'
Sub 行の削除()
re = MsgBox("行を削除してよろしいですか?", vbOKCancel, "行を削除")
If re = vbOK Then
Selection.EntireRow.Delete
End If
If re = vbCancel Then
MsgBox "行の削除をキャンセルしました"
End If
End Sub
|
|