Kako bi mogao da glasi macro koji bi zatvorio kompletan excel program (zamena za klik na "X" tj. close), naravno sa dve opcije - sa "save" ili bez "save"?
Probao sam sa: "ActiveWorkbook.Close" ali zatvori samo aktivni dokument, a excel ostane u pozadini.
Probaj nesto slicno. Naime ovo zatvara excel ali iz Forme (UserForm)
Kod za ThisWorkbook je:
[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_Activate()
UserForm1.Show
End Sub]
I konacno za dugme na Formi
[Private Sub CommandButton1_Click()
Dim izlaz As Integer
izlaz = MsgBox("KRAJ RADA ?", vbQuestion & vbYesNo, "MAGDIC")
If izlaz = vbNo Then
'kod za ne
End If
If izlaz = vbYes Then
'kod za da
Unload UserForm1
ThisWorkbook.Close ' Poziva se dogaðaj BeforeClose workbooka
End If
End Sub]
Klasicno na krstic ukines Formu
Ukoliko se nesto promenilo pitace da li da se snime promene
Evo saljem i prilog pa probaj da prilagodis
Znači imam isti problem, ali mi odgovor nije jasan!
Dakle, kada napravim makro naredbu, excel moram dva puta zatvarati, što mi ponekad smeta, posebno kada stavljak attachment.
E sada ovo rešenje sa Aplikacija. Quit mi nije jasna, šta to zapravo trebam pokrenuti?
Hvala!
A ha, skontao, znači stavio sam kod "Application.Quit" i on radi, međutim meni treba rješenje, ako postoji, da excel gasim na X jedan put i gotovo!
[Ovu poruku je menjao 387 ena dana 31.08.2009. u 21:25 GMT+1]
[Ovu poruku je menjao 387 ena dana 31.08.2009. u 21:26 GMT+1]
Pa sa ovom naredbom Application.Quit se i postize gasenje jednim klikom na CommandButon. Cod se stavlja u dogadjaj Sub CommandButon1_click (za taj Buton, tj. dugme koje smo definisali za taj macro).
Kod mene to odlicno funkcionise. Jedino sto nisam uspeo da nadjem slican metod za zatvaranje UserForm-a. Koristim komandu UserForm1.Hide, ali to samo prikriva formu, ali je ne zatvara potpuno. Pretpstavljam da ima neka komanda i za to.