macro automatisch uitvoeren bij openen van ecxel bestand

[ralphnag]

Als het bestand wat ik heb gemaakt word opgeslagen terwijl blad2 actief is dan moet bij het opnieuw opstarten van het bestand een macro automatisch gestart worden.

ik heb Private Sub Workbook_Open()geprobeerd maar dat werkt alleen als ik het in thiswoorkbook zet maar niet als ik het in blad2 zet.
tijdens het uitproberen ben ik er ook achter gekomen dat de macro niet gestart mag worden als ik vanuit een ander tabblad naar tabblad 2 toe ga.

gr ralph

 

[HSV]

Dan zet je toch als eerste voorwaarde:

If activesheet.name = "blad2" then

 

[ralphnag]

hij doet het.

onder thisworkbook heb ik gezet.

Sub Workbook_Open()
' start macro als opstarten met blad 2 geopent.
If ActiveSheet.Name = "geen toegang" Then
' countdown
Dim pausetime As Single
Dim start As Single
Dim finish As Single
Dim totaltime As Single

pausetime = 10 ' Duur in sec.
start = Timer ' Start de timer.

Do While Timer < start + pausetime
DoEvents ' Yield to other processes.
Blad2.Range("A1").Value = _
Format(pausetime + (start - Timer), "##")
Loop

finish = Timer ' Eind tijd.
totaltime = finish - start
Cells(1, 1) = ""


'afsluiten na 10 sec.
     Application.Run "afsluiten_zonder_opslaan"
End If
End Sub

txs