afsluiten windows

[belcitas]

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

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

 

[edmoor]

Je code mist e.e.a., maar dat kan:

Sub Sluiten
    Application.Quit
    Shell ("shutdown /s /t 0")
End SUb

 

[belcitas]

windows afsluiten

Dank u voor snelle reactie
toch nog een vraagje
wat is er volgens U niet goed in de macro

 

[edmoor]

Er staan regels tussen de End Sub en Sub.
Daar zal de compiler over klagen.

 

[snb]

Maar....: waarom windows afsluiten ?