VBA wachtwoord beveiliging opheffen wijzigen

[ewaldmauritz]

Onderstaande macro heb ik (vanuit een voorbeeld) ingevoegd om middels een wachtwoord te voorkomen dat men de beveiliging van de tabbladen kan afhalen. Nu werkt dit op zich prima. Maar als je in de messagebox waar het wachtwoord ingevuld moet worden op annuleren klikt, dan wordt de beveiliging alsnog van de bladen gehaald. Kortom, je kunt dus de beveiliging verwijderen door op annuleren te klikken. Kan iemand voor mij de macro zo aanpassen dat als je op annuleren klikt de beveiliging niet wordt opgeheven?

Sub Opheffen()
Dim ww As String
Dim i As Integer
Afval = InputBox("Geef uw wachtwoord")
For i = 1 To Worksheets.Count
Sheets(i).Unprotect Afval
Next
End Sub

 

[Cobbe]

Een foutafvang toevoegen:

Sub Opheffen()
Dim ww As String
Dim i As Integer
For i = 1 To Sheets.Count
afval = InputBox("Geef uw wachtwoord")
[COLOR="#FF0000"]If afval = "" Then Exit Sub[/COLOR]
Sheets(i).Unprotect afval
Next
End Sub

 

[ewaldmauritz]

Geweldig, het werkt.
Bedankt.