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

**Amir Ghasemiyan** · 2018/06/25, 11:48

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

**farhad2631** · 2018/06/26, 00:45

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

فایل های پیوست شده

PersonnelPerformanceCardFinal22222.rar (118.7 کیلو بایت, مشاهدات 11)

**Amir Ghasemiyan** · 2018/06/26, 09:20

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

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

**farhad2631** · 2018/06/26, 23:46

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

**M_ExceL** · 2018/06/27, 01:14

نوشته اصلی توسط farhad2631

درود و سپاس . درسته من از ماژول 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** · 2018/06/27, 14:16

نوشته اصلی توسط farhad2631

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

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

کد:

ActiveSheet.protect Password:="12345"

**farhad2631** · 2018/07/01, 02:19

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

- - - Updated - - -

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