Schakel de functie Ongedaan maken met VBA in voor automatisch aanvullen tijdens het typen in de vervolgkeuzelijst

Ik gebruik de volgende VBA-code om automatisch aanvullen mogelijk te maken bij het typen in de vervolgkeuzelijst met behulp van een keuzelijst met invoervak.

Deze code schakelt de functies "Ongedaan maken" en "Opnieuw" uit op de bladen waarop de VBA-code wordt toegepast. Kan de VBA-code worden gewijzigd om deze functies toe te staan?

Privé subwerkblad_SelectionChange (ByVal-doel als bereik)
'Bijwerken door' Extendoffice: 2018 / 9 / 21
Dim xCombox als OLEObject
Dim xStr als tekenreeks
Dim xWs als werkblad
Afm xArr

Stel xWs = Application.ActiveSheet in
On Error Resume Next
Stel xCombox = xWs.OLEObjects ("TempCombo") in
Met xCombox
.ListFillRange = ""
.LinkedCell = ""
.Zichtbaar = Onwaar
Eindigt met
Als Target.Validation.Type = 3 Dan
Target.Validation.InCellDropdown = Onwaar
Annuleren = Waar
xStr = Doel.Validatie.Formule1
xStr = Rechts(xStr, Len(xStr) - 1)
Als xStr = "" Verlaat Sub dan
Met xCombox
.Visible = Waar
.Links = Doel.Links
.Boven = Doel.Boven
.Breedte = Doel.Breedte + 5
.Hoogte = Doel.Hoogte + 5
.ListFillRange = xStr
Als .ListFillRange = "" Dan
xArr = Splitsen(xStr, ",")
Me.TempCombo.Lijst = xArr
End If
.LinkedCell = Doel.Adres
Eindigt met
xCombox.Activeren
Me.TempCombo.DropDown
End If
End Sub
Private Sub TempCombo_KeyDown (ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Selecteer Case KeyCode
Case 9
Applicatie.ActiveCell.Offset(0, 1).Activeren
Case 13
Applicatie.ActiveCell.Offset(1, 0).Activeren
End Select
End Sub