How to lock cells after a certain days

  • Thread starter Thread starter Thu Ng
  • Start date Start date
T

Thu Ng

How can I lock cells B1 to B10 if the date shown in cell A1 maller than today
2 days
please help.
 
This little macro will lock cells B1:B10 when the file is opened if the date
in A1 is more than 2 days earlier than today's date. This macro must be
placed in the workbook module. HTH Otto
Private Sub Workbook_Open()
With Sheets("TheSheetName")
If Date - .Range("A1") > 2 Then
.Range("B1:B10").Locked = True
End If
End With
End Sub
 
Back
Top