|
Login
  • Page:
  • 1

TOPIC: Userform x modifica password utente

Userform x modifica password utente 4 years 11 months ago #10048

  • rugantino
  • rugantino's Avatar
  • OFFLINE
  • Gold Boarder
  • Posts: 221
  • Thank you received: 4
  • Karma: 5
Ho creato un database excel(2003) con tanti userform che da quasi due anni viene utilizzato regolarmente da 6 utenti.
L’accesso avviene tramite autenticazione di utente e password. Usernam e password sono elencati nel foglio “Credenziali”. Tutto è funzionale.

Vorrei aggiungere una userform per permetta all’utente, se e quando lo ritiene necessario, di modificare la propria password d’accesso al programma.
Per far ciò, all’apertura della relativa form, in TextBox1 troverà già il proprio username mentre dovrà inserire la password in TextBox2 e confermarla in TextBox3.

Il Codice è:
Private Sub CommandButton2_Click()
Worksheets("Credenziali").Select
Dim lng As Long
If Me.TextBox2.Text = TextBox3 Then
Unload Me
RigaMod = Selection.Row
If SwErrore = True Then
Exit Sub
Else
End If
Range("B" & RigaMod) = TextBox2.Text
Unload Me
Exit Sub
MsgBox "ATTENZIONE: Le Password digitate non coincidono. Riprova!"
TextBox2 = ""
TextBox3 = ""
End If
End Sub

Non riesco a venirne a capo…
PS= la password attualmente corrisponde al nome in minuscolo…


File Attachment:

File Name: ModificaPasswordUtente.zip
File Size: 266 KB

Allego il file
Last Edit: 4 years 11 months ago by rugantino.
The administrator has disabled public write access.

Userform x modifica password utente 4 years 11 months ago #10074

  • lorenzo1957
  • lorenzo1957's Avatar
  • OFFLINE
  • Platinum Boarder
  • Posts: 849
  • Thank you received: 59
  • Karma: 51
Ciao,
ovviamente nel frattempo avrai risolto.
Il fatto è che non punta alla riga giusta, uno dei modi per risolvere potrebbe essere quello evidenziato in rosso:
Private Sub CommandButton2_Click()
Worksheets("Credenziali").Select
Dim lng As Long
If Me.TextBox2.Text = TextBox3 Then
Unload Me

Dim Intervallo As Range
With Sheets("Credenziali")
Set Intervallo = .Range("a2:a100")
For Each cl In Intervallo
If cl.Value = TextBox1.Text Then RigaMod = cl.Row
Next
End With
'RigaMod = Selection.Row ' da togliere assolutamente


If SwErrore = True Then
Exit Sub
Else
End If
Range("A" & RigaMod) = TextBox1.Text
Range("B" & RigaMod) = TextBox2.Text
Unload Me
Exit Sub
MsgBox "ATTENZIONE: Le Password digitate non coincidono. Riprova!"
TextBox2 = ""
TextBox3 = ""
End If
End Sub


ciao, Lo
Last Edit: 4 years 11 months ago by lorenzo1957.
The administrator has disabled public write access.

Userform x modifica password utente 4 years 11 months ago #10075

  • rugantino
  • rugantino's Avatar
  • OFFLINE
  • Gold Boarder
  • Posts: 221
  • Thank you received: 4
  • Karma: 5
Ciao Lo,
Si nel frattempo, girovagando per la rete e grazie al contributo di un iscritto ad un forum, ho risolto così:

Private Sub CommandButton2_Click()
Dim Utente As String
Dim CUtente As Range

Utente = TextBox1.Text
If Me.TextBox2.Text <> TextBox3 Then
MsgBox "ATTENZIONE: Le Password digitate non coincidono. Riprova!"
TextBox2 = ""
TextBox3 = ""
TextBox2.SetFocus
Exit Sub
End If

If Me.TextBox2.Text = TextBox3 And Me.TextBox2 <> "" Then

Set CUtente = Sheets("Credenziali").Range("A:A").Find(Utente, LookIn:=xlValues, lookat:=xlWhole)
If Not CUtente Is Nothing Then
CUtente.Offset(, 1).Value = Me.TextBox2.Text
MsgBox "Password modificata con successo"
Else
MsgBox "L'utente " & TextBox1.Text & " non presente nel registro credenziali"
Unload Me
Exit Sub
End If
End If
Unload Me
End Sub

Ti ringrazio comunque Lorenzo, anche perché in passato con i tuoi svariati interventi (ma anche di altri che non cito) sono riuscito in tante “imprese”.

Ciao Rugantino
The administrator has disabled public write access.
  • Page:
  • 1
Time to create page: 0.575 seconds