marcel31281
Gebruiker
- Lid geworden
- 30 okt 2015
- Berichten
- 391
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
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 bewerkt: