Se busca "deseleccionar" en VBA de Excel

Selecciona cualquier celda y desactiva CutCopy:

Range("A1").Select
  Application.CutCopyMode = False

Excel siempre tiene algo seleccionado. Se necesita una solución. Al seleccionar una celda fuera de la pantalla, el foco se colocará allí, por lo que no funcionará por sí mismo. Este código coloca el cursor fuera de la pantalla y luego desplaza la hoja hacia arriba para ver A1.

Sub NoSelect()    
  Range("BB100").Select
  ActiveWindow.SmallScroll up:=100
  ActiveWindow.SmallScroll ToLeft:=44
End Sub

Si realmente quiere que no se seleccione nada, puede utilizar VBA para proteger la hoja al final de la ejecución del código, lo que hará que no se seleccione nada. Puedes añadir esto a una macro o ponerlo en tu VBA directamente.

Sub NoSelect()
   With ActiveSheet
   .EnableSelection = xlNoSelection
   .Protect
   End With
End Sub

En cuanto la hoja esté desprotegida, el cursor activará una celda.

Hay una forma complicada de hacerlo.

Cree un objeto como un botón. Seleccione este botón, luego escóndalo, y ninguna celda será seleccionada.

ActiveSheet.Shapes("Button 1").Visible = True

ActiveSheet.Shapes("Button 1").Select

ActiveSheet.Shapes("Button 1").Visible = False

Eso es todo.

Pregunta muy antigua, pero mi respuesta como referencia:

Puedes usar

With ActiveSheet
    .EnableSelection = xlNoSelection
    .Protect
End With

Dependiendo del tamaño de su selección, para deshacerse de cualquier artefacto (no sé si esto también es un problema en 2013 Excel, pero en Mac fue un dolor constante para mí) sólo puede bucle a través de la celda por celda y seleccionar cada uno.

Al desactivar la actualización de la pantalla antes de seleccionar una celda, se desactiva temporalmente el desplazamiento a las celdas seleccionadas.

Este código comprueba qué celdas son visibles actualmente y selecciona la primera celda por debajo del rango visible que no está a la vista. Por ejemplo, cuando lo pruebo El rango visible es A1:BC79, entonces este código selecciona A80 y si se desplaza hacia abajo y hacia la derecha y se ejecuta de nuevo, el excel elige la primera celda NO visible debajo de la primera columna visible.

Dim r As Range Application.ScreenUpdating = False Set r = Application.ActiveWindow.VisibleRange r(r.Cells.Count + 1).Select Application.ScreenUpdating = True

La única respuesta es hacer trampa.

Ocultar la columna A y la fila 1

Poner el cursor en A1. Habrá un pequeño punto en la esquina de B2

Usa un truco: Añadir una forma, luego seleccionarla y ocultarla.

El código fuente de esto está en respuesta a otra pregunta en este sitio.