password-beskyttelse af kommandoknap

Det kan du sagtens. Nu ved jeg ikke hvoordan du vil angive, hvad der er det "rigtige" password? Men denne værdi kan enten hardkodes ind i koden eller gemmes i tabel, ini-fil, registreringsdatabase eller lign.

Men koden kan bare se således ud:


If inputbox("Angiv adgangskode", "Adgangskode?") = "Din adgangskode" then
  'gør hvad knappen skal gøre
else
  'msgbox "Forkert adgangskode!",vbexclamation, "fejl i adgangskode!"
endif

thomas...
kan man lave det så formatet i inputboksen er ***** og kan man lave den så hvis man trykke esc  så cancler den uden at skrive else

Juks, det kan man sagtens, men du kan ikke lave *** i en inputboks. Så skal du lave din egen inputboks, hvilket er lidt mere besværligt (jeg har et eks på en brugerdefineret dialogboks liggende her: http://www.makeiteasy.dk/eksempler/CustumInputbox.zip. Men den skal skrives en lidt om for at kunne bruges i dette eks.)

mht koden, så kan den sagtens forfines lidt:
Dim Svar as string
Svar = inputbox("Angiv adgangskode", "Adgangskode?")
Select Case Svar
  Case ""
  Case "Din adgangskode"
    'gør hvad knappen skal gøre
  case else
    msgbox "Forkert adgangskode!",vbexclamation, "fejl i adgangskode!"
end select

Ok, nu er jeg ikke lige nogen haj til at kode vb, så hvordan ville du sætte kodestumpen ind i den kode jeg har pastet nedenfor, hvis nu koden er 1111?


Private Sub tilHuse_Click()
On Error GoTo Err_tilHuse_Click

    Dim stDocName As String

    stDocName = "gaaTilIndtastningHuseFormular"
    DoCmd.RunMacro stDocName

Exit_tilHuse_Click:
    Exit Sub

Err_tilHuse_Click:
    MsgBox Err.Description
    Resume Exit_tilHuse_Click
   
End Sub


palau

sådan, såvidt jeg lige kan gennemskue:
Private Sub tilHuse_Click()
On Error GoTo Err_tilHuse_Click

Dim Svar as string
Dim stDocName As String
Svar = inputbox("Angiv adgangskode", "Adgangskode?")
Select Case Svar
  Case ""
  Case "1111"
    stDocName = "gaaTilIndtastningHuseFormular"
    DoCmd.RunMacro stDocName   
  case else
    msgbox "Forkert adgangskode!",vbexclamation, "fejl i adgangskode!"
end select

Exit_tilHuse_Click:
    Exit Sub

Err_tilHuse_Click:
    MsgBox Err.Description
    Resume Exit_tilHuse_Click
   
End Sub

Fantastisk!!

Tak for hjælpen.

palau

Det var skam så lidt - tak for point :o)