Tabellenblatt alter Stand nicht mehr bearbeitbar

24/11/2008 - 15:21 von Tom | Report spam
Hallo,

Ich habe ne Excelliste, die ich tàglich neu erstelle, d.h. es wird
morgens ein neues Tabellenblatt erstellt,
vom SAP werden die aktuellen Daten in diese Tabelle kopiert und mit
VBA aktualisiert.
Genauer, es werden die Kommentare vom Vortag in die aktuelle Liste
einkopiert, danach wird das
Tabellenblatt mit dem aktuellen Datum umbenannt.

Manchmal schaue muss ich mir die alten Tabellen anschauen, vergesse
dann aber wieder
in die aktuelle Tabelle zu wechseln und trage dann Daten in die alte
Tabelle ein. Diese Kommentare
werden einen Tag spàter aber nicht mehr mitgeschleift, da die
Aktualiesierung nur vom Tag
vorher stattfindet.

So, jetzt meine Frage:
Kann ich die alten Tabellenblàtter sperren, so, dass kein Eintrag mehr
möglich ist, oder zumindest
eine Warnung erscheint, wie z.B. "Achtung, Bearbeitung einer alten
Tabelle", oder so àhnlich.

Danke im voraus für Eure Bemühungen.

Danke

MfG

Tom
 

Lesen sie die antworten

#1 Wolfgang Habernoll
24/11/2008 - 15:44 | Warnen spam
Hallo

"Tom" schrieb im Newsbeitrag
news:
Hallo,

Ich habe ne Excelliste, die ich tàglich neu erstelle, d.h. es wird
morgens ein neues Tabellenblatt erstellt,
vom SAP werden die aktuellen Daten in diese Tabelle kopiert und mit
VBA aktualisiert.
Genauer, es werden die Kommentare vom Vortag in die aktuelle Liste
einkopiert, danach wird das
Tabellenblatt mit dem aktuellen Datum umbenannt.

Manchmal schaue muss ich mir die alten Tabellen anschauen, vergesse
dann aber wieder in die aktuelle Tabelle zu wechseln und trage dann Daten in die alte
Tabelle ein.



:-)

Diese Kommentare werden einen Tag spàter aber nicht mehr mitgeschleift, da die
Aktualiesierung nur vom Tag vorher stattfindet.

So, jetzt meine Frage:
Kann ich die alten Tabellenblàtter sperren, so, dass kein Eintrag mehr
möglich ist, oder zumindest
eine Warnung erscheint, wie z.B. "Achtung, Bearbeitung einer alten
Tabelle", oder so àhnlich.



versuche es mal damit, kopiere es im VBE in "DieseArbeistmappe"

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveWorkbook.BuiltinDocumentProperties(12) < Now() Then
MsgBox ("Achtung, Bearbeitung einer alten Tabelle")
End If
End Sub

mfG
Wolfgang Habernoll

[ Win XP Home SP-2 , XL2002 ]

Ähnliche fragen