tabbladen beveiligen middels vba

[mtb]

aanpassen code voor tabbladen beveiligen middels vba

Hoi,

Ten eerste mijn excusses voor de code zoals die hieronder is weergeven maar op het werk kan ik geen tags/smily's ed. gebruiken

Vraag: deze code werkt perfect, maar graag zou ik willen dat als je deze code via extra-macro's wilt laten draaien er een een msg box komt met de vraag naar het wachtwoord. Is dit mogelijk??? Ik heb al geprobeerd dit via de vba editor dit te beveiligen middels extra-eigenschappen vba project en dan een wachtwoord in te voeren maar dan nog kan ik de code runnen..

alvast bedankt

Sub UnprotectAlleSheets()
Dim sh As Object
Dim JePassword As String

JePassword = "planning" 'zet tussen de quotes je eigen password

For Each sh In ThisWorkbook.Sheets
sh.Unprotect Password:=JePassword
Next sh

End Sub
Sub BeveiligAlleSheets()
Dim sh As Object
Dim JePassword As String

JePassword = "planning" 'zet tussen de quotes je eigen password

For Each sh In ThisWorkbook.Sheets
sh.Protect Password:=JePassword
Next sh

End Sub

 

[Wigi]

Hier is nuttige code:

http://www.mvps.org/dmcritchie/excel/inputbox.htm

Wigi

 

[snb]

Bedoel je dit

Sub UnprotectAlleSheets()
  on error resume next
  c0 = Inputbox(Voer je toegangscode in : ")

  For Each sh in Sheets
    sh.Unprotect c0
  Next
End Sub

 

[mtb]

Wigi, snb

Bedankt voor jullie input, werkt perfect