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

Travamento de Célula

3 participantes

Ir para baixo

Travamento de Célula Empty Travamento de Célula

Mensagem por EdsonGPS Sex Jul 01, 2011 1:31 pm

Gostaria de saber se o excel poderia travar as células só quando fossem digitadas, ou seja, enquanto estiver vazia não travasse, já vi em outros fóruns uma macro para travar todas as células <http://info.abril.com.br/forum/viewtopic.php?t=2169> respondida pelo adilson, queria saber se existe essa possibilidade.

EdsonGPS
Iniciante
Iniciante

Mensagens : 3
Data de inscrição : 01/07/2011

Ir para o topo Ir para baixo

Travamento de Célula Empty Re: Travamento de Célula

Mensagem por Afonso Serri Seg Jul 04, 2011 4:08 pm

Edson, boa tarde.

Não entendi o que tu quer dizer com "travar a célula". Tu está referindo á fixação, proteção, bloqueio ? Por favor, dê mais detalhes.

Abs.

Afonso Serri
Iniciante
Iniciante

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

Ir para o topo Ir para baixo

Travamento de Célula Empty Re: Travamento de Célula

Mensagem por adilsonsoledade Ter Jul 05, 2011 5:03 am

Com base no post que você colocou como referência, acredito que esta macro possa servir como ponto de partida:

Código:
Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim rgFormat As Range
Dim rgInter  As Range
Dim pWord    As String
 
'Definir a senha de proteção
pWord = "Senha"
 
'Intervalo dentro do qual será realizada a formatação
Set rgFormat = ActiveSheet.[A1:C50]
 
'É obtida a intersecção da célula alterada com o intervalo rgFormat
Set rgInter = Application.Intersect(Target, rgFormat)
 
'Se houver a intersecção, ou seja se Target pertencer ao intervalo
'rgFormat, a célula será travada
If Not rgInter Is Nothing Then
'Desproteger a planilha
ActiveSheet.Unprotect (pWord)
'Travar a célula
Target.Locked = True
'Protefer a planilha
ActiveSheet.Protect (pWord)
End If
End Sub

[ ]s
adilsonsoledade
adilsonsoledade
Admin

Mensagens : 32
Data de inscrição : 28/06/2011
Idade : 53
Localização : São Paulo/ SP

https://usuariosdoexcel.wordpress.com

Ir para o topo Ir para baixo

Travamento de Célula Empty Re: Travamento de Célula

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