Kod mene Application.Quit iz koda na klik dugmeta nije radilo. Međutim kad se upiše u događaj BeforeClose workbook-a onda radi
Kod u modulu forme
Code:
Private Sub cmdOK_Click()
Unload frmExit
ThisWorkbook.Close ' Poziva se događaj BeforeClose workbooka
End Sub
Kod u modulu workbooka
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Quit
End Sub
Još bolje je da u događaju BeforeClose proveriš da li ima otvorenih sveski pa u zavisnosti od toga zatvoriš Excel
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
' Proverava da li ima otvorenih radnih sveski
' Ako nema zatvara Excel
' Za 2007 veziju zameniti PERSONAL.XLS sa "PERSONAL.XLSB
'
Dim wBook As Workbook
Dim LCount As Long
If Cancel = False Then
For Each wBook In Workbooks
If wBook.Name <> Me.Name And UCase(wBook.Name) <> "PERSONAL.XLS" Then
LCount = LCount + 1
End If
Next wBook
If LCount = 0 Then Application.Quit
End If
End Sub
Nije to loše Rembrante, samo što ne bi dodao još malo boje?