Hur gör man för att använda lösenord när man vill att komandoknapparna ska skifta mellan Enabled = True - Enabled = False du kan ju prova med det här. Hej, jag har gjort på följande sätt:Lösenord
MVH IvanSv: Lösenord
<code>Private Sub Label1_Click()
If Text1.Text = "false" Then
Command1.Enabled = False
End If
If Text1.Text = "true" Then
Command1.Enabled = True
End If
End Sub
</code>
det var bara något jag slängde ihop just nu.Sv: Lösenord
Private Sub mnuLösen_Click()
Dim varResponse As String
Dim fel
Dim PasswordChar
Static ErrCount
varResponse = InputBox("Skriv in lösenordet", vbYesNo)
If varResponse = "kalle" Then
cmdRadera.Enabled = True
cmdNy.Enabled = True
cmdRedigera.Enabled = True
cmdAvbryt.Enabled = True
ErrCount = 0
Else
fel = MsgBox("Fel lösenord. Försök igen.", vbOKOnly)
ErrCount = ErrCount + 1
If ErrCount > 3 Then
End If
End If
End Sub
Det fungerar som det är, men jag vill att det ska gå att ändra lösenordet när man
kör programmet. Jag vill också att lösenordet inte syns i textrutan. Bara "*****".
MVH
Ivan