اعلام قفل شدن شیت بعد از 3 روز

[ali.b]

سلام
با این کد شیت بعد از 3 روز قفل خواهد شد و تا قفل این سه روز با باز شدن فایل اعلام میکنه که حواسه به 3 روز دیگه باشه
در ضمن اردس سلول هایی که توش نام برده شده رو دقت کنین

Private Sub Workbook_Open()
'Unprotect sheet
Sheets("Sheet1").Select
ActiveSheet.Protect Contents:=False

'Declare variables
Dim datarange() As Variant
Dim daterange() As Variant
Dim i As Integer

'Assign range data to variable
datarange = Range("A2:A8")
daterange = Range("B2:B8")

'Loop through dates
For i = 1 To 7

'Check if date is older than 3 days
If Now - daterange(i, 1) > 3 Then

'Lock cell if true
Cells(i + 1, 1).Locked = True

End If
Next

'Protect sheet
ActiveSheet.Protect Contents:=True

'Say it's done
MsgBox ("Data older than 3 days has been locked")

End Sub