Lock Sheets On A Spreadsheet After A Certain Date

[Donaghy]

Hi All,

Does anyone know how to lock down a sheet on a spreadsheet after a certain date has passed.

For example, after the 28th of september lock down sheet 1, after the 15th October lock down sheet 2, etc.

Any ideas, help appreciated.

thanks.

 

[Oaktree]

Welcome to the board.

Assuming cell A1 of each sheet has the "lock date", try putting something like this in the ThisWorkbook module:

Private Sub Workbook_Open()
Dim i As Integer
For i = 1 To Sheets.Count
If Sheets(i).Range("A1") < Date Then
Sheets(i).Protect
Else: Sheets(i).Unprotect
End If
Next i
End Sub

 

[Donaghy]

Thanks for replying.

Will give this ago and hopefully it does the job.

cheers.