🚀 go-pugleaf

Ciao Franco e grazie per aver risposto. Il codice che ho inserito e quello
che vedo nella textbox2, se vuoi ti posso inviare il file di excel per
e_mail cosi puoi verlo.
Grazie ancora
Franco Mario


"Franco Veneziano" <franco72.veneziano@tiscali.it> ha scritto nel messaggio
news:b3qb2f$upl$1@lacerta.tiscalinet.it...
> 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
> >
> >
>
>