ali.b
2014/07/26, 07:33
سلام با این کد میتونین فایل اکسل رو بعد پایان یک روز خودکار قفل کنید و برای باز کرذنش نیاز به پسورد داشته باشین
Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Me
If Left(ws.Name, 2) < Format(Date, "mm") Then
ws.UsedRange.Locked = True
ws.Protect Password:="Passkey"
Else
If Right(ws.Name, 2) < Format(Date, "dd") Then
ws.UsedRange.Locked = True
ws.Protect Password:="123"
End If
End If
Next
End Sub
Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Me
If Left(ws.Name, 2) < Format(Date, "mm") Then
ws.UsedRange.Locked = True
ws.Protect Password:="Passkey"
Else
If Right(ws.Name, 2) < Format(Date, "dd") Then
ws.UsedRange.Locked = True
ws.Protect Password:="123"
End If
End If
Next
End Sub