🚀 go-pugleaf

Ciao,
dovresti dirci cosa vedi in Textbox2.

Ciao Franco

Franco Mario <ilgrandeblek@tin.it> wrote in message
yzN7a.251403$0v.6984791@news1.tin.it...
> 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
>
>