در صورت وارد شدن تاریخ امروز در یک سلول مشخص کل Sheet از Protect خارج شود .

[sabertb]

سلام به دوستان و معلمین عزیزم تو این مدت حدود 8 ماه خیلی خیلی مطلب از این انجمن ها یاد گرفتم که صمیمانه تشکر میکنم.
یه سوال داشتم چطور میشود Sheet که قبلا خودم با پسورد 123 پروتکت Protect کردم رو با وارد کردن تاریخ امروز (روزی که در آن قرار داریم) در سلولی که البته Locked نیست Unprotect کرد ؟
مثلا سلول B2 به عنوان محل درج تاریخ روز .

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[Amir Ghasemiyan]

سلام به دوستان و معلمین عزیزم تو این مدت حدود 8 ماه خیلی خیلی مطلب از این انجمن ها یاد گرفتم که صمیمانه تشکر میکنم.
یه سوال داشتم چطور میشود Sheet که قبلا خودم با پسورد 123 پروتکت Protect کردم رو با وارد کردن تاریخ امروز (روزی که در آن قرار داریم) در سلولی که البته Locked نیست Unprotect کرد ؟
مثلا سلول B2 به عنوان محل درج تاریخ روز .

سلام دوست عزيز
شما بايد از طريق كدهاي vba اين كار رو انجام بدين و بگين مثلا اگه در سلول A1 تاريخ مطابق تاريخ امروز وارد شد قفل رو حذف كنه
شما ميتونين از اين كد استفاده كنيد:

If Range("A1").Value = Date Then
    ActiveSheet.Unprotect Password:="123"
End If

با اين كد شما اگر تاريخ روز رو بنويسيد يا حتي از فانكشن Today استفاده كنيد قفل باز ميشه ولي اگه بخواين فقط با نوشتن تاريخ باز بشه كافيه بجاي valu در قسمت شرط از عبارت text استفاده كنيد به اين صورت: