Met knop beveiliging eraf halen

[cryptofreak1]

Hallo allemaal,

Ik heb een document met daarin een wachtwoord die word nu met een druk op de knop eraf gehaald, dan
volgt er een serie opdrachten en als hij klaar is zet hij het wachtwoord er weer op ((werkt goed))

dit is die code:

wachtwoord eraf:

ActiveSheet.Unprotect "open1234"

en wachtwoord erop:

ActiveSheet.EnableSelection = xlUnlockedCells
ActiveSheet.Protect "open1234"
ActiveWorkbook.Save

Maar nu wil ik dat als ze op de knop drukken zelf het wachtwoord in moeten toetsen en als het goed is gaat hij door met het uitvoeren van de rest.
en als het niet goed ((een bericht van Wachtwoord niet goed)) of ((gewoon niets))
heeft iemand iets voor mij waarmee ik hetgeen wat er nu in staat kan vervangen.

 

[HSV]

Met een inputbox?

if inputbox("voer hier het wachtwoord in", "let op") ="open1234" then
ActiveSheet.Unprotect "open1234"
msgbox "wachtwoord is goed"
ActiveSheet.Protect "open1234"
End If

 

[cryptofreak1]

het werk maar als ik nu het Wachtwoord verkeerd heb dan zou ik ook graag een berichtje willen geven.
van Wachtwoord is niet goed of zo, wat moet ik dan erbij voegen ????

 

[HSV]

if inputbox("voer hier het wachtwoord in", "let op") = "open1234" then
  ActiveSheet.Unprotect "open1234"
  MsgBox "wachtwoord is goed"
  ActiveSheet.Protect "open1234"
else
  msgbox "wachtwoord is niet goed of zo"
End If

 

[cryptofreak1]

Harry echt bedankt dit werkt uitstekend.

geweldig!!!!!:thumb::thumb: