Moderatori: Anthony47, Flash30005
Sub isp()
Dim pass, ipname As String
ipname = "prova"
pass = InputBox(prompt:="Inserisci password di accesso per Proseguire: ", _
Title:="Controllo accessi")
If ipname = pass Then
Sheets("isp").Visible = True
Sheets("isp").Select
Else: MsgBox "Password errata : Accesso non consentito", vbInformation + vbYes, _
"Verifica Password"
Exit Sub
End If
End Sub
Sub StopControl()
Dim ctrl As CommandBarControl
For Each ctrl In Application.CommandBars("Cell").Controls
If ctrl.Caption = "&Copia" Then ctrl.Delete
Next
End Sub
Sheets("Isp").Visible = xlHidden
Sheets("Isp").Visible = xlVeryHidden
ricky53 ha scritto:Ciao,
bene per il primo passo.
Adesso:
puoi utilizzare una userform (chiamata da un pulsante cui tu assegnerai il nome "Cambia Password") nella quale fai fare la modifica della PSW chiedendo (con tre textbox)la vecchia e due volte la nuova (la seconda volta a conferma della prima impedendo il copia incolla se possibile) impstando la proprietà "PasswordChar" a "*" in tutte e tre le text box.
Prova e ... sono QUI
Sub isp()
Dim pass, ipname As String
ipname = "prova"
UserForm1.Show
End Sub
Private Sub CommandButton1_Click() 'ok
UserForm1.Hide
If ipname = UserForm1.TextBox1.Value Then
Sheets("isp").Visible = True
Sheets("isp").Select
Else: MsgBox "Password errata : Accesso non consentito", vbInformation + vbYes, _
"Verifica Password"
Exit Sub
End If
End Sub
Private Sub CommandButton2_Click() 'annulla
UserForm1.Hide
End Sub
Private Sub CommandButton3_Click() 'cambia password
UserForm1.Hide
UserForm2.Show
End Sub
Private Sub CommandButton1_Click() 'ok
If UserForm2.TextBox1 = ipname And UserForm2.TextBox3 = UserForm2.TextBox2 Then
ipname = UserForm2.TextBox2.Value
UserForm2.Hide
Else: MsgBox "Password errata. Riprova."
UserForm2.Hide
UserForm2.Show
End If
End Sub
Private Sub CommandButton2_Click() 'annulla
UserForm2.Hide
End Sub
Public ipname As String
Anthony47 ha scritto:Prova a dichiarare Public la variabile ipname, scrivendo IN TESTA a un Modulo standard (es Modulo1)
- Codice: Seleziona tutto
Public ipname As String
(ovviamente rimuoverai la [Dim] ipname As String in testa alla Sub isp)
In questo modo la ipname che usi nella macro di evento dei pulsanti sara' la stessa che inizializzi in Sub isp; nella situazione di adesso infatti si tratta di variabili diverse pur avendo lo stesso nome, perche' l' area di validita' e' limitata alla specifica macro.
Ciao
ricky53 ha scritto:Ciao,
No, la varibile viene impostata, dal tuo codice, quando occorre e vale per tutti gli utenti.
Qualche suggerimento:
è meglio creare una corrispondenza utente/sua psw (tabella che scriverei in un foglio nascosto) e poi con il codice e la userform consentire la modifca, ad ogni utente, della propria psw aggiornando questa tabella di corrispondenza.
Questa tabella verrà utilizzata anche in apertura del file per controllare l'accesso dell'utente ...
Sono IDEE su cui lavorare.
Torna a Applicazioni Office Windows
Macro protezione foglio con password non funge Autore: xilofono |
Forum: Applicazioni Office Windows Risposte: 13 |
Esiste un riferimento relativo al foglio precedente? Autore: wallace&gromit |
Forum: Applicazioni Office Windows Risposte: 4 |
Problema stampa due pagine Excel su foglio A4 Autore: dipdip |
Forum: Applicazioni Office Windows Risposte: 11 |
Totale valori di più colonne del foglio con funzione Sum Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 6 |
Dividere foglio in piu' fogli e concatena Autore: marcopont |
Forum: Applicazioni Office Windows Risposte: 14 |
Visitano il forum: Nessuno e 102 ospiti