Ir ao conteúdo

Excel Saltar célula desbloqueda com ENTER ou TAB


Ir à solução Resolvido por Patropi,

Posts recomendados

Postado

Olá galerinha,
Estou formatando uma planilha no excel e preciso formatar as celulas para que quando for pressionada a tecla TAB ou ENTER, somente percorra as células que estiverem desbloqueadas em que eu determinar.
Como faço isso? 

GRATO!

Postado
1 hora atrás, Patropi disse:

@Tutti Brinquedos

 

Cadê a planilha?

 

OBS.: Você não tem marcado o teu tópico como resolvido, na minha assinatura tem um link para um tutorial de como proceder.

 

[]s


Esta aqui a planilha eu quero fazer que quando eu der ENTER pule para células desbloqueadas

Planilha de Reservas 2019.rar

adicionado 0 minutos depois

Não achei o link para estar vendo como deixa um tópico marcado como 'RESOLVIDO'
Se poder me mandar sou novo aqui no forum 

  • Membro VIP
  • Solução
Postado

Boa noite

 

Eu apenas cliquei em desproteger a planilha --> depois clique e em proteger --->  antes de clicar em OK ---> eu desmarquei a opção --> Selecionar células bloqueadas.

Assim, só seleciona as células não bloqueadas, por isso, ao dar Tab ou Enter só vai nas células desbloqueadas.

 

Não se esqueça de clicar em Curtir e marcar como Resolvido.

 

[]s

  • Curtir 1
  • 5 anos depois...
Postado

Patropi. Consegue me ajudar? Eu fiz exatamente isso, deixei marcado somente o selecionar as células desbloqueadas, porém algumas das células que eu tenho são com validação de dados, do tipo Lista, para selecionar uma opção. Nesse caso, quando seleciono alguma opção e teclo enter ou tab, mesmo bloqueado ele vai diretamente para a direita ou para baixo. Eu pedi pro GPT criar um vba pra mim mas travou a minha planilha e ela não abre mais. 
Segue o código dele. Tem ideia como resolver?
 

Private Sub Worksheet_Change(ByVal Target As Range)
    ' Verifica se a célula modificada é desbloqueada
    If Not Target.Locked Then
        ' Move o foco para a próxima célula desbloqueada
        MoveToNextUnlockedCell Target
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' Verifica se a célula selecionada é desbloqueada
    If Not Target.Locked Then
        ' Move o foco para a próxima célula desbloqueada
        MoveToNextUnlockedCell Target
    End If
End Sub

Private Sub MoveToNextUnlockedCell(ByVal cell As Range)
    Dim nextCell As Range
    Set nextCell = cell
    
    ' Loop para encontrar a próxima célula desbloqueada
    Do
        Set nextCell = nextCell.Offset(0, 1) ' Movendo para a direita (coluna seguinte)
        If nextCell.Locked Then
            Set nextCell = cell.Offset(1, 0) ' Se à direita estiver bloqueada, move para a célula abaixo
            If nextCell.Locked Then
                Set nextCell = cell.Offset(0, -1) ' Se à direita e abaixo estiverem bloqueadas, move para a esquerda
                If nextCell.Locked Then
                    Set nextCell = cell.Offset(-1, 0) ' Se todos os lados estiverem bloqueados, move para cima
                End If
            End If
        End If
    Loop While nextCell.Locked
    
    ' Move para a célula desbloqueada encontrada
    nextCell.Select
End Sub
 

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...