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

[ali.b]

با سلام و خسته نباشید
یکی از نکاتی که کمتر دیدم اینه که خیلی از کاربرا از جمله خودم به انتقال داده ها با استفاده از کد از یک شیت محافظت شده به شیت دیگه ، نیاز زیادی پیدا کرده بودیم
اما غافل از اینکه وقتی ما در یک شیتی و در سلول های مشخص UNLOCK هستند داده ها رو ثبت میکنیم
مشکل اینجاست که چون Format cell این سلول ها Unlocked شده در صورت انتقال هم اون سلول ها همین خاصیت رو دارن و عملا فقط شیت رمز گذاشته میشه ولی سلول ها قابل تغییرن
برای حل مشکل باید از کد زیر استفاده کنیم تا format cell رو به حالت lock برگردونه تا در شیت جدید اطلاعات قابل تغییر نباشن
این ی نمونه کد هست و قسمتی که مهمه رو با رنگ دیگه مشخص کردم

ActiveSheet.Unprotect Password:="Enter your Password"
[COLOR=#ff0000]Worksheets[/COLOR][COLOR=#ff0000]("Enter your sheet name").Range("A1:E1")[/COLOR][COLOR=#008000].Locked = True[/COLOR]
ActiveSheet.Protect Password:="Enter your Password"

[ali.b]

در ضمن اگه یه وقتی تعداد شیتتون زیاد بود و یک کد جامع نوشتین میتونین کد مربوطه رو به حالت زیر تغییر بدین

[COLOR=#ff0000]Worksheets[/COLOR][COLOR=#ff0000]("Enter your sheet name").Range("A1:E1")[/COLOR][COLOR=#008000].Locked = True[/COLOR]

مثلا به این حالت

Sheets(i).Activate
Range("A3").Select
    Range("A1:E1").Locked = True

[Amir Ghasemiyan]

در ضمن اگه یه وقتی تعداد شیتتون زیاد بود و یک کد جامع نوشتین میتونین کد مربوطه رو به حالت زیر تغییر بدین

[COLOR=#ff0000]Worksheets[/COLOR][COLOR=#ff0000]("Enter your sheet name").Range("A1:E1")[/COLOR][COLOR=#008000].Locked = True[/COLOR]

مثلا به این حالت

Sheets(i).Activate
Range("A3").Select
    Range("A1:E1").Locked = True

ممنون از آموزشتون
كد آخري كه گذاشتين رو ميشه اينطوري خلاصه كرد:

Sheets(i).Range("A1:E1").Locked = True