Abraham Valencia

"o etc."... cuando  no tienen certificado, no puedes entrar a ellas con VBA usando GET o POST (o similar) como cuando lo haces de forma manual, que es lo que has puesto de ejemplos.

Hola
Un ejemplo que, creo, podría ayudarte. Ojo, trata de entenderlo y adaptarlo a lo que necesitas:
Sub BuecarenWeb() Dim ie As Object Dim Textoabuscar$ Set ie = CreateObject("InternetExplorer.Application") ie.Navigate "https://www.futwiz.com/en/fifa23/player/andre-ramalho/16818" Do Until ie.ReadyState = 4 DoEvents Loop ie.Visible = True Application.Wait (Now + TimeValue("00:00:01")) Textoabuscar = InStr(1, ie.Document.body.innerhtml, "card-23 card-23-gold-nr") If Textoabuscar > 0 Then MsgBox "Existe" Else MsgBox "No existe" End If 'ie.Quit ' 'Set ie = Nothing End Sub  

Hola, bienvenido. No olvides seguir la recomendación de Sergio. 
Sobre tu dilema, intenta así:
 
Me.ComboBox2.List = Application.WorksheetFunction.Transpose(Hoja2.Range("N_LOCALIDADES")) Comentas.

Pues bien, a eso me refería ya que, como comenté y te has dado cuenta, las sentencias SQL que permite Excel, no son suficientes para lo que requerías. Saludos.

Hay dos modos, o cuando abres el archivo, como te comento, o haciéndolo tú mismo mediante un botón o algún otro evento. Si tu idea es que "algo" abra el archivo solo sin necesidad de intervención de un usuario, entonces puedes usar Power Automate (versión de escritorio) o el Programador de Tareas de Windows e igual en el archivo Excel tienes que programarlo en el evento Open y el archivo debe seguir abierto.

Ajá, entonces el dilema va por otro lado. Mira este video: https://youtu.be/8-3y1WDc2Tg 
Lee este artículo:  https://abrahamexcel.blogspot.com/2018/01/el-gran-problema-de-los-archivos-lentos.html
Por ahí vienen tus problemas.
 

Hola
Si mal no te entendí esto te servirá:
Sub Prueba() Dim mifila As Range, mirango As Range For Each mifila In [CIUDADES].Rows If mifila.Columns(2).Value = "CADIZ" Then If mirango Is Nothing Then Set mirango = mifila.Columns(2) Else Set mirango = Union(mirango, mifila.Columns(2)) End If End If Next Hoja1.Names.Add "CADIZ", RefersTo:="='CIUDADES'!" & mirango.Address End Sub Comentas

Hola
Las constantes públicas solo pueden ser declaradas en módulos estándar y es seguro que estás intentando declararlas en un módulo de Clase, no olvidando que los módulos de las hojas, el libro y los Userform son de Clase.
Saludos

Hola
Veo que al actualizar el campo  [PALLET PROG]  lo haces como un campo de tipo texto, ya que ingresas sus valores con comillas simples y entiendo que cuando dices "cantidad", quieres sumar dicha cantidad al campo   [PALLET PROG] , entonces, debes primero convertirlo a número  pero primero debes extraer el valor del campo, es decir, necesitas hacer dos recordset.
Query = "SELECT [PALLET PROG] FROM LContenedores WHERE [Id] = " & nReg Obvio generas un recordset y luego le das valor algo así a tu variable:
NPallet = NPallet + Cdbl(Rs.Fields("PALLET PROG"))
Y recién hecho eso retomas lo de tu Update. Ojo, yo no tengo tus archivos así que queda en tu probar, modificar y/o adaptar, pero la idea es esa.
Saludos

Hola
Yo uso Excel 365 de 64 bits y no hubo problemas de lentitud al usar la Vista Preliminar, pero eso sí, no apareció en automático, sino que tuve que activar el botón:

Pero hecho eso, todo bien, e incluso lo que ven en la imagen, no demoró nada de nada.
Ah, eso sí, usé el driver de conexión a dbf que ya tengo instalado, no instalé el que adjuntaste en la carpeta, pero me da este error en la cadena SQL y no me da tiempo de revisar si es un error de tu cadena (Cuando hice un Select *, no hubo dilema) o algo del driver (?):

Entonces, ante esos dilemas, probé lo más práctico del mundo, y pensando en algún tipo de corrupción de la hoja:
- Copie los datos a una hoja nueva, cambié en la macros el nombre de la hoja a la nueva, y listo, no hay problema hasta el momento. Intenta eso y comenta. OJO, copiar los datos y similares, nada de copiar la hoja y/o cambiarle el nombre