• 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.

afsluiten windows

Status
Niet open voor verdere reacties.

belcitas

Gebruiker
Lid geworden
14 jan 2012
Berichten
126
ik heb bijgaande macro om een excel bestand op te slaan en af te sluiten
mijn vraag is of het mogelijk is deze zodanig aan te passen dat ook windows meteen wordt afgesloten

Code:
Private Sub WorkBook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Save
End Sub
    ActiveSheet.Shapes.Range(Array("Button 3")).Select
    Selection.OnAction = "opslaan"
    Range("An17").Select
    Sub sluiten()
Application.Quit
End Sub
 
Laatst bewerkt door een moderator:
Je code mist e.e.a., maar dat kan:
Code:
Sub Sluiten
    Application.Quit
    Shell ("shutdown /s /t 0")
End SUb
 
Laatst bewerkt:
windows afsluiten

Dank u voor snelle reactie
toch nog een vraagje
wat is er volgens U niet goed in de macro
 
Er staan regels tussen de End Sub en Sub.
Daar zal de compiler over klagen.
 
Maar....: waarom windows afsluiten ?
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan