Proteger um intervalo de celulas preenchidas apos salvar?

Question

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.

Answer 1

Olá Felipe!

Você pode trabalhar seu código no módulo da pasta de trabalho, utilizando o evento BeforeSave. Por exemplo:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("CONTROLE CX").Protect Password:="andares1319", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowSorting:=True, AllowFiltering:=True
End Sub

---

Rafael Kamimura - http://excelmaniacos.com