Macro bij sluiten werkboek

already

unread,

Mar 12, 2008, 4:42:29 PM3/12/08

to

Hallo Graag had ik een macro willen maken die bij het sluiten van een
werkboek alle tabbladen (niet steeds een zelfde aantal) de focus krijgen op
cel A1 en automatisch focust op het eerste tabblad (cel A1) dit voor het
opslaan. Zodat telkens bij het terug openen van dit werkboek uit dezelfde
situatie kan worden vertrokken.

Wie kan mij hiermee helpen

alvast bedankt

Al

Blast

unread,

Mar 12, 2008, 5:21:10 PM3/12/08

to

zoiets zou moeten werken,

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim sh As Worksheet

For Each sh In ThisWorkbook.Worksheets
sh.Select
Range("A1").Select
Next
Sheets("Blad1").Select
End Sub

--
Groet, Johan
--
"already" <alr...@discussions.microsoft.com> schreef in bericht
news:BA7C6598-EC15-48CE...@microsoft.com...

already

unread,

Mar 13, 2008, 8:06:01 AM3/13/08

to

Hallo Johan

Bedankt voor je hulp. Als los staande macro werkt het prima maar ik kan het
niet laten lopen bij afsluiten (beforeclose)
Iemand een oplossing?

Groeten

Al

bart.s...@scarlet.be

unread,

Mar 13, 2008, 9:11:57 AM3/13/08

to

On 13 mrt, 13:06, already <alre...@discussions.microsoft.com> wrote:
> Hallo Johan
>
> Bedankt voor je hulp. Als los staande macro werkt het prima maar ik kan het
> niet laten lopen bij afsluiten (beforeclose)
> Iemand een oplossing?
>
> Groeten
>
> Al
>
>
>
> "Blast" wrote:
> > zoiets zou moeten werken,
>
> > Private Sub Workbook_BeforeClose(Cancel As Boolean)
> > Dim sh As Worksheet
>
> > For Each sh In ThisWorkbook.Worksheets
> > sh.Select
> > Range("A1").Select
> > Next
> > Sheets("Blad1").Select
> > End Sub
>
> > --
> > Groet, Johan
> > --

> > "already" <alre...@discussions.microsoft.com> schreef in bericht

> >news:BA7C6598-EC15-48CE...@microsoft.com...
> > > Hallo Graag had ik een macro willen maken die bij het sluiten van een
> > > werkboek alle tabbladen (niet steeds een zelfde aantal) de focus krijgen
> > > op
> > > cel A1 en automatisch focust op het eerste tabblad (cel A1) dit voor het
> > > opslaan. Zodat telkens bij het terug openen van dit werkboek uit dezelfde
> > > situatie kan worden vertrokken.
>
> > > Wie kan mij hiermee helpen
>
> > > alvast bedankt
>

> > > Al- Tekst uit oorspronkelijk bericht niet weergeven -
>
> - Tekst uit oorspronkelijk bericht weergeven -

dit voldoet precies aan wat je vraagt, alleen moet je hem op de
gepaste plaats zetten, nl. onder ThisWorkbook en niet in een gewone
module.

bart

already

unread,

Mar 13, 2008, 1:31:14 PM3/13/08

to

Dag Bart

Daar staat het in

Maar ik krijg het niet voor elkaar

"this workbook' keuze lijst >'workbook' en keuze lijst > 'beforeclose'

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim sh As Worksheet

For Each sh In ThisWorkbook.Worksheets
sh.Select
Range("A1").Select
Next

Sheets("sheet1").Select
End Sub
Wat doe ik verkeerd?

Groeten

Al

Blast

unread,

Mar 13, 2008, 4:18:53 PM3/13/08

to

Heb je per ongeluk je macrobeveiliging op hoog staan?

--
Groet, Johan
--
"already" <alr...@discussions.microsoft.com> schreef in bericht

news:897B55B1-309D-4A9A...@microsoft.com...

NOSPAM@skynet.be Cobbe

unread,

Mar 13, 2008, 4:50:35 PM3/13/08

to

'Sheets("sheet1").Select'

Is de naam vh blad wel 'sheet1' en niet 'Blad1' of iets anders ?

Cobbe

already drukte met precisie uit :

jan

unread,

Mar 14, 2008, 5:06:56 AM3/14/08

to

Al,

Als je de regel Me.Save toevoegt aan het eind van je code, dan wordt de dan ontstane
situatie opgeslagen.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim sh As Worksheet

For Each sh In ThisWorkbook.Worksheets
sh.Select
Range("A1").Select
Next
Sheets("sheet1").Select

Me.Save
End Sub

Jan

"Cobbe" <Cobbe NOS...@skynet.be> schreef in bericht
news:mn.6d1e7d835...@skynet.be...

already

unread,

Mar 14, 2008, 6:34:01 AM3/14/08

to

Hallo allemaal

hier enkele antwoorden op jullie vragen

Cobe ja ik heb de macro aangepast naar sheet1 wel had ik graag gehad dat de
macro niet afhankelijk is van de naam van het eerste blad

Blast, de beveiliging staat op low

Ik probeer staks de oplossing van Jan

Vriendelijke groeten

Al

emil

unread,

Mar 14, 2008, 6:54:28 AM3/14/08

to

eerste blad:

ThisWorkbook.Worksheets(1).select

--
groet, emil
<uit de losse pols>

"already" <alr...@discussions.microsoft.com> schreef in bericht

news:217C7567-DAC3-49C0...@microsoft.com...

NOSPAM@skynet.be Cobbe

unread,

Mar 14, 2008, 7:18:36 AM3/14/08

to

Zet je code in Workbook.open, zodat je eens en voor altijd bepaalt welk
blad en welke cel geselecteerd is bij openen vh bestand.

Cobbe

already heeft uiteengezet op 14/03/2008 :