Bij openen "Sheet" activeren

[DZP]

Is het mogelijk om een geselecteerde sheet direct te activeren als het bestand wordt geopend zonder dat je ook maar 1 cel heb geactiveerd?

Ik heb het volgens mij wel ergens gelezen.
Ik heb het op diverse manieren proberen te zoeken maar zonder suc6.
Niet op Sheet, Activate, ActiveSheet enz.

 

[alberto10]

DZP,
Plak onderstaande code onder ThisWorkbook

Private Sub Workbook_Open()
    Sheets("Blad1").Activate
End Sub

 

[Ad Becude]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets(1).Select
End Sub

En deze voorkomt dat ie eerst naar het laatst gebruikte Blad gaat, en daarna pas naar Blad1

 

[DZP]

Vraag beter uitgelegd!!!

Nadat ik in een bestand heb gewerkt sluit ik mijn bestand:
Bijv. op sheet 8 of sheet 24,
dan onthoud excel automatisch de laatst bezochte sheet bij het sluiten.

Daarna open ik mijn bestand opnieuw:
Dan wil ik graag het bestand op de laatst geactiveerde sheet openen.
Bijv. op sheet 8 of sheet 24,
Dat doet excel ook zelf maar dan.
Dan wil ik graag die (variabele) sheet automatisch activeren zonder een cel aan te raken.

 

[Wigi]

Wat betekent:

... sheet automatisch activeren zonder een cel aan te raken.

?

 

[DZP]

Wat betekent:

... sheet automatisch activeren zonder een cel aan te raken.

Dat is een (mogelijke) beschrijving om mensen duidelijk te maken wat een ander bedoeld.

Wigi: Jou kennende weet je wel wat ik bedoeld heb, dus mijn vraag blijft <> is dat mogelijk.

Is het mogelijk om een varierende sheet te activeren bij het openen van het bestand.

Waar het om gaat is dat ik in een bestand heb met een macro die mij terugbrengt naar de laatst geactiveerde sheet. Maar als ik de (variabele) eerste sheet niet activeer omdat ik gewoon niets doe op die sheet dan werkt de macro niet. Dus daarom wil ik graag die (variabele) eerste sheet activeren op het moment dat het bestand geopend wordt.

 

[DZP]

Bij deze een bijlage of voorbeeld
Met dank aan Marcel Servaas.:thumb:

 

[NuMan]

Probeer onderstaande codes combineren?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Blad3.Cells(1, 1).Value = ActiveSheet.Name
End Sub

Private Sub Workbook_Open()
 Dim asn As String
 asn = Blad3.Cells(1, 1).Value
 Sheets(asn).Activate
End Sub

 

[DZP]

Ook dat wou helaas niet werken NuMan.


Een cel (Sheet) automatisch activeren kan wel.

Je moet alleen géén beveiligde cel aanroepen,
(anders eerst beveiliging eraf en daarna er weer op).

Ik heb de bijlage (met antwoord) bijgesloten,
en voor de liefhebbers staat de oplossing in "This Workbook".

Gr. Henk + allemaal nog fijne dagen.:thumb: