🚀 go-pugleaf

Se sei riuscito ad editare il codice presente su Textbox1_click,
probabilmente potresti riuscire anche leggere anche il contenuto di
Textbox2. Se non lo vedi perche' ha la propriet� Visible impostata su false
prova ad impostarla su true.

Un'altra possibilit� che hai � di modificare il codice segando radicalmente
un p� di righe :

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
> > >         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")
> > >     Application.ScreenUpdating = True
> > >     Unload Me
> > > End Sub
> > > Private Sub CommandButton2_Click()
> > >     Unload Me
> > > End Sub
> > >
> > > Private Sub TextBox2_Change()
> > >
> > > End Sub

Ciao Franco


Franco Mario <ilgrandeblek@tin.it> wrote in message
jAb8a.257817$0v.7183573@news1.tin.it...
> 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
> > >
> > >
> >
> >
>
>