Speichern unterbinden solange keine Eingabe erfolg

Forumthread: Speichern unterbinden solange keine Eingabe erfolg
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Speichern unterbinden solange keine Eingabe erfolg

07.12.2004 16:02:50

Dominik

Hallo Allerseits
Ich habe ein kleines Problem im Excel.
Ich möchte verhindern, dass eine Datei gespeichert werden kann, solange bis nicht in einem Feld eine Eingabe(Ein Preis in Euro) gemacht worden ist. Sieht irgendwehr eine Möglichkeit das umzusetzten? ich habe bereits versucht über vba übern eine if .. else funktion das ganze zu unterbinden aber das Speichern bleibt immer noch möglich.
Wäre nett, wenn ich eine Info oder einen tipp bekommen könnte.
MFG Dominik

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Speichern unterbinden solange keine Eingabe erfolg

Alex
AW: Speichern unterbinden solange keine Eingabe er

EtoPHG
AW: Speichern unterbinden solange keine Eingabe erfolg

Dominik
AW: Speichern unterbinden solange keine Eingabe erfolg

Udo

AW: Speichern unterbinden solange keine Eingabe erfolg

Alex

Hallo Dominik
setze deine If Makro in Diese Arbeitsmappe
als Sub Workbook_beforesave(cancel as Boolean)
Wenn deine If bedinnung unwahr ist,dann
Cancel = True
Gruß
Alex Z

AW: Speichern unterbinden solange keine Eingabe er

EtoPHG

Hallo Dominik,
Vielleicht hilft dieses Codeschnipsel noch ?
If ActiveWorkbook.Saved Then
MsgBox "Es liegen keine Änderungen vor!"
Else
MsgBox "Änderungen wurden vorgenommen!"
End If
Gruss Hansueli

AW: Speichern unterbinden solange keine Eingabe erfolg

Dominik

Merci für die schnelle Hilfe, aber leider klappt das ganze nicht so, wie es soll. Ich habe mal zum Testen dieses Skribt gemacht, aber ich kann die Arbeitsmappe immer speichern, egal welchen wert ich Eintage. Was mache ich falsch?


Private Sub Workbook_beforesave(ByVal saveAsUi As Boolean, Cancel As Boolean)
If Sheets("Tabelle1").Range("A1").Value <> 1 Then
Cancel = True
End If
End Sub

MFG Dominik

AW: Speichern unterbinden solange keine Eingabe erfolg

Udo

Steht der Code auch wirklich im Modul von "DieseArbeitsmappe"?
Udo