Boa noite chess

Clique com o cursor na primeira célula A11, depois segure apertado a tecla CTRL e selecione as demais células que vc quer deixar desbloqueadas.
Clique com o lado direito do mouse em uma das células bloqueadas--->Formatar células--->Proteção--->Desmarque a opção Bloqueadas--->dê OK.
Guia revisão-->Proteger Planillha--->Desmarque a opção Selecionar Células Bloqueadas ---> Se quiser insira uma senha---> OK. Tá pronto.
Agora se vc der TAB vai pulando só pelas células desbloqueadas.

Dê retorno.

Um abraço.

Preciso via VBA

Bom dia,

Veja se o código abaixo te ajuda:

Sub Proteger()
    Dim Intervalo As Range
    
    Cells.Locked = True
    Set Intervalo = Application.Union([A11], [B14:U14], [A21], [M21:H64])
    Intervalo.Locked = False
    ActiveSheet.Protect "SENHA"
End Sub

Para desproteger:

Sub Desproteger()
    ActiveSheet.Unprotect "SENHA"
End Sub

Abraço

Boa noite!!!!

Ficou excelente!!!!!!!!!................Obrigado!!!!!!!!!!

Att...