[es] - Macro za zatvaranje Excela

neptuncokg
Predrag M
racunovodja
Kragujevac

Član broj: 230353
Poruke: 326
79.101.136.*

+9 Profil

^{17.08.2009. u 21:42 - pre 178 meseci}

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.

Odgovor na temu

mirko1949
Miroslav Magdić
Kragujevac

Član broj: 87134
Poruke: 216
*.dynamic.sbb.rs.

+2 Profil

Re: Macro za zatvaranje Excela

^{17.08.2009. u 23:08 - pre 178 meseci}

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()

AppActivate "Microsoft Excel"
Worksheets("2").Activate
Load UserForm1

UserForm1.Show
End Sub]
Donji kod sluzi da se prilikom otvaranja fajla otvori Forma

[Private Sub Workbook_Activate()

AppActivate "Microsoft Excel"
Worksheets("2").Activate
Load UserForm1

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

Prikačeni fajlovi

Test.xls - 23.5k

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
194.106.170.*

Sajt: www.gowi.rs

+109 Profil

Re: Macro za zatvaranje Excela

^{18.08.2009. u 08:02 - pre 178 meseci}

Komanda
Application.Quit
Zatvara aktivnu aplikaciju (npr. Excel) i ukoliko nisi sačuvao otvorene radne sveske postavlja pitanje o čuvanju.

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Odgovor na temu

neptuncokg
Predrag M
racunovodja
Kragujevac

Član broj: 230353
Poruke: 326
79.101.136.*

+9 Profil

Re: Macro za zatvaranje Excela

^{18.08.2009. u 08:20 - pre 178 meseci}

To je to. Sve sam probao osim Quit. HVALA.

Odgovor na temu

387 ena
Igor Martinović
KAM

Član broj: 175980
Poruke: 25
80.71.144.*

Profil

Re: Macro za zatvaranje Excela

^{31.08.2009. u 20:12 - pre 178 meseci}

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]}

Odgovor na temu

neptuncokg
Predrag M
racunovodja
Kragujevac

Član broj: 230353
Poruke: 326
79.101.135.*

+9 Profil

Re: Macro za zatvaranje Excela

^{01.09.2009. u 15:56 - pre 178 meseci}

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.

Odgovor na temu