Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zusätzliche Sicherheitsabfrage beim Schließen

Zusätzliche Sicherheitsabfrage beim Schließen
10.05.2024 09:46:10
Michel
Hallo liebes Herbers - Excel - Profi - Team,

da ich sehr oft mit zahlreichen Excel Sheets gleichzeitig arbeite, passiert es mir leider immer wieder beim Schließen von "unbedeutenden", "temporären" Excel - Sheets, dass ich ein bedeutendes Excel-Sheet in welchem ich zahlreiche Änderungen gemacht habe einfach so ohne zu speichern mitschließe. Jetzt würde ich einfach gerne eine Sicherheitsabfrage machen, die auffälliger ist, quasi vom üblichen abweicht, und mich fragt: " Du hast zahlreichen Änderungen in diesem Dokument gemacht, möchtest Du dieses Dokument wirklich ohne Speichern schließen?" - damit ich dann erkennen kann: Ups, hier muss ich speichern.

Ein Makro zum automatischen Speichern kommt leider nicht in Frage, da das Sheet ca. 15 Minuten benötigt bis es gespeichert ist. Ich hoffe Ihr könnt mir (wie immer) helfen :-) Vielen Dank im Voraus für Eure Mühen....
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zusätzliche Sicherheitsabfrage beim Schließen
10.05.2024 10:10:02
Onur
Gehörst du etwa auch zu den Leuten, die plötzlich irgendwas abonniert haben, weil sie auf jeden Button klicken, OHNE die Meldung zu lesen? Dann nützt auch eine Meldung mit blinkender Neonwerbung nicht viel.
P.S. : Wenn dein Sheet 15 min braucht, bis es gespeichert ist, dann hast du noch grössere Probleme....
Anzeige
AW: Zusätzliche Sicherheitsabfrage beim Schließen
10.05.2024 10:25:57
Michel
Oh, vielen Dank für Deine zielführende Antwort. Hat mein Problem komplett gelöst. Suuuuuper.

Und Du hast vollkommen Recht, es ist ein Problem das meine umfangreichen Excel Tabellen eine lange Speicherzeit haben, aber leider sind meine Kenntnisse nicht so umfangreich dass ich dieses Problem selbst lösen kann. Aber ich belästige dieses ansonsten geniale Forum auch nicht mit der Bitte meine Speicherzeiten zu optimieren, denn das würde den Rahmen sprengen, und die Zeit hat wohl keiner. Außer Dir vielleicht, der sogar für sinnfreie Antworten Zeit findet. Aber trotzdem Danke - Du hast meinen Tag bereichert.
Anzeige
AW: Zusätzliche Sicherheitsabfrage beim Schließen
10.05.2024 10:34:00
Onur
Nachdem wir DAS geklärt haben - DAS in das Modul der Arbeitsmappe - nicht des Blattes:
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim x
x = InputBox("Wollen Sie wirklich beenden? Dann geben Sie ein: 'Ja, ich will'")
If Not x = "Ja, ich will" Then Cancel = True
End Sub
Anzeige
AW: Zusätzliche Sicherheitsabfrage beim Schließen
13.05.2024 09:49:26
Michel
Hallo Onur,

vielen Dank :-) - das war genau das was ich gebraucht hab, damit mir im Eifer des Gefechtes nicht mehr die Arbeit von einem halben Tag verloren geht, Danke sehr.

Und falls Du wirklich einmal ganz viel Zeit hast, kannst Du Dir ja mal eine meiner Tabellen mit den brutalen Speicherzeiten anschauen ? ;-) --> Also auf jeden Fall nochmal vielen Dank, und Sorry wenn meine vorhergehende Antwort unangebracht war
Anzeige
AW: Zusätzliche Sicherheitsabfrage beim Schließen
10.05.2024 10:20:53
MCO
Moin!

Bau das mal in das Modul der Arbeitsmappe....
Private Sub Workbook_BeforeClose(Cancel As Boolean)

If Not (ThisWorkbook.Saved) Then
Set antw = MsgBox("Du hast zahlreichen Änderungen in diesem Dokument gemacht, möchtest Du dieses Dokument wirklich ohne Speichern schließen?", vbExclamation + vbYesNo, "Achtung!")
If antw = vbNo Then Cancel = True
End If
End Sub


Gruß, MCO
Anzeige
AW: Zusätzliche Sicherheitsabfrage beim Schließen
13.05.2024 09:33:22
Michel
Hallo MCO,

vielen Dank für die Lösung, allerdings bringt er mir da eine Fehlermeldung: "Fehler beim Kompilieren: Objekt erforderlich" Nach Bestätigen der Fehlermeldung ist die oberste Zeile: (Private Sub.....) gelb markiert, und "MsgBox" blau markiert.

aber trotzdem vielen Dank für Deine Mühe...
Anzeige
AW: Zusätzliche Sicherheitsabfrage beim Schließen
13.05.2024 09:43:10
Oberschlumpf
Hi,

verwende im selben Modul nur diesen Code:


Private Sub Workbook_BeforeClose(Cancel As Boolean)

If Not (ThisWorkbook.Saved) Then
If MsgBox("Du hast zahlreichen Änderungen in diesem Dokument gemacht, möchtest Du dieses Dokument wirklich ohne Speichern schließen?", vbExclamation + vbYesNo, "Achtung!") = vbNo Then
Cancel = True
End If
End If

End Sub

Ich weiß, dass der funktioniert, weil ich den Code getestet habe.

Ciao
Thorsten
Anzeige
AW: Zusätzliche Sicherheitsabfrage beim Schließen
13.05.2024 10:00:59
Michel
Jetzt hat's geklappt, vielen Dank für Deine Unterstützung. Ist Spitze, und genau das was ich gebraucht habe...

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige