• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Tapblad automatisch sluiten bij afsluiten programma

Status
Niet open voor verdere reacties.
B

Budel

Gebruiker
Lid geworden
2 sep 2015
Berichten
80
Beste,

Wie kan mij helpen bij het volgende.
Ik heb een bestandje gemaakt maar kom nu niet verder.
op de eerste blad staat een knop voor open van een database, nu is het zo dat deze na het openen deze via de zelfde knop ook gesloten moet worden.
Graag wil ik dit zo instellen dat deze automatisch sluit bij afsluiten van het bestand.
Indien dat het bestand geopend word dat deze database niet zichtbaar is.
Wie kan mij daarbij mee helpen.
Heb het bestandje toegevoegd.Bekijk bijlage Map1 test.xlsx
 
Laatst bewerkt:
ZO?

Code: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
     ActiveWorkbook.Unprotect "xxxx"
     Sheets("Database").Visible = False
     ActiveWorkbook.Protect "xxxx"
End Sub

Eventueel nog toevoegen als het ook moet worden opgeslagen:

Code: 
ActiveWorkbook.Save
 
Laatst bewerkt:
Een 1e stap in de richting ?
Plaats onderstaande code in ThisWorkbook
Code: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call ToonVerbergWerkblad2
End Sub
 
@Budel. Ik zie dat je vraag als "Opgelost" hebt gemerkt.
Een kort berichtje hoe/waarmee je de oplossing hebt gerealiseerd staat wel zo netjes :rolleyes:
 
Beste mensen,

door omstandigheden kon ik niet direct reageren.
Toch wil ik jullie bedanken voor de oplossing op mijn vraag.
Inmiddels is het probleem voor mij opgelost.
Dankjewel.
 
Budel zei:
Beste mensen,

door omstandigheden kon ik niet direct reageren.
Toch wil ik jullie bedanken voor de oplossing op mijn vraag.
Inmiddels is het probleem voor mij opgelost.
Dankjewel.
Klik om te vergroten...

Deel je oplossing ook met de forumbezoekers ! Welke van de aangeboden oplossingen hebt je uiteindelijk toegepast?

Wel kunnen markeren als opgelost en niet direct kunnen reageren ? Vreemd :shocked: vaak is het omgekeerde het geval
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan