Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1280to1284
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1280to1284
1280to1284
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Speichern vermeiden

Speichern vermeiden
16.10.2012 18:04:48
Matze,Matthias
Hallo Zusammen,
ich schließe die Arbeitsmappe über das Rote Kreuz und das Makro: 

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Es fogt die Dateisicherung
ActiveWorkbook.SaveAs "C:\Archiv\" & Format(ActiveSheet.Cells(1, 5).Value, "mmm yyyy") & "_" & " _
Fehlerbelege.xlsm"
End Sub

Das klappt ja soweit, aber:
ich möchte nun noch das Datei/speichern und Datei/Speichern unter Tastemkombi Srtg+S nicht mehr erlaubt sind.
Es soll nur noch das verlassen incl Speicherung des obeigen Makros gehen.
Bitte nicht mit Schreibschutz öffnen Vorschlag kommen, da die Datei zur Dateneingabe dient.
Gruß Matze

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

Betreff
Datum
Anwender
Anzeige
AW: Speichern vermeiden
16.10.2012 18:23:16
Hajo_Zi
Halo Matze,
versuche es so. 
Option Explicit
Dim BoSpeichern As Boolean
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Es fogt die Dateisicherung
BoSpeichern = True
ActiveWorkbook.SaveAs "C:\Archiv\" & Format(ActiveSheet.Cells(1, 5).Value, "mmm yyyy") _
& "_" & "Fehlerbelege.xlsm "
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If BoSpeichern = False Then Cancel
End Sub

Obwohl mir da ansinnen nicht klar ist mit BeforeClose

Anzeige
@Hajo,..
16.10.2012 19:34:33
Matze,Matthias
,leider hatte ich damit keinen Erfolg.
Ich bekomme die Meldung Fehler beim Kompelieren: Sub,Function oder Property erwartet.
Habe das Vorhaben abgebrochen, da ich noch was anderes eingebaut habe, Danke für deinen Ansatz.
Gruß Matze

AW: @Hajo,..
16.10.2012 19:37:27
Hajo_Zi
Hallo Matzem,
es fehlte nur eine Kleinigkeit. 
Option Explicit
Dim BoSpeichern As Boolean
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Es fogt die Dateisicherung
BoSpeichern = True
ActiveWorkbook.SaveAs "C:\Archiv\" & Format(ActiveSheet.Cells(1, 5).Value, "mmm yyyy") _
& "_" & "Fehlerbelege.xlsm "
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If BoSpeichern = False Then Cancel = True
End Sub

Gruß Hajo
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige