BrunoDimeira

Muito Obrigado cara, demorou um pouquinho pra deixar da maneira que eu queira mas agora ta ok!! Valeu mesmo!

Essas células em branco em baixo de cada número, são campos para ser incluído o nome de cada pessoa que vai utilizar o número, por isso queria que a celula não pudesse ser alterada depois de preenchida para não dar problema de duplicidade dos números. A planilha será compartilhada em rede, então quando alguém precisar de algum número de ofício terá que colocar seu nome em baixo do respectivo número. Eu percebi que nas celulas onde estão os numeros está funcionando da maneira que eu queria, mas nas celulas em branco onde quero que funcione não esta funcionando

@osvaldomp Fiz todo o processo mas continua deixando alterar a célula. Só esta funcionando onde tem numeros mas na célula onde vai o nome nao esta protegida.

Da erro "Erro em tempo de execução 'Erro 1004'. Creio que por conter no código Dim ColunasQ e Set ColunasQ por isso não de certo.

Não deu certo, o problema também é que quando se digita em qualquer célula da coluna Q toda a planilha fica bloqueada, eu queria que ficasse bloqueada a célula que foi preenchida somente.

Olá a todos!! Estou montando uma planilha e pretendo compartilhar ela em rede e queria que nessa planilha ao preencher a celula a mesma ficasse bloqueada para alterações. Encontrei esse macro na Internet , porém só funciona na coluna Q queria que funcionasse da celula A3 até a G58, por favor. Private Sub Worksheet_Change(ByVal Target As Range) Dim ColunasQ As Range Set ColunasQ = Range("Q4:Q503") If Not Application.Intersect(ColunasQ, Range(Target.Address)) Is Nothing Then ActiveSheet.Unprotect ("m") linha = Target.Row Range("Q" & linha).Locked = True ActiveSheet.Protect ("m"), DrawingObjects:=True, Contents:=True, Scenarios:=True End If End Sub A planilha vai em anexo... Ofício.xlsx

@lHenrique_10 Não deu certo, ta como se não tivesse nada de diferente pois ainda consigo alterar e excluir dados das células já preenchidas. adicionado 13 minutos depois Encontrei essa na Internet e deu certo, porém só funciona na coluna Q queria que funcionasse da celula A3 até a G58, por favor. Private Sub Worksheet_Change(ByVal Target As Range) Dim ColunasQ As Range Set ColunasQ = Range("Q4:Q503") If Not Application.Intersect(ColunasQ, Range(Target.Address)) Is Nothing Then ActiveSheet.Unprotect ("m") linha = Target.Row Range("Q" & linha).Locked = True ActiveSheet.Protect ("m"), DrawingObjects:=True, Contents:=True, Scenarios:=True End If End Sub

Eu pretendo compartilhar essa planilha na rede, e queria que a célula onde vai o nome ficasse bloqueado para alteração depois de preenchida é possível isso?

Putz cara, isso mesmo!!! Muito obrigado!! Tava quebrando a cabeça mas é isso mesmo valeu!!

Olá, preciso de uma ajuda sobre uma planilha que estou criando, para um controle de número de ofícios na prefeitura onde trabalho e não estou conseguindo criar uma formatação condicional pra isso. O que eu preciso é que as células que estão com numerações mudem para a cor vermelha, quando a suas respectivas células que estão em baixo, sejam preenchidas com o nome ou setor de quem a utilizou. Por exemplo, a célula A3 muda para a cor vermelha (indicando que já foi utilizada), quando for preenchido o nome ou o setor de quem a utilizou na célula em baixo, A4. Segue a planilha em anexo. Ofício.xlsx Ofício.xlsx