Excel ablegen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Excel ablegen
von: Jan
Geschrieben am: 30.06.2015 21:49:36

Hallo zusammen,
ich habe eine Userform, diese startet automatisch wenn die Datei gestartet wird. Nun soll sich aber Excel minimieren und die Userform geöffnet bleiben. So das nur die Userform zu sehen ist.
Wenn ich die Userform schliesse soll dann auch Excel geschlossen werden und zwar ohne das etwas gespeichert wird. ( Schliessen über das X oben )
Ist das machbar ?
Vielen Dank !

Bild

Betrifft: AW: Excel ablegen
von: Sepp
Geschrieben am: 30.06.2015 21:58:13
Hallo Jan,
vom Prinzip her so.

' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_Open()
  Application.Visible = False
  UserForm1.Show
End Sub


' **********************************************************************
' Modul: UserForm1 Typ: Userform
' **********************************************************************

Option Explicit


Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  If CloseMode = 0 Then
    ThisWorkbook.Saved = True
    Application.Quit
  Else
    Application.Visible = True
  End If
End Sub


Gruß Sepp


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Userform VBA Schleife"