Print side | Luk vindue

Luk excel og ark i én knap.

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=416
Udskrevet den: 05.Dec.2024 kl. 03:36


Emne: Luk excel og ark i én knap.
Besked fra: Weiss
Emne: Luk excel og ark i én knap.
Posteringsdato: 06.Aug.2011 kl. 22:14
Jeg har igen brug for et klogt hoved.
Den sidste knap i mit ark skal lukke arket og excel.
 
Private Sub CommandButton2_Click()
ThisWorkbook.Close

End Sub
 
Denne lukker kun arket men ikke Excel hos brugeren.
Hvad mangler jeg at sætte ind?
Den behøver ikke at gemme, for det er allerede gjort på det foregående ark.
 
Jeg har problemer med teksten i mine knapper - når der er et "g" er den nedereste del af det væk. Har prøvet at lave knappen større men det hjalp ikke..
 
weiss
 


Svar:
Besked fra: Allan
Posteringsdato: 06.Aug.2011 kl. 22:57
Hej Weiss,
 
 
Du lukker Excel således:
Application.Quit
 
MEN
Det kan være lidt farligt, for tænk hvis nu brugeren har mere end ét ark åbent.... så lukkes hele skidtet ned...
Derfor anbefaler jeg at bruge:
 
If Application.Workbooks.Count = 1 Then
Application.DisplayAlerts = False
Application.Quit
Else
ThisWorkbook.Close False
End If
 
Hvis bruger kun har én projektmappe åben, lukkes Excel.
Hvis bruger har flere projektmapper åbne, lukkes kun dit ark.
Giver det mening?
 
//Allan

Besked fra: Weiss
Posteringsdato: 06.Aug.2011 kl. 23:13

Ja, tak - det giver fin mening.

Det er nu tilføjet mit ark og virker efter hensigten - godt du tænker længere end mig ;-)
 
Weiss

Besked fra: Allan
Posteringsdato: 07.Aug.2011 kl. 20:22
Velbekomme Weiss, det var godt det virkede efter hensigten.
 
//Allan


Print side | Luk vindue