descrizione gestione proprietà con VBA
ritorna con variavba.htm

cripta.ppt
creazione di testo criptato con PassWordChar
sua utilizzazione per ottenere pass per accesso a programmi

chiave2.ppt
creazione di password per accesso a programma
da parte di utente autorizzato:chiave per creare la password
codificata con operazione (left$)da eseguire su testo da inserire e
criptato con PassWordChar

Option Explicit

Private Sub annulla_Click()
TextBox1.Text = ""
Label2.Caption = ""
Label3.Caption = ""
TextBox1.SetFocus
End Sub


Private Sub Conferma_Click()
Dim chiave As String
chiave = Left$(TextBox1.Text, 4)
If chiave = "mari" Then
Call esegue
Else
Label2.Caption = "password non accettata:riprova o rinuncia"
annulla.Enabled = True
Label5.Visible = True
annulla.SetFocus
End If
End Sub

Public Sub esegue()
Label3.Caption = "prosegue il programma"
Label5.Visible = False
Image1.Visible = True
End Sub

Private Sub Label4_Click()
End Sub

Private Sub TextBox1_Change()
Dim x As String
TextBox1.PasswordChar = "x"
End Sub

Private Sub CommandButton1_Click()
Label4.Visible = True
End Sub

Private Sub CommandButton2_Click()
Label4.Visible = False
End Sub


Private Sub UserForm_Click()

End Sub

chiave1.ppt variante senza PassWordChar inserimento
chiave precisa

Option Explicit

Private Sub annulla_Click()
TextBox1.Text = ""
Label2.Caption = ""
TextBox1.SetFocus
End Sub

Private Sub avanti_Click()
Rem Frame1.Visible = False
Call esegue
End Sub

Private Sub CommandButton1_Click()
CommandButton1.Visible = False
End Sub

Private Sub Conferma_Click()
avanti.Enabled = False
If TextBox1.Text = "marino" Then
Label2.Caption = "password accettata:clicca su avanti"
avanti.Enabled = True
avanti.SetFocus
Else
Label2.Caption = "password non accettata:riprova o rinuncia"
annulla.SetFocus
End If
End Sub

Public Sub esegue()
Label3.Caption = "prosegue il programma"
CommandButton1.Visible = True
End Sub

Private Sub Frame1_Click()
TextBox1.SetFocus
End Sub

chiave3.ppt variante con accesso almeno a parte pubblica

Option Explicit

Private Sub annulla_Click()
TextBox1.Text = ""
Label2.Caption = ""
Label3.Caption = ""
Label7.Caption = ""
TextBox1.SetFocus
End Sub

Private Sub Conferma_Click()
Dim chiave As String
chiave = Left$(TextBox1.Text, 4)
If chiave = "mari" Then
Call esegue
Else
Label2.Caption = "password non accettata:riprova o rinuncia"
annulla.Enabled = True
Label5.Visible = True
annulla.SetFocus
End If
End Sub

Public Sub esegue()
Label3.Caption = "prosegue il programma"
Label5.Visible = False
Image1.Visible = True
End Sub

Private Sub CommandButton3_Click()
Label7.Caption = "vedi parte pubblica"
End Sub

Private Sub TextBox1_Change()
Dim x As String
TextBox1.PasswordChar = "x"
End Sub

Private Sub CommandButton1_Click()
Label4.Visible = True
End Sub

Private Sub CommandButton2_Click()
Label4.Visible = False
End Sub


Private Sub UserForm_Click()

End Sub

chiave4.ppt variante più completa
testo base insignificante: essenziale che termini con carattere assegnato da codice " o "
(non si considerano eventuali errori dovuti a inserimenti errati...)

Option Explicit

Private Sub annulla_Click()
TextBox1.Text = ""
TextBox2.Text = ""
Label2.Caption = ""
Label3.Caption = ""
Label7.Caption = ""
TextBox1.SetFocus
End Sub

Private Sub Conferma_Click()
Dim n As Integer
Dim chiave As String
Dim passa As String
n = Val(TextBox2)
chiave = Left$(TextBox1.Text, n) + Right(TextBox1.Text, 1)
passa = Left$(TextBox1.Text, n) + "o"
If chiave = passa Then
Label2.Caption = "password valida:accedi"
Call esegue
Else
Label2.Caption = "password non accettata:riprova o rinuncia"
annulla.Enabled = True
Label5.Visible = True
annulla.SetFocus
End If
End Sub

Public Sub esegue()
Label3.Caption = "prosegue il programma"
Label5.Visible = False
Image1.Visible = True
End Sub

Private Sub CommandButton3_Click()
Label7.Caption = "vedi parte pubblica"
End Sub

Private Sub TextBox1_Change()
Dim x As String
TextBox1.PasswordChar = "x"
End Sub

Private Sub CommandButton1_Click()
Label4.Visible = True
End Sub

Private Sub CommandButton2_Click()
Label4.Visible = False
End Sub


Private Sub UserForm_Click()

End Sub