🚀 go-pugleaf

Ciao a tutti avrei bisogno di un favore, ho trovato su internet un foglio di
excel per magazzino ed e molto bello, ma mi chiede nome utente e pasword per
cambiare alcune cose, dal codice di visula basic (che io non conosco per
nulla) si puo sapere che nome mettere? il codice e questo
Grazie a tutti

Dim frase(20) As String, a As Integer, pass As String
Private Sub CommandButton1_Click()
    On Error Resume Next
    Application.EnableCancelKey = xlDisabled
    Application.ScreenUpdating = False
    pass = TextBox1.Text
    a = Len(pass)
    Select Case a
        Case Is < 6
            MsgBox "Nome non valido, immetti almeno sei lettere",
vbExclamation
            Exit Sub
        Case Is > 10
            pass = Mid(pass, 1, 10)
        Case Is < 10
            pass = pass + "dtlw"
            pass = Mid(pass, 1, 10)
    End Select
    For i = 1 To 10
        a = Asc(Mid(pass, i, 1)) + i
        If a > 122 Then a = a - 122 + 60
        frase(i) = Chr$(a)
    Next
    If TextBox2 = frase(5) + frase(1) + "/5" + frase(7) + frase(1) +
frase(3) + frase(2) + frase(8) + "3" + frase(4) + "\5" + frase(10) +
frase(9) Then
        With Sheets("Copertina")
            .Select
            .Unprotect ("�=@���[]125.;:448973%&$�~|)0hgdtstYFAJJH")
            .Range("e10").Value = True
            .Range("e11").Value = TextBox1.Text
        End With
        Sheets("Copertina").Protect
("�=@���[]125.;:448973%&$�~|)0hgdtstYFAJJH")
    Else: MsgBox "Password errata", vbExclamation
    End If
    Application.ScreenUpdating = True
    Unload Me
End Sub
Private Sub CommandButton2_Click()
    Unload Me
End Sub

Private Sub TextBox2_Change()

End Sub