[حل شده] قفل ماندن سلولها و فرمولها پس از کپی کردن شیت توسط ماکرو

[farhad2631]

سلام و عرض ادب . من یک فایل کارکرد ماهیانه برای پرسنل یک شرکت درست کردم . فایل مذکور شامل دو شیت هست . شیت اول شامل جدول مشخصات پرسنل و به عبارتی فهرست اسامی ایشان است و شیت دوم جداول مربوط به کارکرد پرسنل که به تفکیک ماههای سال می باشد . شایان ذکر است شیت دوم برای هر فرد جداگانه کپی و سپس به شیت اول و نام شخص مربوطه در جدول فهرست لینک می شود .
من فرمولها برخی از سلولها رو از طریف فرمت سل قفل کردم ، اما بعد اجرای ماکرو و کپی کردن شیت جدید ( شیت دوم ) سلولها از حالت قفل خارج میشن .
لطفا اگر ممکنه بنده رو در این مورد راهنمایی بفرمایید .
متشکرم

[Amir Ghasemiyan]

سلام دوست عزيز
لطفا كدتون رو اينجا بذاريد بررسي بشه
احتمالا از طريق كد قفل شيت رو باز كرديد و مجددا قفل نكرديد

[farhad2631]

سلام آقای قاسمیان . ممنون که پاسخگو هستید .

[Amir Ghasemiyan]

سلام دوست عزيز
شما اصلا شيتي رو قفل نكرديد كه بخواد از قفل خارج بشه

در ماژول 4 قفل كردن رو تعريف كرديد اما هيچ جا ازش استفاده نكرديد

[farhad2631]

درود و سپاس . درسته من از ماژول 4 استفاده نکردم چون زمانی که اجرا میشه فقط سیت reference رو قفل میکنه و شیتهای بعدی رو تغییر نمیده .
من دنبال راهکاری هستم تا بتونم بعد از ایجاد شیت جدید " پرونده جدید " سلولهای مورد نظرم قفل بشه .
در ضمن مجددا عرض میکنم بنده تازه کار و نا آشنا با ماکرو نویسی هستم . لذا اگر بتونید منو راهنمایی بفرمایید ممنون میشم .

[M_ExceL]

درود و سپاس . درسته من از ماژول 4 استفاده نکردم چون زمانی که اجرا میشه فقط سیت reference رو قفل میکنه و شیتهای بعدی رو تغییر نمیده .
من دنبال راهکاری هستم تا بتونم بعد از ایجاد شیت جدید " پرونده جدید " سلولهای مورد نظرم قفل بشه .
در ضمن مجددا عرض میکنم بنده تازه کار و نا آشنا با ماکرو نویسی هستم . لذا اگر بتونید منو راهنمایی بفرمایید ممنون میشم .

سلام
کد زیر سلول های a1 تا a5 رو در تمام شیت ها قفل میکنه :

Sub test()
On Error Resume Next
For i = 1 To Sheets.Count
    Sheets(i).Select
    Cells.Locked = False
    Range("A1:A5").Locked = True
    ActiveSheet.Protect Password:="123", DrawingObjects:=True, Contents:=True, _
Scenarios:=True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowSorting:=True, UserInterfaceOnly:=True
Next i
End Sub

شما می تونید رنج مورد نظرتون رو داخل کد اضافه کنید.
موفق باشید.

[Amir Ghasemiyan]

درود و سپاس . درسته من از ماژول 4 استفاده نکردم چون زمانی که اجرا میشه فقط سیت reference رو قفل میکنه و شیتهای بعدی رو تغییر نمیده .
من دنبال راهکاری هستم تا بتونم بعد از ایجاد شیت جدید " پرونده جدید " سلولهای مورد نظرم قفل بشه .
در ضمن مجددا عرض میکنم بنده تازه کار و نا آشنا با ماکرو نویسی هستم . لذا اگر بتونید منو راهنمایی بفرمایید ممنون میشم .

در ماژول 1 قبل از خط آخر اين كد رو اضافه كنيد
با اينكار هر شيتي كه ايجاد ميشه با رمز 12345 قفل ميشه

ActiveSheet.protect Password:="12345"

[farhad2631]

سلام و عرض ادب . از محبت شما متشکرم .

- - - Updated - - -

سلام و سپاس جناب آقای قاسمیان عزیز . از اینکه برای حل مشکل من وقت گذاشتید متشکرم .
به لطف شما این مشکل حل شد . با احترام مجدد