Excle bladen beveiligen met Visual Basic

[Marrttien]

Ik wil meerdere tabbladen beveiligen en heb hiervoor een macro gemaakt, zodat alle bladen in 1 keer beveiligd kunnen worden en ook de beveiliging er afgehaald kan worden met een wachtwoord.

Dit werkt prima, alleen kan ik nu in elk tabblad via extra / beveiliging / blad beveiligen, dit gewoon kiezen en zonder wachtwoord de beveiliging er afhalen.

Moet ik dit op een andere manier doen, of ben ik iets vergeten?

 

[E v R]

Laat jouw code eens zien, lijkt erop dat je geen wachtwoord meegeeft

 

[Marrttien]

Hoi Erik,

Mijn vba code is:

Private Sub CommandButton1_Click()
If InputBox("Wachtwoord: ", _
"Beperkte toegang") = 1234 Then
Sheets("Blad1").Select
ActiveSheet.Unprotect
Sheets("Blad2").Select
ActiveSheet.Unprotect
Sheets("Blad3").Select
ActiveSheet.Unprotect
Else
MsgBox "Ingevoerd wachtwoord is onjuist!", _
vbCritical + vbOKOnly, "Geen toegang!"
End If

End Sub
Private Sub CommandButton2_Click()
If InputBox("Wachtwoord: ", _
"Beperkte toegang") = 1234 Then
Sheets("Blad1").Select
ActiveSheet.Protect
Sheets("Blad2").Select
ActiveSheet.Protect
Sheets("Blad3").Select
ActiveSheet.Protect
Else
MsgBox "Ingevoerd wachtwoord is onjuist!", _
vbCritical + vbOKOnly, "Geen toegang!"
End If
End Sub

Gr,

 

[VenA]

Voor het beveiligen

For Each sh In Sheets
  sh.Protect 1234
Next sh

 

[Marrttien]

Hoi VenA,

Moet ik dit tussenvoegen en zo ja waar?

Gr,

 

[E v R]

Hierbij een combinatie van jouw code en die van VenA

Private Sub CommandButton1_Click()
 If InputBox("Wachtwoord: ", _
 "Beperkte toegang") = 1234 Then
    For i = 1 To 3
        Sheets("Blad" & i).Unprotect 1234
    Next i
 Else
    MsgBox "Ingevoerd wachtwoord is onjuist!", _
    vbCritical + vbOKOnly, "Geen toegang!"
 End If
 End Sub
 Private Sub CommandButton2_Click()
 If InputBox("Wachtwoord: ", _
 "Beperkte toegang") = 1234 Then
  For i = 1 To 3
        Sheets("Blad" & i).Protect 1234
    Next i
 Else
 MsgBox "Ingevoerd wachtwoord is onjuist!", _
 vbCritical + vbOKOnly, "Geen toegang!"
 End If
 End Sub

 

[Marrttien]

Hij doet het, super bedankt voor de snelle reacties!

 

[Marrttien]

Nog een vraagje, hoe kan ik er voor zorgen zat als je het wachtwoord intypt, er sterretjes op je scherm verschijnen?

Gr,

 

[Ginger]

Maak een VBA Formulier met een Textbox aan ipv het gebruik van een Inputbox. Hier kan je de eigenschap PasswordChar instellen.

 

[Marrttien]

Kan ik een inputbox toevoegen hieraan, of moet ik opnieuw opzetten?

 

[Ginger]

Ik begrijp je niet? Aan een formulier voeg je geen inputbox toe...

 

[Marrttien]

na uitvoering van de macro blijf de inputbox in beeld, hoe kan ik die laten verdwijnen?

Gr, Martien

 

[VenA]

Plaats het bestandje even met wat je gemaakt hebt.

 

[Marrttien]

hierbij mijn bestandje

 

[VenA]

bv

 

[Marrttien]

hoe kan ik aangeven dat er 0000 komt te staan in het scherm of ****, als ik het wachtwoord invul, ipv het echte wachtwoord?

 

[VenA]

Zie #9

 

[Marrttien]

waar moet ik dat aanpassen?

 

[HSV]

In de eigenschappen van de textbox.

 

[Marrttien]

wie kan mij zeggen waar ik passwordchar moet aanpassen, ik kan het niet vinden?