Usuários do Excel
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Bloquear célula sem a introdução de dados noutra

3 participantes

Ir para baixo

Bloquear célula sem a introdução de dados noutra Empty Bloquear célula sem a introdução de dados noutra

Mensagem por joaoosvaldo Qui Jun 27, 2013 6:51 pm

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

joaoosvaldo
Iniciante
Iniciante

Mensagens : 33
Data de inscrição : 25/06/2013

Ir para o topo Ir para baixo

Bloquear célula sem a introdução de dados noutra Empty Re: Bloquear célula sem a introdução de dados noutra

Mensagem por Afonso Serri Sex Jun 28, 2013 7:14 am

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.

Afonso Serri
Iniciante
Iniciante

Mensagens : 74
Data de inscrição : 04/07/2011
Localização : Joinville

Ir para o topo Ir para baixo

Bloquear célula sem a introdução de dados noutra Empty Re: Bloquear célula sem a introdução de dados noutra

Mensagem por joaoosvaldo Sex Jun 28, 2013 3:50 pm

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
Iniciante

Mensagens : 33
Data de inscrição : 25/06/2013

Ir para o topo Ir para baixo

Bloquear célula sem a introdução de dados noutra Empty Re: Bloquear célula sem a introdução de dados noutra

Mensagem por alexandrevba Sáb Jun 29, 2013 7:58 am

Bom dia!!

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
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ir para o topo Ir para baixo

Bloquear célula sem a introdução de dados noutra Empty Re: Bloquear célula sem a introdução de dados noutra

Mensagem por joaoosvaldo Sáb Jun 29, 2013 9:27 am

Infelizmente não funcionou!

joaoosvaldo
Iniciante
Iniciante

Mensagens : 33
Data de inscrição : 25/06/2013

Ir para o topo Ir para baixo

Bloquear célula sem a introdução de dados noutra Empty Re: Bloquear célula sem a introdução de dados noutra

Mensagem por alexandrevba Sáb Jun 29, 2013 11:08 am

Bom dia!!

Como não funcionou?...apareceu alguma mensagem de erro?

Você pôs o código dentro do mulo de planilha??

Att
alexandrevba
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ir para o topo Ir para baixo

Bloquear célula sem a introdução de dados noutra Empty Re: Bloquear célula sem a introdução de dados noutra

Mensagem por joaoosvaldo Sáb Jun 29, 2013 12:58 pm

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
Iniciante

Mensagens : 33
Data de inscrição : 25/06/2013

Ir para o topo Ir para baixo

Bloquear célula sem a introdução de dados noutra Empty Re: Bloquear célula sem a introdução de dados noutra

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos