Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
420to424
420to424
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Speichern nicht erlauben

Forumthread: Speichern nicht erlauben

Speichern nicht erlauben
Micha
Hallo,
wie unterbinde ich das manuelle Speichern unter Datei-Speichern, so dass es nur über einen Button geht:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
' Wie geht das hier?: Savechanges=false oder so...?
End Sub

Gruß
micha
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Speichern nicht erlauben
Matthias
Hallo Micha,
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
End Sub

Und beim Code für den Button EnableEvents auf False setzen:
Application.EnableEvents = False
ThisWorkbook.Save
Application.EnableEvents = True

Gruß´Matthias
Anzeige
AW: Speichern nicht erlauben
micha
Hi Matthias,
EnableEvents? was ist das? kann man das nicht weglassen?
Noch eine Kleinigkeit: ThisWorkbook.Save speichert es unter dem selben Namen, wie kann man die Datei unter einem andern NAmen speichern( und falls möglich ohne Makros,also nur Sheet1)
Danke für deine bisherige Hilfe!
Gruß
Micha
Anzeige
AW: Speichern nicht erlauben
Matthias
Hallo Micha:
wenn EnableEvent auf False gesetzt wird, werden die Ereignismakros (wie z.B. Workbook_BeforeSave) nicht ausgeführt.
Sonst würde die Datei nie gespeichert, denn durch Cancel=True im Workbook_BeforeSave-Makro verhinderst Du ja das speichern.
Das folgende Makro speichert das Blatt "Tabelle1" unter dem im Code angegebenen Pfad:

Sub BlattSpeichern()
'Blatt in neue Mappe kopieren
Sheets("Tabelle1").Copy
'neue Mappe speichern...
ActiveWorkbook.SaveAs Filename:="C:\test\testblatt.xls"
'... und schließen
ActiveWorkbook.Close
End Sub

Hier brauchst Du EnableEvents nicht, das das Blatt 1 in eine neue Mappe kopiert wird, die ja dann kein "BeforeSave"-Makro hat!
Gruß Matthias
Anzeige
AW: Speichern nicht erlauben
micha
Hallo nochmal! Danke!
Sheets().copy klappt nicht auch wenn ich den Blattschutz wechmache(?)
mfg
AW: Speichern nicht erlauben
micha
klappt doch habe einen Fehler gemacht!
1000 THANKS!!!!
Danke für die Rückmeldung - o.T.
30.04.2004 15:33:26
Matthias
:-)
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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