سلام
با این کد شیت بعد از 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
|
اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید. |
|
علاقه مندی ها (Bookmarks)