Thisworkbook code verlpaatsennaar auto_open

[glda19]

hi

Kan dit wat nu onder thisworkbook staat verplaatsen op verwarring te vermijden op termijn als er lang niet naar de code is moeten kijken
verplaatsen naar een module waar auto_open staat
Dit omdat je niet snel verwacht dat er code staat in thisworkbook eerder in modules
Wat dan met woorkbook beforeclose

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'inschakelen van rechts klikken op de tabladen
    Application.CommandBars("Ply").enabled = True
    
End Sub
 
Private Sub Workbook_Open()
Dim oSh As Worksheet
'uitschakelen van rechts klikken op de tabladen
 Application.CommandBars("Ply").enabled = False
'Plaats in het regeister Computer\HKEY_CURRENT_USER\Software\VB and VBA Program Settings
'Ophalen van de toestand van de checkbox rodelijn weergeven aan uit
bRodelijnWeerGevenAanUit = GetSetting("Verlofkalender", "checkboxstate", "RodelijnWeergevenAanUit", True) ' true=default value als er niks in het register staat
 
 
 'Beveilgen van alle werkbladen
 'Maar zorgen dat bepaalde objecten kunnen worden verwijderen en geselecteerd worden.
     For Each oSh In ThisWorkbook.Worksheets
                oSh.Protect Password:="test", UserInterfaceOnly:=True, DrawingObjects:=True, Contents:=True, Scenarios:=True
  Next

'Nagaan of er een werblad bestaat met een naam met een jaarnr
'Is het active werblad met de naam Printkalender of een Naam met een jaar dan
'mag onderstaande worden uit gevoerd. Dit is het her tekenen van de kalender met of zonderf rodelijnen
If IsNumeric(ActiveSheet.Name) Or ActiveSheet.Name = "Print Kalender" Then
    Call WeekLijnTrekken
End If

End Sub

 

[glda19]

@cow18
Het zelf even getest na het posten
Mag verplaatst worden.
Er moet niks staan in thisworkbook

Maar thx voor de help

 

[jkpieterse]

Ik weet niet waarom je niet in ThisWorkbook zou kijken? Het is de eerste plaats waar ik ga neuzen om te zien of er iets start als ik het bestand open.