Boa tarde Mauro!
Obrigado por se prontificar em me ajudar.
Mauro o código em questão resolveria meu problema sim, porem como faço para mudar o intervalo?
Gostaria que ele abrangesse da "A3" até "AC148"
Siga os passos do link que eu passei no tópico anterior quanto ao Range (celulas) que pretende proteger ( http://blog.npibrasil.com/index.php/com ... -no-excel/), no seu caso o Range A3:AC148, e defina a senha.
Feito isto, coloque as instruções abaixo na aba em que definiu os ranges, clique com o botão direito na aba e selecione "Exibir Código", copie as rotinas e cole, salve e faça os testes.
Observe que na rotina "ApagaOuAlteraSenha" onde está definida a Senha, você precisa alterar de acordo com a que voce definiu.
Private Sub Worksheet_Change(ByVal Target As Range)
Call ApagaOuAlteraSenha
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A3:AC148")) Is Nothing Then
If Target.Value = "" Then
ActiveSheet.Unprotect
End If
Else
Call ApagaOuAlteraSenha
End If
End Sub
Sub ApagaOuAlteraSenha()
Dim ws As Worksheet
Set ws = Application.ActiveSheet
ws.Unprotect
' Apaga somente a Senha.
ws.Protection.AllowEditRanges.Item(1).ChangePassword _
Password:="SuaSenha" 'Altere para a senha que definiu
' MsgBox "A Senha para essa celula foi alterada."
ws.Protect
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 11/01/2016 9:29 pm