Avatar billede MHHJ Nybegynder
02. marts 2013 - 23:15 Der er 1 kommentar

pasword til flere bruger til at låse et ark-

Hejsa Forum

det skulle vel ikke være en herinde der lige ved hvordan man laver en kode til flere bruger.

det skal være sådan at trykker man på en login knap, kommer der en box om hvor man skriver sit pasword,

efter hvad pasword man har skal den skrive et tal i en celle, som via lopslag åbner for de data der er der.

eks. skiver man 1234 kommer der et 1 tal frem i C3
      skriver man 2457 kommer der et 3 tal frem i C3
      skriver man en forkert eller ingen kode skal den forblive tom
evt. kunne det komme en advarsel

håber der er nogen som kan hjælpe, har kikket alle steder men er ikke nogen som virker på den måde,

Mvh
Michael
Avatar billede store-morten Ekspert
06. marts 2013 - 22:50 #1
Måske denne:
Sub test()
Dim Svar As String
On Error GoTo Afslut
    Svar = InputBox("Indtast kode", "Bruger adgang")
    If Svar = "" Then GoTo Tom
    If Svar = 1234 Then
    Range("C3").Value = 1
    GoTo OK
    End If
    If Svar = 2457 Then
    Range("C3").Value = 3
    GoTo OK
    End If
   
GoTo Afslut

OK:
Exit Sub
Afslut:
Range("C3").ClearContents
MsgBox "Koden findes ikke!!!"
Exit Sub
Tom:
Range("C3").ClearContents
End Sub
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Stort udvalg af Excel kurser til alle niveauer og jobfunktioner

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester



IT-JOB

Silkeborg Forsyning A/S

Cloud specialist

SEGES Innovation

Azure Cloud Specialist

team.blue Denmark A/S

Account Manager

Matas A/S

IT-projektleder


White paper
Sådan: Opgradér din printerløsning uden store investeringer