Locking cells once a date has passed

dave3009

Well-known Member
Joined
Jun 23, 2006
Messages
7,004
Office Version
  1. 365
  2. 2016
Hi Everyone

I am having a little dilemma searching for a solution to a problem. I'd like to lock a range of cells once a certain date has passed. I ran a search and found this thread which would be great if I knew the range I wanted to lock.

http://www.mrexcel.com/board2/viewtopic.php?t=185572&highlight=date+lock

However in my case I am looking at ranges that change by month and by individual territory. I have two constant factors I could use date and month (month as I am using SUMIF to summarise the data). Is there any way I could lock a row if the month has passed i.e. if the date/month cell states August but it is now September the row locks

Thanks for any help


Dave
 

Excel Facts

Wildcard in VLOOKUP
Use =VLOOKUP("Apple*" to find apple, Apple, or applesauce

sunnyland

Well-known Member
Joined
Jan 27, 2006
Messages
912
Hello,

You could try this code. For this purpose, let's say the date are in column 1 or A and the worksheet with data is called sheet1 [codename]

If your date are in another column change a to whatever letter is your column in the line:
Code:
Set myrange = Sheet1.Range("a1").Resize(Sheet1.Range("a65535").End(xlUp).Row)
and replace any references to sheet1 with your worksheet name

Code:
Private Sub Workbook_Open()
Sheet1.Unprotect ("")
Dim rowi As Range
Dim myrange As Range
Set myrange = Sheet1.Range("a1").Resize(Sheet1.Range("a65535").End(xlUp).Row)
For Each rowi In myrange
If VarType(rowi) = 7 Then
If Year(rowi) < Year(Date) Or (Month(rowi) < Month(Date) And Year(rowi) = Year(Date)) Then
rowi.EntireRow.Cells.Locked = True
Else
rowi.EntireRow.Cells.Locked = False
End If
Else
rowi.EntireRow.Cells.Locked = False
End If
Next
Sheet1.Protect ("")
End Sub
 

Forum statistics

Threads
1,136,518
Messages
5,676,324
Members
419,619
Latest member
jalme

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top