Lock cells after text entered in merge cells and saved (VBA Code)

[Trebby]

Hi Guys,

Would someone mind taking the time to help?

I've attached a simple spreadsheet which will hopefully show the basics of what I am trying to achieve.

On the sheet it has 12 (yellow) free text boxes, which is listed against month/year. Now what I need it to do is that once text is entered and then the saved button is pressed, I want it to lock these cells so no data can be changed unless the admin unprotect these with a password. This will be on a month to month basis and the following months will need to remain open. I don't know whether the best method will be to auto lock the cells after 45-50 days after the 1st of the previous month (the reason for this method is that for example April's data will be entered in May as this will be a monthly review on the previous month).

Open to suggestions.

Is this possible?

File in link below
https://www.mediafire.com/?r60h5y0g04t2747

Thanks in advance for your help.

 

[Trebby]

I was thinking of adding a deadline date for text to be enter to simplify it better?

 

[Trebby]

I have found this bit of code but can't get it to work, any suggestions?

Private Sub workbook_open()
ActiveSheet.unprotect Password:="12345"
If Date > #4/18/2015# Then
Range("C14:M14").Locked = True

ActiveSheet.Protect Password:="12345"
ThisWorkbook.Save
End If

End Sub

 

[MARK858]

Cross-posted Here

Please some time to have a read of the http://www.mrexcel.com/forum/board-announcements/99490-forum-rules.html in particular #10 (there is a link there explaining why).

 

[Trebby]

Sorry Pal. Please close down if not already. Thanks