[Excel2003|VBA] Macro functie bij klikken Annuleren

[Gulf_5]

Ik ben bezig om een programma in Excel te maken, dat waterdicht moet worden gemaakt... Alleen ikzelf mag gemachtigd zijn om dingen te wijzigen. Het personeel mag data invoeren en verder niet.

Nu heb ik een login scherm, waar de gebruiker zijn/haar naam selecteert in een pulldown menu, waarna ze een pop-up krijgen om hun wachtwoord in te voeren. Bij een fout wachtwoord wordt de macro afgebroken en krijgt de gebruiker een melding het opnieuw te proberen, bij een goed wachtwoord gaat de gebruiker door naar een volgend scherm. Elke wijziging die daarna wordt doorgevoerd wordt gelogd onder de naam van die gebruiker. (Zodat ik alles kan blijven traceren)

Nu heb ik het volgende probleem, als de gebruiker in de pop-up voor het wachtwoord op Annuleren klikt, (keuze tussen OK en Annuleren) gaat de macro verder achter de wachtwoord check, zonder het wachtwoord dus te controleren. Op deze manier heeft de hele login-beveiligingsprocedure dus geen zin.... aangezien zonder de wachtwoordcheck automatisch de admin-login procedure wordt aangestuurd...

Is het mogelijk om in de macro een "click-on-annuleren"-event toe te voegen of iets dergelijks ? Zodat de macro wordt afgebroken op dezelfde wijze als bij een foutief wachtwoord ? Ik heb al in de help van office zitten zoeken maar kan daarin niks vinden, ook op GoT is dit punt nog niet aan de orde gekomen voorzover ik kan vinden...
Alvast bedankt !

[StevenK]

Zodra die wachtwoord dialog afgesloten is, kun je toch opvragen met welke knop het ding afgesloten is ?

[Gulf_5]

als dat kan, kun jij me dan vertellen hoe ? want dat is dus net het punt waar het bij mij ophoudt...

[StevenK]

Gulf_5 schreef op donderdag 19 oktober 2006 @ 11:26:
als dat kan, kun jij me dan vertellen hoe ? want dat is dus net het punt waar het bij mij ophoudt...

Dat ligt eraan wat voor soort dialog je gebruikt voor dat wachtwoord. Ik neem aan dat je een inputbox gebruikt en die geeft een lege string terug wanneer er op cancel wordt gedrukt.

Maar dit is wel allemaal heel erg van het 'kijk eens in de handleiding' niveau.

[Gulf_5]

ik wil hier best de code posten om daarmee alleen al aan te geven dat dit niet een "kijk eens in de handleiding" niveau is...

offtopic: Het gaat hier om een Excel bestand van ruim 3,5 MB dat vol staat met VBA waar ik al weken mee bezig ben, alleen kom ik hier gewoon niet uit, ik ben redelijk handig met VBA maar dit lukt me gewoon niet en daarom vraag ik hulp en dan komt t best flauw over als iemand me voor lui gaat lopen uitmaken....

ontopic: Als iemand niets invult en OK klikt komt er ook een lege string terug... en dan wordt de toegang geweigerd omdat die lege string niet overeenkomt met het wachtwoord... Als er op Cancel wordt gedrukt, slaat ie gewoon het hele macro gedeelte over... en gaat ie verder na het IF gedeelte...

Visual Basic:

[nog meer code...]
Do Until x = 3
    'check 3-maal wachtwoord, dan blokkeren
    pass = InputBox("Voer wachtwoord in voor gebruiker " & a, "Wachtwoord", "")
        If pass = b Then
        Range("N24").Value = a
        goto_start
        Exit Sub
        Else
            If x = 2 Then
            MsgBox "U heeft 3 maal een foutief wachtwoord ingevoerd, uw account wordt geblokkeerd" & Chr(13) & "Neem contact op met uw systeembeheerder", vbOKOnly, "Geblokkeerd"
            Else
            End If
        MsgBox "Het wachtwoord is onjuist, probeer nogmaals" & Chr(13) & "(Let op: na drie foutieve pogingen wordt deze gebruiker geblokkeerd)", vbOKOnly, "Onjuist wachtwoord"
        x = x + 1
        End If
    Loop
[...nog meer code]

[StevenK]

Sorry voor de onjuiste aanname. 'assumption is the mother of all fuckups'.

Als ik deze code gebruik en ik druk op 'cancel' in de inputbox, voert 'ie gewoon de 'else...end if' uit.

[Gulf_5]

hmmm.... wat gaat er bij mij dan verkeerd
dan zit t m ws niet daar in ofzo.... ik ga ff verder zoeken... tnx

[onkl]

Ik denk dat de fout niet zit in de cancel knop, maar in de afhandeling van een fout (of leeg in geval van een cancel) password.

Visual Basic:

[nog meer code...]
Do Until x = 3
    'check 3-maal wachtwoord, dan blokkeren
    pass = InputBox("Voer wachtwoord in voor gebruiker " & a, "Wachtwoord", "")
        If pass = b Then
        Range("N24").Value = a
        goto_start
        Exit Sub
        Else
            If x = 2 Then
            MsgBox "U heeft 3 maal een foutief wachtwoord ingevoerd, uw account wordt geblokkeerd" & Chr(13) & "Neem contact op met uw systeembeheerder", vbOKOnly, "Geblokkeerd"
'hier staat neem ik aan een methode om het account te blokkeren.
'En dan nog een code om te voorkomen dat de macrouitvoering rustig verder hobbelt.
End 'Inderdaad, zo simpel ;)
'of, n.a.v. de opmerking van Heretic:
Activeworkbook.Saved=true
Activeworkbook.close
'Gooi het bestand dicht zonder te saven.
'of verzin zelf iets wat de macrouitvoering stopzet en zet dat hier neer.
            Else
            End If
        MsgBox "Het wachtwoord is onjuist, probeer nogmaals" & Chr(13) & "(Let op: na drie foutieve pogingen wordt deze gebruiker geblokkeerd)", vbOKOnly, "Onjuist wachtwoord"
        x = x + 1
        End If
    Loop
[...nog meer code]

[/quote]

[ Voor 8% gewijzigd door onkl op 19-10-2006 15:12 ]

[Verwijderd]

zoek eens in de vb help door op de volgende keywords te F1'en en de help te consulteren:
inputbox->de functie die "" teruggeeft als ie gecanceld wordt.
application.inputbox->de methode die false teruggeeft als ie gecanceld wordt.
opgelet, de opdract End wist alle lokale globale & statische variabelen en gebeurtenisafhandelingsprocedures.