Při psaní v rozevíracím seznamu povolte funkci Zpět s VBA pro automatické doplňování

Používám následující kód VBA, abych umožnil automatické dokončování při psaní v rozevíracím seznamu pomocí pole se seznamem.

Tento kód zakáže funkce "Zpět" a "Znovu" na listech, na které je použit kód VBA. Lze upravit kód VBA, aby tyto funkce umožňoval?

Private Sub Worksheet_SelectionChange (ByVal Target As Range)
'Aktualizovat od Extendoffice: 2018 / 9 / 21
Dim xCombox jako OLEObject
Dim xStr jako řetězec
Dim xWs jako pracovní list
Dim xArr

Nastavit xWs = Application.ActiveSheet
On Error Resume Next
Nastavit xCombox = xWs.OLEObjects("TempCombo")
S xComboxem
.ListFillRange = ""
.LinkedCell = ""
.Visible = False
Konec s
Pokud Target.Validation.Type = 3 Pak
Target.Validation.InCellDropdown = False
Zrušit = True
xStr = Target.Validation.Formula1
xStr = Right(xStr, Len(xStr) - 1)
If xStr = "" Pak Exit Sub
S xComboxem
.Visible = True
.Vlevo = Cíl.Vlevo
.Top = Cíl.Top
.Šířka = Cíl.Šířka + 5
.Výška = Cíl.Výška + 5
.ListFillRange = xStr
If .ListFillRange = "" Pak
xArr = Split(xStr, ",")
Me.TempCombo.List = xArr
End If
.LinkedCell = Cíl.Adresa
Konec s
xCombox.Aktivovat
Me.TempCombo.DropDown
End If
End Sub
Private Sub TempCombo_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Vyberte Case KeyCode
případ 9
Application.ActiveCell.Offset(0, 1).Aktivovat
případ 13
Application.ActiveCell.Offset(1, 0).Aktivovat
Konec Vybrat
End Sub