Kako bih mogao da iz neke forme u Excelu pomocu komandnog dugmeta i koda za njega da izadjem iz Excela. Probao sam razne varijante ali nisam uspeo. (Nesto poput Unlad Me)
[Excel] Zatvaranje Excela iz forme
Zaključano
Zakačeno
Probaj sa
Pozdrav
Code:
Application.Quit
Application.Quit
Pozdrav
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
Kod u modulu workbooka
Još bolje je da u događaju BeforeClose proveriš da li ima otvorenih sveski pa u zavisnosti od toga zatvoriš Excel
Kod u modulu forme
Code:
Private Sub cmdOK_Click()
Unload frmExit
ThisWorkbook.Close ' Poziva se događaj BeforeClose workbooka
End Sub
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
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
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
Potpis
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
Probao sam Jpecino uputstvo ali mi javlja gresku:
Run-time error '424':
Object reguired
a u debuggeru pokazuje na deo koda:
Unload frmExit
Mislim da sam sve po uputstvu uradio pa zato za svaki slucaj cu prikaciti fajl kako sam ja uradio.
Run-time error '424':
Object reguired
a u debuggeru pokazuje na deo koda:
Unload frmExit
Mislim da sam sve po uputstvu uradio pa zato za svaki slucaj cu prikaciti fajl kako sam ja uradio.
Ustvari pronasao sam gresku. Stavio sam
Unload frmExit umasto samo frm kako sam ja dao nayiv forme.
Hvala
Unload frmExit umasto samo frm kako sam ja dao nayiv forme.
Hvala