Desculpe, não me atentei em declarar a senha então ela estará no meio do código...
1- No Excel aperte Alt+F11 para abrir o Visual Basic
2-Ao abrir, no menu à esquerda clique em Plan1.
encontrará esse código:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ul As Long
ul = [Plan1].Range("A" & Rows.Count).End(xlUp).Row
On Error Resume Next
If Target.Cells.Count > 1 Then
Exit Sub
End If
If Target.Column <= 2 And Target.Row >= 2 Then
If Target.Value <> "" And [Plan1].Range("E1").Value <> 123 Then ' _____ AQUI A SENHA 123, APENAS MUDE ELA
ActiveSheet.Unprotect
Target.Locked = True
[Plan1].Range("F1").Value = "BLOQUEADO"
ActiveSheet.Protect
MsgBox "Apenas administrador poderá alterar a senha"
[Plan1].Range("A1").Select
Exit Sub
Else
ActiveSheet.Unprotect
[Plan1].Range("F1").Value = "LIBERADO"
End If
End If
End Sub
A senha estará na 10ª linha do código. Apenas mude 123 para qualquer outra.
Obs. se a senha contiver letras símbolos ou espaço, coloque-a entre aspas. Ex. "xlarruda_exemplo"
___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].
Att.
André Arruda
Postado : 10/01/2018 12:05 pm