Blattschutz automatisch sperren

Zum Forum Zum Forum Zum Forumthread Zum Forumthread Zum Archivthread Zum Archivthread Registrierung Registrierung Beispieldatei hochladen Beispieldatei hochladen

Forumbeitrag

Excel-Version des Fragestellers:

365 privat

Erfahrungslevel des Fragestellers:

Kaum Excel/VBA-Kenntnisse

velo

31.03.2025 14:57:51

Nachtrag

Kleiner Nachtrag, man muss den Arbeitsblattschutz noch aufheben, bevor man die Zellen sperrt.

Das ganze sieht dann so aus:

Option Explicit



Private Sub Workbook_Open()

    Dim ws As Worksheet

    Dim Monate As Object

    Set Monate = CreateObject("Scripting.Dictionary")

    

    Monate.Add "Jan", 1

    Monate.Add "Feb", 2

    Monate.Add "Mrz", 3

    Monate.Add "Apr", 4

    Monate.Add "Mai", 5

    Monate.Add "Jun", 6

    Monate.Add "Jul", 7

    Monate.Add "Aug", 8

    Monate.Add "Sep", 9

    Monate.Add "Okt", 10

    Monate.Add "Nov", 11

    Monate.Add "Dez", 12

    

    For Each ws In ThisWorkbook.Worksheets

        If Date >= DateSerial(Year(Date), Monate(ws.Name) + 1, 0) + 12 Then

            ws.Unprotect "DeinPasswort" 'hier durch dein Passwort ersetzen, falls gegeben. Wenn kein Passwort vergeben, dann komplett weg

            ws.Cells.Locked = True

            ws.Protect "DeinPasswort" 's.o.

        End If

    Next ws

End Sub

Die Antwort war sehr hilfreich und Andreas bedankt sich bei velo.

Als gefällt mir melden Als hervorragend melden

Als Antwort auf diesen Beitrag

velo

31.03.2025 14:34:43

AW: Blattschutz automatisch sperren

Hallo,

probiers mal mit folgendem Code, hier werden die Zellen 12 Tage nach Monatsende wieder gesperrt:

Option Explicit



Private Sub Workbook_Open()

    Dim ws As Worksheet

    Dim Monate As Object

    Set Monate = CreateObject("Scripting.Dictionary")

    

    Monate.Add "Jan", 1

    Monate.Add "Feb", 2

    Monate.Add "Mrz", 3

    Monate.Add "Apr", 4

    Monate.Add "Mai", 5

    Monate.Add "Jun", 6

    Monate.Add "Jul", 7

    Monate.Add "Aug", 8

    Monate.Add "Sep", 9

    Monate.Add "Okt", 10

    Monate.Add "Nov", 11

    Monate.Add "Dez", 12

    

    For Each ws In ThisWorkbook.Worksheets

        If Date >= DateSerial(Year(Date), Monate(ws.Name) + 1, 0) + 12 Then

            ws.Cells.Locked = True

        End If

    Next ws

End Sub

Achtung: Du musst den Code in DieseArbeitsmappe und nicht in ein Modul einfügen:
Userbild

Und natürlich die Dictionary Keys ändern wenn du die Monate ausgeschrieben hast --> "Jan" wird zu "Januar" usw.

VG
velo

Folgenachrichten

Zum Forumthread

Antwort auf Beitrag erstellen

Name

Passwort

Email-Adresse

Betreff

Frage noch offen Aktiviere dieses Kontrollkästchen, wenn die Frage/der Beitrag nicht beantwortet wurde und unter Beitragslisten -> Offene Threads erscheinen soll.

Beispieldatei hochladen

fett 

Setzt den Text in b-Tags (Fettschrift)

Dieser Text ist in Fettschrift formatiert

So sieht das dann aus

Dieser Text ist in Fettschrift formatiert

Erklärung

Ist vor dem Anklicken der Schaltfläche kein Text markiert, ist der hervorzuhebende Text zwischen die neu generierten Tags einzufügen, andernfalls werden die Tags als Umrandung des markierten Textes gesetzt.

kursiv 

Setzt den Text in i-Tags (Kursivschrift)

Dieser Text ist in Kursivschrift formatiert

So sieht das dann aus

Dieser Text ist in Kursivschrift formatiert

Erklärung

Ist vor dem Anklicken der Schaltfläche kein Text markiert, ist der kursiv zu setzende Text zwischen die neu generierten Tags einzufügen, andernfalls werden die Tags als Umrandung des markierten Textes gesetzt.

Formel <pre>

Setzt den Text in pre-Tags

<pre>=FILTER(B2:C11;A2:A11=F1)</pre>

So sieht das dann aus

=FILTER(B2:C11;A2:A11=F1)

Erklärung

Ist vor dem Anklicken der Schaltfläche kein Text markiert, ist die Formel zwischen die neu generierten Tags einzufügen, andernfalls werden die Tags als Umrandung der markierten Formel gesetzt.

Neben der optischen Hervorhebung dient die pre-Setzung auch der Verhinderung von HTML-Problemen, die dadurch entstehen, dass in Formeln enthaltene Kleiner-/Größer-Als-Zeichen vom Browser als HTML-Tags missverstanden werden.

Code <pre><code>

Setzt den Text in pre- und code-Tags

<pre><code class="language-vba">
Option Explicit
Sub NaEndlich()
MsgBox "Hallo Welt"
End Sub
</code></pre>

So sieht das dann aus


   Option Explicit
   Sub NaEndlich()
      MsgBox "Hallo Welt"
   End Sub

Erklärung

Ist vor dem Anklicken der Schaltfläche kein Text markiert, ist die Formel zwischen die neu generierten Tags einzufügen, andernfalls werden die Tags als Umrandung der markierten Formel gesetzt.

Liste <li>

Setzt den Text in li (Listenpunkte)

<li>Erste Zeile</li>
<li>Zweite Zeile</li>
<li>Dritte Zeile</li>

So sieht das dann aus

Erste Zeile
Zweite Zeile
Dritte Zeile

Erklärung