VBA code werkt niet naar wens

[marcel31281]

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

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

 

[HSV]

Met die code haal je de beveiliging er juist af mits het goede wachtwoord is ingevuld.

sh.Unprotect Password:="*****"

 

[marcel31281]

Ja dat klopt hahahaha foutje in mijn bericht

 

[AD1957]

Marcel,

Er staan nog twee topics open, zijn deze nu wel of niet opgelost?

 

[marcel31281]

excuses vergeten op opgelost te zetten

 

[VenA]

De vraag vind ik niet erg duidelijk.

Sub ww()
  On Error Resume Next
  ActiveSheet.Unprotect InputBox("ww", "ww")
End Sub

 

[marcel31281]

De code in #1 werkt prima, enigste nadeel is dat deze na uitvoeren naar een ander werkblad springt

 

[cow18]

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 ...

 

[marcel31281]

De code van Vena werkt verder prima, alleen zou ik nog een msgbox willen hebben als wachtwoord fout is

 

[cow18]

dan test je nadat je de beveiliging eraf hebt proberen te doen of dat ook effectief gelukt is met

If ActiveSheet.ProtectContents = True Then MsgBox "De beveiliging is er toch niet af, slecht paswoord"

 

[HSV]

Bij annuleren geen bericht.

If err.number <>0 Then MsgBox "De beveiliging is er toch niet af, slecht paswoord"

 

[marcel31281]

bedankt :thumb: