Estoy usando el siguiente código de VBA para permitir el autocompletado al escribir en la lista desplegable mediante un cuadro combinado.

Este código deshabilita las funciones "Deshacer" y "Rehacer" en las hojas a las que se aplica el código VBA. ¿Se puede modificar el código VBA para permitir estas funciones?

Sub hoja de trabajo privada_Cambio de selección (rango de destino ByVal)
'Actualizar por Extendoffice: 2018 / 9 / 21
Dim xCombox como OLEObject
Dim xStr como cadena
Dim xWs como hoja de trabajo
Tenue xArr

Establecer xWs = Application.ActiveSheet
On Error Resume Next
Establecer xCombox = xWs.OLEObjects("TempCombo")
Con xCombox
.ListFillRange = ""
.CeldaEnlazada = ""
.Visible = Falso
End With
Si Target.Validation.Type = 3 Entonces
Destino.Validación.InCellDropdown = Falso
Cancelar = True
xStr = Destino.Validación.Fórmula1
xStr = Derecha(xStr, Longitud(xStr) - 1)
Si xStr = "" Entonces Salir de Sub
Con xCombox
.Visible = Verdadero
.Izquierda = Objetivo.Izquierda
.Superior = Destino.Superior
.Ancho = Objetivo.Ancho + 5
.Altura = Objetivo.Altura + 5
.ListFillRange = xStr
Si .ListFillRange = "" Entonces
xArr = Dividir(xStr, ",")
Me.TempCombo.List = xArr
Si terminar
.LinkedCell = Destino.Dirección
End With
xCombox.Activar
Yo.TempCombo.DropDown
Si terminar
End Sub
Sub privado TempCombo_KeyDown (ByVal KeyCode como MSForms.ReturnInteger, ByVal Shift como entero)
Seleccionar código clave de caso
Caso 9
Aplicación.ActiveCell.Offset(0, 1).Activar
Caso 13
Aplicación.ActiveCell.Offset(1, 0).Activar
Fin Seleccionar
End Sub