excel 2016 macro in foglio con celle protette

[ANTONIO1105]

salve,
ho un file excel con alcune celle protette. nell'eseguire le macro, prima del codice macro inserisco la seguente stringa:
Sheets("Foglio1").Unprotect
quindi il codice macro
e per riproteggere le celle inserisco la seguente stringa:
Sheets("Foglio1").Protect
Tutto sembra funzionare ma con Ma: praticamente ad esecuzione della Macro, le celle protette nn risultano + protette.
esempio:
A1= Antonio (cella modificabile), la macro deve copiare il contenuto di A1 in D4 (cella protetta). quindi scrivo il seguente codice che, ripeto, mi esegue la macro ma non ripristina la protezione nella cella D4:

Sheets("Foglio1").Unprotect
Range("A1").Select
Selection.Copy
Range("D4").Select
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
Sheets("Foglio1").Protect
End Sub

Dove sbaglio?
grazie 1000

[alfrimpa]

Devi "giocare" con la proprietà Locked dell'oggetto Range che può essere True o False.