Tabelleblatt auf Ende Monat schützen/sperren

Guten Morgen zusammen
Ich hoffe sehr, dass mir hier jemand bei meinem Vorhaben auf die Sprünge helfen kann?
Und zwar gehts um Folgendes:
In einer bestehenden Arbeitsmappe habe ich pro Monat je ein Tabellenblatt, auf welchem Benutzer persönliche Daten eintragen können.
(leider kann ich die Datei hier jetzt nicht einstellen, da diese schon prall gefüllt ist mit vertraulichen, persönlichen Daten)
Nun suche ich nach einer Möglichkeit, immer am Ende des Monats das Tabellenblatt zu sperren und mittels Passwordschutz zu versehen.
Ziel soll sein, dass per 01. des neuen Monats niemand mehr Änderungen am Vormonat (also vorangehendes Tabellenblatt) mehr machen kann.
Geht sowas VBA-mässig ?
Bin für jeglichen Tip herzlich dankbar !

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) ' beim ändern des Zelleninhaltes wird Makro gestartet If Target.Row 1 And (Target.Column 225) Then Exit Sub 'Fehlermeldungen ausschalten Application.DisplayAlerts = False 'oder Tatum und Zeit in Zellen eintragen Dim dates As Date Dim times As Date dates = Range("a1") times = Range("A2") dats = (" " & dates & " " & times & " ") nowi = (" " & Now & " ") If (nowi)

'Code muss in DieseArbeitsmappe Private Sub Workbook_Open() Dim TB, PW As String Dim Monatsende As Date 'Blattname in der Form: &quotDezember 2017" PW = "ABC" For Each TB In ThisWorkbook.Sheets Monatsende = Application.EoMonth(DateValue("01." & TB.Name), 0) If Monatsende <= Date Then TB.UsedRange.Cells.Locked = True TB.Protect Password:=PW, UserInterfaceOnly:=True End If Next MsgBox "Vormonat(e) geschlossen" End Sub

Hallo nochmal
Fehler bei Blättern, die Nicht Monatsbezeichnungen sind, werden abgefangen.

'Code muss in DieseArbeitsmappe 

Private Sub Workbook_Open()
    Dim TB, PW As String
    Dim Monatsende As Date
    
    'Blattname in der Form: "Dezember 2017" 
    
    PW = "ABC"
    
    For Each TB In ThisWorkbook.Sheets
        If IsDate("01." & TB.Name) Then 'Ist Blattname ein Monat 
            Monatsende = Application.EoMonth(DateValue("01." & TB.Name), 0)
            If Monatsende <= Date Then
                TB.UsedRange.Cells.Locked = True 'Zellen schützen 
                TB.Protect Password:=PW, UserInterfaceOnly:=True 'Blatt schützen 
            End If
        End If
    Next
    MsgBox "Vormonat(e) geschlossen"
    
End Sub

LG UweD

Beliebteste Forumthreads (12 Monate)

Tabelleblatt auf Ende Monat schützen/sperren

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread