Protezione Foglio con Macro Excel

[michelaro]

Nel file Excel che sto creando dovrei fare una serie di copia e incolla all'apertura del foglio. Ma questo foglio è un foglio protetto ad eccezione di 2 celle. Non riesco a fare il copia su queste due celle anche togliendo la protezione non riesco a capire perchè, anzi sto impazzendo!!!!!

Allego il Codice:
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets("Scheda_di_Budget").Unprotect Password:="Demo"
Application.CalculateFull
Application.ScreenUpdating = True
Sheets("Appoggio").Select
ActiveSheet.Range("O20:P20").Select
Selection.Copy
Sheets("Appoggio").Select
ActiveSheet.Range("O27:P27").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Appoggio").Select
ActiveSheet.Range("O27:P27").Select
Selection.Copy
Sheets("Scheda_di_Budget").Select
Sheets("Scheda_di_Budget").Unprotect Password:="Demo"
ActiveSheet.Range("E10:F10").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CalculateFull
End Sub

Tale codice sta nel This Workbook
Nel foglio su indicato c'è invece:

Private Sub Worksheet_Activate()

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False, Password:="Demo"
ActiveSheet.EnableSelection = xlUnlockedCells

End Sub

Spero che qualcuno riesca ad aiutarmi, ma sopratutto spero di essere
stata chiara.

Grazie a tutti
Michela