Salve a tutti

In una mia precedente discussione risolto brillantemente da albatros avevamo sviluppato questo codice vba per copiare il foglio precedente ed effettuare alcune modifiche sul nuovo foglio copiato. Nelle varie verifiche ho però constatato che nonostante il foglio precedente sia bloccato nelle celle e protetto da password quando si va a premere il tasto copia foglio avviene tutto in modo corretto ma crea un foglio senza protezione. è possibile inserire una stringa per proteggere il nuovo foglio come il precedente?

allego codice definitivo

Option Explicit
Sub albatros54Post22269()
    Dim p As String
    Dim q As Single
    Dim d As String
    Cells.Select
    p = ActiveSheet.name
    q = ActiveSheet.Range("o68")
    d = aume(p)
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Paste
    Range("a3:t44").FormulaR1C1 = ""
    Range("a60").FormulaR1C1 = ""
    Range("a64").FormulaR1C1 = ""
    Range("a68").FormulaR1C1 = ""
    Range("a72").FormulaR1C1 = ""
    Range("e56:j70").FormulaR1C1 = ""
    Range("k56:r62").FormulaR1C1 = ""
    Range("o64").FormulaR1C1 = ""
    ActiveSheet.name = "Cassa del " & d
    ActiveSheet.Range("a56") = q
    ActiveWindow.Zoom = 55
    Range("a1").Select
    
End Sub



Public Function aume(m)
    Dim MyArray As Variant, data As Variant
    Dim stringa As String, f As String, nomeaumentato As String
    Dim name As Date
    Dim rng As Range
    Dim nome As Date
    Dim aumento As String
    stringa = ActiveSheet.name
    MyArray = Split(stringa)
    nome = MyArray(2)
    nomeaumentato = nome + 1
    nomeaumentato = Replace(nomeaumentato, "/", "-")
    aume = nomeaumentato

End Function

Grazie a tutti