ola! Pessoal boa noite.
Sou novo aqui no fórum, mas tenho acompanhado já a um tempo, bem estou com um problema no meu trabalho que gostaria de resolver mas não sei como, e queria ajuda, se alguém souber.
Então, tenho uma planilha compartilhada onde são feitos lançamentos diários por mais de uma pessoa e que ocorre o travamento da célula logo a pois seu preenchimento, E eu queria que esse travamento da célula ocorresse logo apos salvar.
Tenho usado esse Código:
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Select
If Target.Column = 1 Or 6 Or 7 Or 9 Or 10 Or 11 Or 12 Or 13 Or 14 Or 15 Or 16 Or 17 Or 18 Or 21 Or 22 Or 25 Then ' O número se refere à coluna em que o código funcionará.
If IsNumeric(ActiveCell.Value) Then
Sheets("CONTROLE CX").Unprotect Password:="andares1319" ' Senha da planilha
Selection.Locked = True
Sheets("CONTROLE CX").Protect Password:="andares1319", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowSorting:=True, AllowFiltering:=True
End If
End If
End Sub
Esse código tem sido usado mas não ta viável pela quantidade de informações que temos lançada diariamente, sempre se erra um lançamento e temos que destravar a planilha.
Desde de já Agradeço.