reylan

[reylan]

Is there a way that in a Sheet name Discounts cell Y1048576 will autofill up
a name YOUTIMEMEUP

sITUATION:

cell y1048576 is locked and hidden by password NOMOREHAPPYJOB
cell y1048576 is left as blank till the set time comes let us say july 16, 2011
then the word will appear OR FILLE UP in cell y1048576 YOUTIMEMEUP

 

[Bunglebogs]

I would suggest a workbook open event would be your best option. This will check the date every time you open the workbook. Something like:

Private Sub Workbook_Open()
dim SysDate as String

SysDate = Date
If SysDate = "16/07/2011" Then
With Worksheets("Discounts")
.Unprotect Password:="NOMOREHAPPYJOB"
.Cells(1048576,25).Value = "YOUTIMEMEUP"
.Protect Password:="NOMOREHAPPYJOB", DrawingObjects:=False, Contents:=True, Scenarios:=False
End With
End If

End Sub

I've not tested the code though, so may require some tweaking.