Microsoft Excel

Herbers Excel/VBA-Archiv

Bestimmte Zellen nur für einen Zeitraum freischalt


Betrifft: Bestimmte Zellen nur für einen Zeitraum freischalt
von: Jürgen Michel
Geschrieben am: 30.11.2018 07:10:31

Moin Leute,
wieder einmal ich.
So etwas ähnliches habe ich schon einmal gemacht, ist aber nicht das was ich will.
z.B. Tabellenblatt ist Schreibgeschützt.
Jetzt will ich die Zellen A1 - A5 für die Zeit vom 01.12.18 - 4.12.18 beschreibbar machen.
Wie stelle ich das am einfachsten an?

Gruß
Jürgen

  

Betrifft: AW: Bestimmte Zellen nur für einen Zeitraum freischalt
von: hary
Geschrieben am: 30.11.2018 07:36:21

Moin
Ungetestet.
Code in der Code der Arbeitsmappe. Mappe schliessen und speichern. Dann wieder oeffnen.

Private Sub Workbook_Open()
With Worksheets("Tabelle1") '--Blattname anpassen
.Unprotect
If Date >= DateValue("1.12.2018") And Date <= DateValue("4.12.2018") Then
    .Range("A1:A5").Locked = False
Else
  .Range("A1:A5").Locked = True
End If
.Protect
End With
End Sub

gruss hary


  

Betrifft: Bestimmte Zellen nur für einen Zeitraum freischalt
von: Werni
Geschrieben am: 30.11.2018 07:49:05

Hallo Jürgen

Private Sub Workbook_Open()
    ActiveSheet.Unprotect
        If Date >= "01.12.2018" And Date <= "04.12.2018" Then
            [A1:A5].Locked = False
            [A1:A5].FormulaHidden = False
        Else
            [A1:A5].Locked = True
            [A1:A5].FormulaHidden = True
        End If
    ActiveSheet.Protect
End Sub

Gruss Werni


  

Betrifft: AW: Bestimmte Zellen nur für einen Zeitraum freischalt
von: Jürgen Michel
Geschrieben am: 03.12.2018 10:41:15

Danke für die schnelle Antwort,
konnte mich nicht früher melden.
Leider muss ich die Frage erweitern.

Wenn ich auf dem selben Tabellenblatt: z.B. Januar
a.) A1 - A5 für 01.12.18 - 04.12.18 beschreibbar machen will und
b.) A6 - A10 für 05.12.18 - 08.12.18 beschreibbar machen will
c.) usw. usw.

Gruß aus Rheinhessen
Jürgen