Werkblad automatisch beveiligd na afsluiten

[Toby1982]

Weet iemand toevallig ook hoe ik het werkblad automatisch kan vergrendelen als je het afsluit.
Als ik het via werkblad beveiligen doe moet ik elke keer als ik hem eraf haal weer de code opnieuw invoeren om hem te beveiligen.
Aangezien sommige mensen dit wel is vergeten kan diegene die hem opent en niet de code heeft hem toch bewerken.

 

[edmoor]

Dit in de ThisWorkbook sectie:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    For Each sht In ThisWorkbook.Sheets
        sht.Protect "JeWachtwoord"
    Next sht
End Sub

 

[Toby1982]

Maakt het nog uit dat deze code ook erin staat?

Private Sub Workbook_Open()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
For j = 10 To 366
If Cells(57, j).Value = Date Then
ActiveWindow.ScrollColumn = j
End If
Next
End Sub[\CODE]

 

[edmoor]

Dat is het Workbook_Open event.
Ik liet de Workbook_BeforeClose zien.

 

[Toby1982]

Ok ik heb de code eronder gezet, maar als ik het file afsluit werkt het niet.
Als ik hem open kan ik de cellen nog steeds bewerken.

 

[edmoor]

Dan heb je toch iets niet goed gedaan.
Plaats je bestand of laat een volledige scherm afdruk van de VBA editor zien waar je de code hebt geplaatst.

 

[Toby1982]

 

[edmoor]

Dat is goed, dus dat moet gewoon werken.
Als het niet zo is, plaats dan je bestand.

 

[Toby1982]

Het bestand kan ik niet uploaden want er staan teveel privacy gevoelige gegevens in.

 

[edmoor]

Dus?
Het mag toch ook gewoon een leeg bestand zijn met die code en een aantal werkbladen?

Test het daar in en werkt het niet plaats die dan hier.

 

[Toby1982]

Heb het geprobeerd in een leeg bestand doet die het ook niet.

 

[edmoor]

Werkt hier prima.
Na het opslaan is het werkblad keurig beveiligd en kan je dus niks intikken.

 

[Toby1982]

Ik heb de code veranderd naar dit en nu werkt die perfect.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    For Each sht In ThisWorkbook.Sheets
        sht.Protect "1234"
    Next sht
    ActiveWorkbook.Save
End Sub

 

[edmoor]

Ja, dan heb je bij de eerdere tests het document niet opgeslagen, dat schiet niet op natuurlijk.
Dat doe je nu automatisch.