پرسش Protect Automatically

[Masih60]

سلام،

دوستان عزیز میخوام یک Worksheet در اکسل رو Protect کنم. فردی که رمز رو داره بتونه Unprotect کنه و تغییرات مدنظرش رو اعمال کنه. چون در برخی از موارد ممکنه این فرد فراموش کنه که دوباره حالت Protect رو فعال کنه، میخواستم روشی رو بگید که بصورت خودکار فایل با رمز قبلیش Protect بشه.

با تشکر

[hadi1980]

سلام
داخل Workbook_BeforeClose يک خط برنامه بنويسيد اينجوري مثلا

ActiveSheet.Protect Password:="test"

[Masih60]

سلام
داخل Workbook_BeforeClose يک خط برنامه بنويسيد اينجوري مثلا

ActiveSheet.Protect Password:="test"

من به این شکل کد رو نوشتم:

Sub Workbook_BeforeClose()    ActiveSheet.Protect Password:="test"
End Sub

اینطوری هر بار باید قبل از خروج اجرا بشه ماکرو. من میخوام خودش اتوماتیک این کار رو انجام بده.

[hadi1980]

نه فکر کنم اشتباهي متوجه شديد
اين برنامه يک خطي نبايد در ماجول نوشته بشه
به عبارتي بايد در ليست درختي VBAProject روي عبارت ThisWOrkbook دوبار کليک کنيد
بعد از ليست کرکرهاي بالا سمت چپ بجاي General بايستي Workbook رو انتخاب کنيد و بعد از آن از ليست کرکرهاي سمت راست BeforeClose رو انتخاب کنيد
اونوقت ميبينيد اکسل در قسمت برنامه خودش مينويسه

Private Sub Workbook_BeforeClose(Cancel As Boolean)
End Sub

حالا توي اين سابروتين اون يک خط برنامه رو بنويسيد
عکس پيوست رو ببينيد
اينجوري الان وقتي ThisWorkbook داره بسته ميشه خودش اتوماتيک اون کد رو اجرا ميکنه
کلا برنامههاي اتوماتيک روي فايل رو بايد اينجوري بنويسيد مثلا اينکه وقتي يک شيت رو انتخاب ميکنيد يکسري اطلاعات اون بهروز بشه يا وقتي اکسل رو ميبنديد پيامي بياد و مثلا ذخيره نشه و غيره
موفق باشيد
هادي