Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 12 van 12

Onderwerp: VBA code werkt niet naar wens

  1. #1
    Senior Member
    Geregistreerd
    30 oktober 2015
    Vraag is opgelost

    VBA code werkt niet naar wens

    Onderstaande heb ik gebruikt om een beveiliging van mijn blad te halen, enige wat ik niet wil is dat bij het uitvoeren naar het volgende blad gaaat. Ik heb Next proberen weg te halen maar dan krijg ik alleen maar foutmeldingen. Kan iemand vertellen wat ik fout doe?

    Alvast bedankt

    Code:
    ub wachtwoord()
    
    strWW = InputBox("Voer wachtwoord in:")
    
    If strWW = "PPM" Then
    Dim sh As Object
    Dim JePassword As String
    
        JePassword = "PPM"  'zet tussen de quotes je eigen password
        
        For Each sh In ThisWorkbook.Sheets
            sh.Unprotect Password:="PPM"
        Next sh
    Else
        MsgBox "onjuist wachtwoord"
        Exit Sub
    End If
    End Sub
    Laatst aangepast door marcel31281 : 10 november 2019 om 09:10

  2. #2
    Giga Honourable Senior Member
    Geregistreerd
    18 juli 2008
    Met die code haal je de beveiliging er juist af mits het goede wachtwoord is ingevuld.

    Code:
    sh.Unprotect Password:="*****"
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  3. #3
    Senior Member
    Geregistreerd
    30 oktober 2015
    Ja dat klopt hahahaha foutje in mijn bericht

  4. #4
    Senior Member
    Verenigingslid

    Geregistreerd
    27 februari 2016
    Marcel,

    Er staan nog twee topics open, zijn deze nu wel of niet opgelost?
    Met vriendelijke groet,
    Albert

  5. #5
    Senior Member
    Geregistreerd
    30 oktober 2015
    excuses vergeten op opgelost te zetten

  6. #6
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    De vraag vind ik niet erg duidelijk.

    Code:
    Sub ww()
      On Error Resume Next
      ActiveSheet.Unprotect InputBox("ww", "ww")
    End Sub
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  7. #7
    Senior Member
    Geregistreerd
    30 oktober 2015
    De code in #1 werkt prima, enigste nadeel is dat deze na uitvoeren naar een ander werkblad springt

  8. #8
    Mega Senior cow18's avatar
    Geregistreerd
    24 mei 2008
    Locatie
    Alveringem, België
    Zeker weten ? Er staat daar toch nergens een activate of een goto of iets dergelijks.
    Kan er geen derde oorzaak zijn ? Een event of zo ...

  9. #9
    Senior Member
    Geregistreerd
    30 oktober 2015
    De code van Vena werkt verder prima, alleen zou ik nog een msgbox willen hebben als wachtwoord fout is

  10. #10
    Mega Senior cow18's avatar
    Geregistreerd
    24 mei 2008
    Locatie
    Alveringem, België
    dan test je nadat je de beveiliging eraf hebt proberen te doen of dat ook effectief gelukt is met
    Code:
    If ActiveSheet.ProtectContents = True Then MsgBox "De beveiliging is er toch niet af, slecht paswoord"

  11. #11
    Giga Honourable Senior Member
    Geregistreerd
    18 juli 2008
    Bij annuleren geen bericht.
    Code:
    If err.number <>0 Then MsgBox "De beveiliging is er toch niet af, slecht paswoord"
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  12. #12
    Senior Member
    Geregistreerd
    30 oktober 2015
    bedankt

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren