"Dé grootste en gratis computerhelpdesk van Nederland"
-
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.
Full screen
- Onderwerp starter Bertus78
- Startdatum
- Status
HSV
Inventaris
- Lid geworden
- 18 jul 2008
- Berichten
- 20.317
- Office versie
- Office 365
Met "gba" zal je Vba bedoelen "Visual Basic for Application".
Zet alles bij het sluiten van het werkboek weer op true, ik heb er geen belang bij als ik jouw bestand open dat jij mijn instellingen wijzigt.
Er is in de Thisworkbookmodule een event die wordt aangeroepen als jij het bestand afsluit.
Zet alles bij het sluiten van het werkboek weer op true, ik heb er geen belang bij als ik jouw bestand open dat jij mijn instellingen wijzigt.
Er is in de Thisworkbookmodule een event die wordt aangeroepen als jij het bestand afsluit.
Bedankt,
Inderdaad merk ik dat de instellingen wijzigt en niet alleen in dit programma.
Ik zelf wordt er ook niet vrolijk van als mijn instelling wordt gewijzigd.
Ik heb er maar een knop voor gemaakt zodat ze zelf kunnen kiezen, bedankt voor de opmerking.
Inderdaad merk ik dat de instellingen wijzigt en niet alleen in dit programma.
Ik zelf wordt er ook niet vrolijk van als mijn instelling wordt gewijzigd.
Ik heb er maar een knop voor gemaakt zodat ze zelf kunnen kiezen, bedankt voor de opmerking.
SjonR
Verenigingslid
- Lid geworden
- 10 nov 2016
- Berichten
- 3.279
Het gaat erom dat je kan voorkomen dat deze instellingen ook later nog van kracht zijn, dus bij andere bestanden ook.
Zet daarom de code in een beforeclose-event. Zo zet je excel altijd terug naar de oude instellingen.
Zet daarom de code in een beforeclose-event. Zo zet je excel altijd terug naar de oude instellingen.
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
Application.DisplayFormulaBar = True
ActiveWindow.DisplayWorkbookTabs = True
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayGridlines = True
End SubBedankt, echter krijg ik een foutmelding.
Ik plaats de zin in "workbook open"
Maar dan krijg ik steeds de melding end zonder sub.
Wat doe ik fout hierin?
Ik plaats de zin in "workbook open"
Maar dan krijg ik steeds de melding end zonder sub.
Wat doe ik fout hierin?
Code:
Private Sub Workbook_Open()
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
Application.DisplayFormulaBar = True
ActiveWindow.DisplayWorkbookTabs = True
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayGridlines = True
End
MsgBox "Welkom" & vbLf & "Staat Microsoft Outlook aan?" & vbLf & "Zonder Outlook op de achtergrond kan dit programma niet werken."
Sheets("storing melden").Select
Range("b5").Select
End Sub
- Status
