Bloccare celle dopo inserimento dati e sblocco con password

[helly helly]

Ciao a tutti,
premetto che sono pochi giorni che sto smanettando con Vba e macro.
La mia esigenza è quella di bloccare le celle dopo l'inserimento di un dato, impossibilitandone cosi la modifica/eliminazione con la possibilità di sbloccarle attraverso una password.
La mia situazione è questa:
inserisco il dato e premo invio , la cella quindi viene bloccata e posso rimuovere la protezione di quella cella solo attraverso una password. 

Ho verificato e la seguente formula funziona ma non so come inserire la password per lo sblocco.

Grazie mille in anticipo

 

Private Sub Worksheet_Activate()
Cells.Select
Selection.Locked = False
ActiveSheet.Protect
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("A4:A1000")) Is Nothing Then

ActiveSheet.Unprotect

If Target.Value <> "" Then
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End If

End Sub

[GiuseppeMNPartecipante GiuseppeMN Karma: 19 pts]

Buona sera, @helly;
se ho interpretato correttamente la tua richiesta potresti provare con, per proteggere:

ActiveSheet.Protect Password:="TuaPassword"

per sproteggere;

ActiveSheet.Unprotect Password:="TuaPassword"

Buona serata.

Giuseppe

[Autore]

Articoli