Arbeitsmappe nach Testzeit sperren

[RPP63]

Moin!
Mein zusätzlicher Vorschlag:
Im Direktfenster diese Zeile mit Enter bestätigen:

Tabelle1.CustomProperties.Add "Ablaufdatum", DateSerial(2021, 2, 18)

Ist ein "Wegwerfcode" und kann folglich später nicht mehr eingesehen werden!

Als Sicherheitsabfrage dann:
Sub CheckDate()
With Tabelle1.CustomProperties(1)
  If CDate(.Value) < Date Then
    MsgBox "Die Mappe ist seit dem " & .Value & " abgelaufen!"
  Else
    MsgBox "Auf gehts!"
  End If
End With
End Sub


Gruß Ralf

[schauan]

Hi Ralf,

ja, so geht's auch sehr gut zu verbergen

[wavemaster]

Hallo zusammen, danke für die Vorschläge muß Ich mal in Ruhe austesten.

Hätte da noch mal eine Frage :
da dies ja eine Intelligente Tabelle ist , wie kann ich trotz Blattschutz die Dropdownfelder nutzen. Im Moment bekomme Ich es nicht hin wenn ich in die 2 Zeile hüpfe kann Ich kein Dropdown mehr auswählen.

Habe einen VBA Code gefunden der klappt aber nicht ab der 2 Zeile.

Sub ZellenDropdownEntsperren()

Dim Spalte As Long
Dim Zeile As Long
Dim LetzteSpalte As Long
Dim ErsteSpalte As Long
Dim LetzteZeile As Long
Dim ErsteZeile As Long

LetzteZeile = Sheets("Übersicht").UsedRange.SpecialCells(xlCellTypeLastCell).Row

LetzteSpalte = Sheets("Absolut").UsedRange.SpecialCells(xlCellTypeLastCell).Column

ErsteSpalte = 1

ErsteZeile = 10

For Spalte = ErsteSpalte To LetzteSpalte Step 2

Range(Cells(ErsteZeile, Spalte), Cells(LetzteZeile - 1, Spalte)).Select
Selection.Locked = False
Selection.FormulaHidden = False

Next

End Sub

Ich vermute es liegt im Bereich "rote Schrift"