Toegang met wachtwoord hulp

Status
Niet open voor verdere reacties.
E

ExcelTonnie

Gebruiker
Lid geworden
5 jul 2016
Berichten
300
kom er even niet uit, heb dan ook weinig kennis van VBA.

Ben met een foto_programmatje bezig waar je toegang kan krijgen tot een Userform middels een wachtwoord.
Dit werkt goed alleen wanneer je niets invult of op annuleer of OK drukt komt de foutmelding.

Tevens wanneer ik een naam kies voor een foto die niet bestaat komt die ook met een foutmelding.


Bekijk bijlage Cup_fouten.xlsmKlemmen.jpgOlieVlek.jpg
 
Wat gaat er mis zonder wachtwoord ?
 
Een werkblad zonder 'beveiliging' geeft nooit een foutmelding.
 
Dat kan je wel zo makkelijk zeggen maar je gebruikt in de code paden en bestanden die wij niet hebben en gaat het dus sowieso fout.
Daarnaast hoor je, als je zegt een foutmelding te krijgen, die melding er bij te vermelden.
Van de duizenden die er zijn kunnen wij niet gissen over welke je het hebt.
 
edmoor zei:
Dat kan je wel zo makkelijk zeggen maar je gebruikt in de code paden en bestanden die wij niet hebben en gaat het dus sowieso fout.
Daarnaast hoor je, als je zegt een foutmelding te krijgen, die melding er bij te vermelden.
Van de duizenden die er zijn kunnen wij niet gissen over welke je het hebt.
Klik om te vergroten...

Ok even voor de duidelijkheid.
Ik ben afhankelijk van jullie en hoop ook dat iemand een oplossing weet en probeer daarom verduidelijking te geven.

Het bestandje staat erop met 2 afbeeldingen.
Plaats deze in een zelfde map bij elkaar en start het progje op.
Je kan uit de lijst een naam kiezen bijv. Klemmen en de foto wordt getoond.
Dit moet nog verder uitgebreid worden.
Wanneer je op toevoegen klikt dan heb je een pw nodig. In dit geval 682340, toets je bijv 1234 dan krijg je een melding. Tot zover perfect maar als ik op annuleer of ok druk dan krijg je een melding die je kan bekijken of negeren en dat wil ik graag opgelost hebben. Dus bijv. “ u heeft geen invoer gedaan”
Hoop dat het nu een beetje duidelijk is.

Uiteraard een ieder bedankt voor zijn hulp.
 
Haal al die 'beveiligingen' uit je werkboek. Het is allemaal onzin.
 
Wijzig dat wachtwoord stukje eens in dit:
Code: 
Private Sub Cmd_Add_Click()
    While Teller < 3
        Select Case InputBox("Wachtwoord ingeven aub")
            Case "682340"
                Unload Frm_ViewFault
                Frm_Voegtoe2.Show
                Exit Sub

            Case Else
                MsgBox "Wachtwoord onjuist"
                Teller = Teller + 1
        End Select
    Wend
    
    MsgBox "Wachtwoord onjuist  Het programma wordt nu afgesloten"
    ActiveWorkbook.Saved = True
    Application.Quit
End Sub

Voor de rest kan alles ook een stuk netter worden geschreven.
En een MsgBox met o.a. "Ben je zo dom" slaat natuurlijk totaal nergens op.
 
Laatst bewerkt:
ExcelTonnie zei:
kom er even niet uit, heb dan ook weinig kennis van VBA.
Ben met een foto_programmatje bezig waar je toegang kan krijgen tot een Userform middels een wachtwoord.
Klik om te vergroten...
Effe terug naar "af".

Wat wil je bereiken met deze tool nu exact bereiken?
Zijn er geen (freeware) tools/programma's die dit ook kunnen?
Wat missen ze eventueel aan mogelijkheden?

Zeker omdat je weinig kennis hebt van VBA is dit wel te overwegen. Er is meer goede freeware/open source software dan je denkt.
 
route99 zei:
Effe terug naar "af".

Wat wil je bereiken met deze tool nu exact bereiken?
Zijn er geen (freeware) tools/programma's die dit ook kunnen?
Wat missen ze eventueel aan mogelijkheden?

Zeker omdat je weinig kennis hebt van VBA is dit wel te overwegen. Er is meer goede freeware/open source software dan je denkt.
Klik om te vergroten...

Daar kom ik nog op terug, zijn meer oefeningen om vba te kunnen begrijpen.
 
edmoor zei:
Wijzig dat wachtwoord stukje eens in dit:
Code: 
Private Sub Cmd_Add_Click()
    While Teller < 3
        Select Case InputBox("Wachtwoord ingeven aub")
            Case "682340"
                Unload Frm_ViewFault
                Frm_Voegtoe2.Show
                Exit Sub

            Case Else
                MsgBox "Wachtwoord onjuist"
                Teller = Teller + 1
        End Select
    Wend
    
    MsgBox "Wachtwoord onjuist  Het programma wordt nu afgesloten"
    ActiveWorkbook.Saved = True
    Application.Quit
End Sub

Voor de rest kan alles ook een stuk netter worden geschreven.
En een MsgBox met o.a. "Ben je zo dom" slaat natuurlijk totaal nergens op.
Klik om te vergroten...
Bedankt voor je hulp maar inderdaad gaat dit ook nog veranderen, het is maar een oefening nog om VBA te kunnen begrijpen wat elke regel nu precies doet.
 
ExcelTonnie zei:
Bedankt voor je hulp maar inderdaad gaat dit ook nog veranderen, het is maar een oefening nog om VBA te kunnen begrijpen wat elke regel nu precies doet.
Klik om te vergroten...

Recept voor een ramp, in de eerste les programmeren een wachtwoord erop zetten en hopelijk er weer vanaf afhalen.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan