Speichern

Hallo Leute,
kämpfe gerade mit einer Herausforderung. Ich soll auf der Arbeit eine Datei anlegen,die von verschiedenden Mitarbeitern mit wenig Excel-Wissen genutzt wird. Die Datei ist soweit fertig, allerdings soll ich den Dialog beim beenden von Excel bzw. schliessen der Datei anders gestalten.
Es soll genauer gesagt nicht die normale Frage "möchten sie speichern" sondern ein Pop-up-Fenster oder wie sich das schimpft, öffnen mit folgenden Fragen.
Möchten Sie die Datei schliessen und die Änderungen speichern?
Möchten Sie die Datei schliessen und die Änderungen nicht speichern?
Möchten Sie weiterarbeiten und die Änderungen speichern?
Möchten Sie weiterarbeiten und die Änderungen nicht speichern?
Wer hat Rat?
LG und danke! :-)
Sandra

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Sandra,
die Makros müssen beim öffnen der Datei natürlich aktiviert sein. ggf. muss du in Excel die Sicherheitseinstellungen für Makros anpassen.
Ich hab Hajo's Datei mal ausprobiert und etwas angepasst.
Die Workbook_BeforeSave-Prozedur hab ich wieder rausgenommen, so dass das Speichern der Datei durch den Anwender ohne weitere Aktionen erfolgt. Nur beim Schließen der Datei/Excel kommt eine Rückfrage.
https://www.herber.de/bbs/user/68854.xls
Alternativ zu einem Userform könntest du das auch mit einer Inputbox lösen, in die die gewünschte Option eingetragen wird. Nachfolgend eine entsprechende Prozedur.
Gruß
Franz

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim vAuswahl, sPrompt$, sTitel$
If ThisWorkbook.Saved = False Then
Cancel = True
sTitel = "Datei/Excel schliessen"
sPrompt = "Die Datei """ & ThisWorkbook.Name _
& """ ist noch nicht gespeichert" & vbLf
sPrompt = sPrompt & vbLf & "Was Möchten Sie?"
sPrompt = sPrompt & vbLf & "1  Änderungen speichern und Datei schliessen"
sPrompt = sPrompt & vbLf & "2  Datei schliessen, Änderungen nicht speichern"
sPrompt = sPrompt & vbLf & "3  Änderungen speichern und weiterarbeiten"
sPrompt = sPrompt & vbLf & "4  Weiterarbeiten, Änderungen nicht speichern"
Eingabe:
vAuswahl = InputBox(Prompt:=sPrompt, Title:=sTitel, Default:=1)
Select Case vAuswahl
Case 1
'Speichern und schließen
With ThisWorkbook
.Save
.Close
End With
Case 2
'Schließen ohne speichern
ThisWorkbook.Saved = True
ThisWorkbook.Close False
Case 3
'Speichern und weier bearbeiten
ThisWorkbook.Save
Case "", 4 '"" = Wert bei Abbrechen in Inputbox
'ohne Speichern weiter bearbeiten
Case Else
MsgBox "Bitte eine der 4 Optionen auswählen", vbInformation + vbOKOnly, _
sTitel
GoTo Eingabe
End Select
End If
End Sub

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Speichern

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread