Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Afsluiten Excel uitschakelen  (gelezen 3004 keer)

0 leden en 1 gast bekijken dit topic.

Offline cladon

  • Volledig lid
  • **
  • Berichten: 246
  • Geslacht: Man
Afsluiten Excel uitschakelen
« Gepost op: 21 oktober 2006, 19:12:46 »
Is het mogelijk om met vba ervoor te zorgen dat de gebruiker niet in de mogelijkheid is om het toepassingsvenster van Excel te sluiten dmv een klik op de afsluitknop.

Andere formulering: Kan ik de de werking van de afsluitknop van het toepassingsvenster waarin excel draait uitschakelen of opvangen en doorsturen naar een procedure waar ik het afsluiten van excel kan opvangen.
Windows 10 Home   NLD 64bit,
Intel(R) Core(TM) i7-3770 CPU @ 3.40GHz 3401
P8B75-M LE
Intel(R) HD Graphics 4000 3072MB 1920 x 1080
VIA HD Audio
C:\ NTFS 237,25GB 135,35GB 15 293MB
AV: Kaspersky
FW: Windows 10

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.284
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re:Afsluiten Excel uitschakelen
« Reactie #1 Gepost op: 21 oktober 2006, 21:54:45 »
Cladon,
Het was me niet helemaal duidelijk wat je nou bedoelde. Maar wellicht dat je hier iets mee kan. Zet dit codeblok in je 'workbook sectie' van je vba editor (ALT + F11)

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    If Me.Saved = False Then
        Cancel = True
        MsgBox "je moet eerst je werkbook (" & ActiveWorkbook.Name & ") opslaan!"
    End If

End Sub


groet, Leo
______________________________

Groet, Leo

Offline cladon

  • Volledig lid
  • **
  • Berichten: 246
  • Geslacht: Man
Re:Afsluiten Excel uitschakelen
« Reactie #2 Gepost op: 22 oktober 2006, 12:18:49 »
Bedankt RedHead

Ik had het ook al opgelost op deze wijze.

De echte oplossing is echter dat ik de windows API calls aanspreek en zo de controle overneem van het venster waarin excel draait.

Voorlopig is het goed zo - het zal voor een later stadia zijn.
Windows 10 Home   NLD 64bit,
Intel(R) Core(TM) i7-3770 CPU @ 3.40GHz 3401
P8B75-M LE
Intel(R) HD Graphics 4000 3072MB 1920 x 1080
VIA HD Audio
C:\ NTFS 237,25GB 135,35GB 15 293MB
AV: Kaspersky
FW: Windows 10

Offline Hombre

  • Volledig lid
  • **
  • Berichten: 164
  • ¡Qué guapa!
Re:Afsluiten Excel uitschakelen
« Reactie #3 Gepost op: 29 oktober 2006, 09:07:19 »
Beste

Wat ik gebruik om uit te sluiten dat de x wordt gebruikt maar ook de menubalk is het volgende.

    Application.DisplayFullScreen = True
    Application.CommandBars("Worksheet Menu Bar").Enabled = False

Als je dit plaatst in de "Workbook" bij openen heb je een volledig scherm zonder knoppen.
Opgelet wel terug uit zetten bij sluiten anders start je de volgende keer op een full screen!
Windows XP, Home, SP2, Intel Core2 Duo E6400 2.13Ghz, 1024 MB RAM, GeForce FX 7300LE, HDD:SATA II 160GB NTFS, AVG antivirus, Outlook Express

Offline cladon

  • Volledig lid
  • **
  • Berichten: 246
  • Geslacht: Man
Re:Afsluiten Excel uitschakelen
« Reactie #4 Gepost op: 29 oktober 2006, 19:14:38 »
Ik ga dit eens proberen en kijken wat ik er eventueel mee kan doen.
Windows 10 Home   NLD 64bit,
Intel(R) Core(TM) i7-3770 CPU @ 3.40GHz 3401
P8B75-M LE
Intel(R) HD Graphics 4000 3072MB 1920 x 1080
VIA HD Audio
C:\ NTFS 237,25GB 135,35GB 15 293MB
AV: Kaspersky
FW: Windows 10

 


www.combell.com