قفل شدن سلول اکسل بعد از پایان روز کاری (آموزشی)

[ali.b]

سلام با این کد میتونین فایل اکسل رو بعد پایان یک روز خودکار قفل کنید و برای باز کرذنش نیاز به پسورد داشته باشین

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