Ich komm nicht drauf
Ich möchte vor dem Speichern einer Datei eine Abfrage durchführen.
nach dem Motto: wenn Zelle [a1] <> 0
dann kein Speichern möglich.
könnte mir jemand einen Rumpfcode anbieten
vorab an Alle vielen Dank
Gruß Wolfgang
Ich komm nicht drauf
Ich möchte vor dem Speichern einer Datei eine Abfrage durchführen.
nach dem Motto: wenn Zelle [a1] <> 0
dann kein Speichern möglich.
könnte mir jemand einen Rumpfcode anbieten
vorab an Alle vielen Dank
Gruß Wolfgang
Diesen Code in "Diese Arbeitsmappe" kopieren:
Gruss Rainer
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Sheets(1).Range("A1").Value = "" Then Cancel = True
End Sub
Gruß
Felix
füge diese Prozedur in das Modul "Diese Arbeitsmappe" ein:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Sheets("Tabelle1").Range("a1") <> 0 Then
MsgBox "Speichern nicht möglich"
Cancel = True
End If
End Sub
Gruß
Jens Huthmann
EDV-Schulung und IT-Dienstleistungen
www.jhuthmann.de