VBA - Undersøg om der er sket ændringer til arket og hvis der er aktiv makro

I arkets modul


Dim Endring As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)
Endring = True
End Sub

Private Sub Worksheet_Deactivate()
    If Endring Then
        svar = MsgBox(" Arket er ændret, vil du gemme", vbYesNo)
        If svar = vbYes Then ActiveWorkbook.Save
    End If
End Sub

Hej kabbak

Dejlig enkelt løsning - jeg kan dog ikke få den til at virke (har indsat et = TRUE). Måske kan den ikke finde Endrings variablen i den nederste funktion?

Dim Endring As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)
    Endring = True
End Sub

Private Sub Worksheet_Deactivate()
    If Endring = True Then
        svar = MsgBox(" Arket er ændret, vil du gemme", vbYesNo)
        If svar = vbYes Then ActiveWorkbook.Save
    End If
End Sub

Har du sat koden i arket STAM 's modul,  der skal det være og ikke i andre moduler.

Ja den er indsat i STAM arket, men den stopper.

Er det en indtastning eller en makro der ændre i STAM arket?

Tror ikke 'Endring* bliver TRUE ved en makro.

Det er en indtastning i arket (ikke en makro)

Prøv denne test:

Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox "Arket er ændret" '<--test
    Endring = True
End Sub

Private Sub Worksheet_Deactivate()
    If Endring = True Then
        svar = MsgBox(" Arket er ændret, vil du gemme", vbYesNo)
        If svar = vbYes Then ActiveWorkbook.Save
    End If
End Sub

Har ikke haft tid til at prøve den endnu - gør det inden weekenden

Super det virker :-)

Virker ? Hvordan ?

Har jo kun tilføjet en test, der kalder en boks, hver gang der ændres i arket.

Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox "Arket er ændret" '<--test
End Sub