alle tabbladen in een werkmap terug vergrendelen bij het sluiten van het bestand.

[davylenders123]

Kan ik via vba er voor zorgen dat alle tabbladen opnieuw worden vergrendeld zonder wachtwoord
Bij het sluiten van het bestand of bij het opslaan van het bestand ?
En met uitzondering van 1 tabblad.

 

[davylenders123]

Tot hier ben ik al geraakt , het gebeurt nu wel bij het open van het bestand , maar dit is ook goed.

Enkel zou ik nu nog willen dat het tabblad Basisinstellingen niet wordt beveiligd , wat moet ik dan toevoegen ?

Private Sub Workbook_Open()
For Each sh In Sheets
sh.Protect
Next
End Sub

 

[Conseclusie]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each Sh In ThisWorkbook.Sheets
    If Sh.Name <> "Basisinstellingen" Then
        Sh.Protect
    End If
Next Sh
End Sub

(plaatsen in ThisWorkbook-object)

 

[roeljongman]

een if test

Private Sub Workbook_Open()
if sh.name <> "Basisinstellingen" then 
For Each sh In Sheets
   if sh.name <> "Basisinstellingen" then sh.Protect
Next
End Sub

v

 

[davylenders123]

Bedankt voor jullie snelle hulp :thumb::thumb::thumb: