Travamento de Célula

Ir em baixo

Travamento de Célula

Mensagem por EdsonGPS em 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

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: Travamento de Célula

Mensagem por Afonso Serri em 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

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: Travamento de Célula

Mensagem por adilsonsoledade em 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
avatar
adilsonsoledade
Admin

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

Ver perfil do usuário https://usuariosdoexcel.wordpress.com

Voltar ao Topo Ir em baixo

Re: Travamento de Célula

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum