Excel VBA "Unselect" procurado

Seleccione qualquer célula e desligue CutCopy:

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

O Excel tem sempre algo seleccionado. É necessário um trabalho à volta. Seleccionando uma célula fora do ecrã, o foco será definido aí, para que não funcione em si mesmo. Este código coloca o cursor fora do ecrã e depois volta a rolar a folha para cima para ver A1.

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

Se estiver realmente a querer “nada seleccionado”, pode usar VBA para proteger a folha no final da execução do código, o que fará com que nada seja seleccionado. Pode adicionar isto a uma macro ou colocá-la directamente na sua VBA.

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

Assim que a folha estiver desprotegida, o cursor activará uma célula.

Há uma forma complicada de o fazer.

Criar um objecto tal como um botão. Seleccione este botão, depois esconda-o, e nenhuma célula será seleccionada.

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

ActiveSheet.Shapes("Button 1").Select

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

É isso.

Pergunta muito antiga, mas a minha resposta para referência:

Pode usar

With ActiveSheet
    .EnableSelection = xlNoSelection
    .Protect
End With

Dependendo do tamanho da sua selecção, para se livrar de qualquer artefacto (não sei se isto também é um problema em 2013 Excel, mas em Mac foi uma dor constante para mim) pode simplesmente percorrer célula por célula e seleccionar cada um deles.

Ao desligar a actualização do ecrã antes de seleccionar uma célula, a deslocação para as células seleccionadas é temporariamente desactivada.

Este código verifica que células estão actualmente visíveis e selecciona a primeira célula abaixo do intervalo visível que não está à vista. Por exemplo, quando eu o tento: O intervalo visível é A1:BC79, pelo que este código selecciona A80 e deslocando-se para baixo e para a direita e correndo-o novamente revela que o Excel escolhe a primeira célula NÃO visível abaixo da primeira coluna visível.

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

A única resposta é enganar.

Esconder coluna A e linha 1

Colocar cursor em A1. Haverá um pequeno ponto no canto de B2.

Use um truque: Adicione uma forma, depois seleccione-a e esconda-a.

Código fonte para isto está em resposta a uma pergunta diferente neste site.