Office: (Office 2010) Pfichtfeld das zum speichern auffordert

Hallo an Alle,
Muß mich mal wieder an Euch weden.
Besteht in Excel die Möglichkeit, ein Pflichtfeld einzufügen, das zu Speicherung der Arbeitsmappe auffordert und erst nach dem speichern die nächsten Felder freigibt?
Mit den "normalen" Pflichtfeld komme ich zurecht, nur damit nicht.
Gruß
Wolfram58

 

was sind Pflichtfelder? Einzelne Zellen?

 

Hi,
in meiner Tabelle ist es die erste Zelle (z.B. A1) die ausgefüllt werden muß.
Wolfram58

 

die Zelle A1 ist ungesperrt.
DieTabelle ist gesperrt.

starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, gehe auf Deine Datei, rechte Maustaste, Einfügen Modul, Code ins rechte Fenster kopieren

im Modul

Code:

Option Explicit

Public StAd As String

Doppelklick auf Deine Tabelle, Code ins rechte Fenster kopieren,
Der Code wirkt nur in dieser Tabelle.

unter Deiner Tabelle

Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        MsgBox "Datei speichern"
        StAd = Target.Address
    Else
        StAd = ""
    End If
End Sub

Doppelklick auf DieseArbeitsmappe, Code ins rechte Fenster kopieren

unter DieseArbeitsamappe

Code:

Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If StAd = "$A$1" Then
        ActiveSheet.Unprotect
    End If
End Sub

Gruß Hajo

 

OMG, mit VBA hatte ich bis jetzt nichts am Hut. Habe das immer gut anders in den Griff bekommen.
Dazu brauche ich unbedingt Hilfe.
Wolfram58

 

Hallo Wolfram,

ist doch klar beschrieben. Meiner Meinung nach.

Gruß Hajo

 

Okay, habe mich durchgeboxt und alles soweit eingefügt.
Funktioniert mit der Zelle A1 wunderbar, aber es erscheint die Aufforderung zum speichern und wenn ich mit OK bestätige
passiert nichts weiter. (keine Maske zum Speichern der Datei)
Ist das richtig so?
Wolfram58

 

Hallo Wolfram,

ja Du kannst aber keine Zellen ändern. Das kannst Du nur, wenn gespeicheret.

Gruß Hajo

 

soweit so gut, es erscheint aber die Meldung "Blattschutz aufheben ...".
Die Tabelle ist gesperrt, bis auf die Zellen die im weiteren ausgefüllt werden sollen.
Wolfram58

 

Hallo Wolfram,

Du hast also nicht auf speichern geklickt. Dann ist es so wie Du es haben wolltest, es kann keine anndere Zelle geändert werden.

Gruß Hajo

 

Okay, habe es verstanden.
Ich sollte mich mal intensiv mit VBA auseinander setzen.
Tolle Idee, Danke für deine Hilfe.
Gruß
Wolfram58