Bloquear célula sem a introdução de dados noutra
3 participantes
Página 1 de 1
Bloquear célula sem a introdução de dados noutra
Boas.
Surgiu-me um nova dúvida que é a seguinte: É possível bloquear a introdução de dados numa célula sem que se tenha introduzido previamente valores noutra célula? Por exemplo apenas permitir introduzir valores na célula B2 se já tiver introduzido em A1? Existe alguma macro que faça isto?
Desde já obrigado pela resposta, este fórum está a ser muito útil.
Cumprimentos,
Osvaldo
Surgiu-me um nova dúvida que é a seguinte: É possível bloquear a introdução de dados numa célula sem que se tenha introduzido previamente valores noutra célula? Por exemplo apenas permitir introduzir valores na célula B2 se já tiver introduzido em A1? Existe alguma macro que faça isto?
Desde já obrigado pela resposta, este fórum está a ser muito útil.
Cumprimentos,
Osvaldo
joaoosvaldo- Iniciante
- Mensagens : 33
Data de inscrição : 25/06/2013
Re: Bloquear célula sem a introdução de dados noutra
Bom dia.
Osvaldo, insira o código abaixo no evento "change" da sua planilha e veja se é isso:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A2") = "" Then
MsgBox ("Favor preencher a célula A2"), vbCritical
End If
End Sub
Abs.
Osvaldo, insira o código abaixo no evento "change" da sua planilha e veja se é isso:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A2") = "" Then
MsgBox ("Favor preencher a célula A2"), vbCritical
End If
End Sub
Abs.
Afonso Serri- Iniciante
- Mensagens : 74
Data de inscrição : 04/07/2011
Localização : Joinville
Re: Bloquear célula sem a introdução de dados noutra
A ideia não é bem essa. Não queria que aparece-se um aviso apenas queria que a célula ficasse bloqueada (não fosse possível seleccionar) sem que fosse preenchida previamente uma outra célula. Obrigado.
joaoosvaldo- Iniciante
- Mensagens : 33
Data de inscrição : 25/06/2013
Re: Bloquear célula sem a introdução de dados noutra
Bom dia!!
Já tentou assim...?
Já tentou assim...?
- Código:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1").Value = "" Then
Sheet1.Unprotect
Range("B2").Locked = True
Sheet1.Protect
End If
End Sub
alexandrevba- Intermediário
- Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES
Re: Bloquear célula sem a introdução de dados noutra
Infelizmente não funcionou!
joaoosvaldo- Iniciante
- Mensagens : 33
Data de inscrição : 25/06/2013
Re: Bloquear célula sem a introdução de dados noutra
Bom dia!!
Como não funcionou?...apareceu alguma mensagem de erro?
Você pôs o código dentro do mulo de planilha??
Att
Como não funcionou?...apareceu alguma mensagem de erro?
Você pôs o código dentro do mulo de planilha??
Att
alexandrevba- Intermediário
- Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES
Re: Bloquear célula sem a introdução de dados noutra
O que acontece é que após introduzir valores na célula A1 neste caso ele não desbloqueia a B2 diz que está bloqueada. Obriga a desbloquear manualmente!
joaoosvaldo- Iniciante
- Mensagens : 33
Data de inscrição : 25/06/2013
Tópicos semelhantes
» Célula recebe dígito e pula próxima célula
» Procurar e Destacar (pintar) valor em célula
» Formatação de célula mudar a cor
» Como colorir a guia baseada na cor da célula
» Procurar valor em coluna baseado em célula
» Procurar e Destacar (pintar) valor em célula
» Formatação de célula mudar a cor
» Como colorir a guia baseada na cor da célula
» Procurar valor em coluna baseado em célula
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|