Excel nur über eine Schaltfläche schließen.

Forumthread: Excel nur über eine Schaltfläche schließen.

29.08.2005 11:25:45

Gerhard

Hallo,
ich möchte, daß eine Excelanwendung nur noch über eine Schaltfläche und nicht über die Systemschaltflächen (Rotes Kreuz oder Beenden) geschlossen werden kann. Weiter soll bei dieser Anwendung auch die Systemleiste deaktiviert werden und nach schließen der Anwendung wieder aktieviert werden.
Vielleicht hat jemand eine Idee und kann mir helfen.
Vielen dank im vorraus
Gerhard

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Excel nur über eine Schaltfläche schließen.

29.08.2005 11:41:38

Nepumuk

Hi,
was verstehst du unter Systemleiste?
Gruß
Nepumuk
Excel & VBA Beispiele

AW: Excel nur über eine Schaltfläche schließen.

29.08.2005 11:47:29

Gerhard

Hallo,
ich möchte, daß eine Excelanwendung nur noch über eine Schaltfläche und nicht über die Systemschaltflächen (Rotes Kreuz oder Beenden) geschlossen werden kann. Weiter soll bei dieser Anwendung auch die Systemleiste (Datei, Bearbeiten, Ansicht ...usw) deaktiviert werden und nach schließen der Anwendung wieder aktiviert werden.
Vielleicht hat jemand eine Idee und kann mir helfen.
Vielen dank im vorraus
Gerhard

AW: Excel nur über eine Schaltfläche schließen.

29.08.2005 12:06:07

Nepumuk

Hi,
In Tabelle1 befindet sich ein Commandbutton, mit dem die Mappe geschlossen werden kann.
' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_Activate()
    Application.CommandBars(1).Enabled = False
    Application.CommandBars(2).Enabled = False
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Cancel = Not bolClose
    bolClose = False
End Sub

Private Sub Workbook_Deactivate()
    Application.CommandBars(1).Enabled = True
    Application.CommandBars(2).Enabled = True
End Sub

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

Option Explicit

Private Sub CommandButton1_Click()
    bolClose = True
    If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close
End Sub

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public bolClose As Boolean

Gruß
Nepumuk
Excel & VBA Beispiele

Beliebteste Forumthreads (12 Monate)

Excel nur über eine Schaltfläche schließen.

Forumthread: Excel nur über eine Schaltfläche schließen.

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Excel nur über eine Schaltfläche schließen.

Forumthread: Excel nur über eine Schaltfläche schließen.

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread