Macro runnen na openen werkboek

[embrink]

Hoe kan ik automatisch een macro runnen als ik een werkboek open?

Ik heb dit scriptje van een vraag mbt Macro's in words gehaald, maar dit werkt niet:

Private Sub Document_Open()
'
' goto_startscreen Macro
' Macro recorded 10-11-2004 by
End Sub:


Ik wil ook een macro maken waarmee ik het werkboek sluit. Heeft iemand daar een script voor?

 

[[FJ]Hydra]

Zet deze code in ThisWorkBook

Private Sub WorkBook_Open()
Call bla..bla....
End sub

:thumb:

 

[[FJ]Hydra]

Om bestand te sluiten kun je een CommandButton aanmaken met de volgende code...

Private Sub CommandButton1_Click()
ThisWorkBook.Close
End sub

:thumb:

Of wil je het op een andere manier?

 

[embrink]

Bedankt.
De button om af te sluiten werkt.

Voor het openen in een bepaald sheet heb ik nu het volgende script staan in Werkboek1.xls - Module2 (Code) (is dat het Thisworkbook? wat je bedoelt? Werkboek1.xls is wel het bestand waar de macro in moet werken):

Private Sub Workbook_Open()
' Call goto_startscreen Macro
' Macro recorded 10-11-2004
'

'
Sheets("Startscreen").Select
Range("D13").Select
End Sub


Helaas opent het workbook nog niet met het 'startscreen'.

 

[[FJ]Hydra]

huh?

In de VBA-Editor Dubbelklik je op "ThisWorkBook"
Plaats daar jouw code in.

Private Sub WorkBook_Open()
Blad2.Activate 'naam van blad
Range("D13").Select
End Sub

 

[embrink]

Gelukt

Bedankt!