sheet beveiligen na bepaalde datum

[ucasmathijs]

Mijn excel-bestand bestaat uit 12 pagina's (sheets) onderaan met tabs te selecteren.
Deze 12 sheets zijn de maanden van het jaar en zijn ook zo benoemd.
Nu wil ik dat elk sheet afzonderlijk op een welbepaalde datum wordt beveiligd zodat de gegevens in die sheet niet meer kunnen bewerkt worden tenzij mits ingeven van een wachtwoord.

Kan er iemand mij de juiste code aanreiken?

Ik heb al wat dingen gezien op het forum maar nooit specifiek voor mijn situatie.

Heel concreet moet ik bijvoorbeeld de maand 'januari' op 24/01/2016 kunnen locken. Indien er kan gewerkt worden met de formule =vandaag() ergens in een cel dan is dat mooi meegenomen.

Alvast bedankt voor de hulp....

 

[Cobbe]

Sla die tabs op als pdf zo heb je een niet (zo gemakkelijk) te wijzigen document.

 

[ucasmathijs]

Sla die tabs op als pdf zo heb je een niet (zo gemakkelijk) te wijzigen document.

De excel-sheets moeten wel bewerkbaar zijn voor die data hé .... de bedoeling is de consolidering van de ingevoerde gegevens na een welbepaalde datum

 

[HSV]

In thisworkbook.
De code is gemaakt voor de eerste twaalf werkbladen in volgorde.
Bij het openen van je werkboek zul je nu gaan merken dat vandaag de werkbladen 1 en 12 beveiligd zijn met het wachtwoord "ww" zonder de quotes.

De data in de code moet jezelf even aanpassen natuurlijk.

Private Sub Workbook_Open()
Dim i As Long
For i = 1 To 12
  If Date > DateValue(Choose(i, "4-12-2016", "5-12-2016", "6-2-2017", "7-3-2017", "8-4-2017", "9-5-2017", "10-6-2017", "11-7-2017", "12-8-2017", "13-9-2017", "14-10-2017", "3-12-2016")) Then Sheets(i).Protect "ww"
Next i
End Sub

 

[ucasmathijs]

In thisworkbook.
De code is gemaakt voor de eerste twaalf werkbladen in volgorde.
Bij het openen van je werkboek zul je nu gaan merken dat vandaag de werkbladen 1 en 12 beveiligd zijn met het wachtwoord "ww" zonder de quotes.

De data in de code moet jezelf even aanpassen natuurlijk.

Private Sub Workbook_Open()
Dim i As Long
For i = 1 To 12
  If Date > DateValue(Choose(i, "4-12-2016", "5-12-2016", "6-2-2017", "7-3-2017", "8-4-2017", "9-5-2017", "10-6-2017", "11-7-2017", "12-8-2017", "13-9-2017", "14-10-2017", "3-12-2016")) Then Sheets(i).Protect "ww"
Next i
End Sub

Ok bedankt, ik probeer dit morgen even uit op het bestand .....

 

[ucasmathijs]

Gelukt !!!

Dank u wel !