Ved redigering i område, fremkald msgbox

Højreklik på din Arkfane,- Vælg 'Vis programkode' indsæt fælgende

Dim OldValue

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("HG10:IV80")) Is Nothing Then Exit Sub
If OldValue = "" Then Exit Sub
If OldValue <> Target.Value Then
If MsgBox("Skal cellen ændres ? ", vbYesNo) <> vbYes Then Target = OldValue
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    OldValue = ActiveCell.Value
End Sub

Jeg har ændret den til dette

Dim OldValue

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("HG10:IV80")) Is Nothing Then Exit Sub
If OldValue = "" Then Exit Sub
If OldValue <> Target.Value Then
svar = MsgBox("Skal cellen ændres ? ", vbYesNo)
If svar = vbYes Then Target = OldValue
If svar = vbNo Then Application.Undo
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    OldValue = ActiveCell.Value
End Sub

Der er dog lidt problemer når jeg forsøger at ændre i en celle. Når jeg skriver noget nyt i cellen og trykker ja så kommer den ny indtastning ikke i cellen, men den gamle.

Hvis det har noget at sige så er der også tomme celler i området.

En lille ting mere.. Er det muligt at tilføje, at hvis der bliver ændret farve i en celle eller nogen anden form for ændring så kommer denne msgbox frem?

Dim OldValue

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("HG10:IV80")) Is Nothing Then Exit Sub
'If OldValue = "" Then Exit Sub
If OldValue <> Target.Value Then
If MsgBox("Skal cellen ændres ? ", vbYesNo) <> vbYes Then Target = OldValue
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    OldValue = ActiveCell.Value
End Sub

så tester der også på tomme seller

med farver eller andet godt ved jeg ikke umiddelbart
Der er ingen event's som trikker på formatering, så
der skal andre boller på suppen. det har jeg ikke experimenteret med.

Jeg fik det til at virke ved at bytte om på Target og OldValue i If MsgBox("Skal cellen ændres ? ", vbYesNo) <> vbYes Then Target = OldValue

Mht. farverne dropper jeg det bare, lyder til at være for indviklet =)

Kom med et svar så du kan få points..

ok