Automatisk advarsel ved indsættelse af rækker i Excelarket

Hvis sidste række (fx. A65536) ikke er tom, kan der ikke indsættes nye rækker
Så kunne du evt. indsætte en tekst i A65536 som forklarer dit forbehold.

Jeg vil gerne bibeholde muligheden for at indsætte rækker så folk med forstand på VBA stadig kan ændre i arket. Jeg mener at have hørt at der kan køre en bagvedliggende makro, der aktiveres så snart der indsættes en række.

Kender ikke til en sådan events som opfanger 'Indsæt række'
men du kan evt.prøve om denne kan bruges.
Jeg kan ikke forhindre at en ny række indsættes, men koden giver
bruger mulighed for at fortryde, hvorefter rækken slettes igen.

Indsæt et X i celle A65436

herefter indsættes følgende kode i arkets kode-modul

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:IV10000")) Is Nothing Then Exit Sub
If Range("A65436").Value <> "X" Then
If MsgBox("ADVARSEL.!! Idsæt nye rækker, påvirker VBA..Indsæt ? ", vbYesNo + vbQuestion) = vbYes Then
Range("A65400:A65536") = "": Range("A65436").Value = "X"
Else
Target.EntireRow.Delete
End If
End If
End Sub

Mange tak for hjælpen :o)

Der sker ingenting når jeg trykker på Accepter-knappen.

hvor har du indsat koden ?

hvis du højreklikker på arkets fane, og vælger 'Vis programkode'
så kan du indsætte koden der

Du skal være opmærksom på, at når du får valget mellem Ja og Nej
så er der allerede indsat en ny række.
Så hvis du vælger Ja, sker der ikke mere
Vælger du Nej, så slettes rækken igen

VBA-koden virker fint, det er spørgsmålet på hjemmesiden jeg ikke kan finde ud af at lukke.

hvis du kan bruge mit forslag, så lægger jeg et svar
så skal du blot markere box med mit navn og klikke accepter