Supportnet / Forum / Tabellenkalkulation

Hallo und guten Abend. Ich würde gerne über einen Button, der sich auf einer Userform befindet, die dzt offene Datei als auch das Programm Excel selbst schließen, ohne daß eine Speicherung erfolgt, bzw eine Abfrage, ob die Datei gespeichert werden soll. Gibt es eine einfache Möglichkeit, bei einer Userform das "X" rechts oben inaktiv zu setzen.# Bitte laßt einen Neuling auf diesem Gebiet nicht im Stich. Vielen Dank im voraus. Kodi

Mogen Kodi,

1. Den Code zum beenden von Excel würde ich aber nicht in das Klassenmodul des Userforms setzen, sonder einer öffentlichen, boolschen Variablen einen Wert zuweisen und diesen nach der Show - Methode abzufragen. Falls in der Mappe nur nit dem Userform gearbeitet wird, benötigst du diese Variable natürlich nicht. Der Code zum schließen selbst, sieht dann so aus:

ThisWorkbook.Saved = True
If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close

2. Für das Schließenkreuz gibt es drei Möglichkeiten.
A.: Ganz entfernen (mit API)
B.: Deaktivieren ((ausgrauen) auch mit API)
C.: Das anklicken abzufangen (das geht mit Excelmitteln)

Der Code für Variante C:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode <> 1 Then Cancel = 1
End Sub

Gruß
Nepumuk

hallo nepumuk

vielen dank für deine hilfe

kodi

nochmals hallo nepumuk

alles funktioniert super. nur was müßte noch geändert werden, damit die nachfrage, ob datei gespeichert werden soll oder nicht, nicht mehr erscheint und excel sofort geschlossen wird.

lg
kodi

Moin Kodi,

nachfolgend zwei Makros. Das eine beeendet die Datei ohne zu speichern, das andere speichert die Datei unaufgefordert.

Sub Beenden_ohne_speichern()
ThisWorkbook.Saved = True
ThisWorkbook.Close
End Sub

Sub Beenden_mit_speichern()
ThisWorkbook.Close True
End Sub

Ich hoffe, das war's, was Du meintest.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Genau das ist die Lösung.

vielen dank
kodi

• alte Excel-Datei schließen, wenn eine neue per Hyperlink geöffnet wird
• EInfach in der schleife schließen ;)
• Arbeitsmappe speichern beim Schließen
• Schließen Funktion deaktivieren
• Excel 2007 gibt nach schließen eine Fehlermeldung aus