محافظت از سلولهای پر شده

[shamsololama]

با درود خدمت تمام دوستان بویژه استاد مسلم این تالار جناب شمس العلما
استاد
در فایل نمونه ارسالی توسط شما چنانچه بخواهیم یک یا دو ستون خاص به جای کل ورک شیت ،لاک بشه و پس از ورود پسورد مجددا قابلیت ویرایش داشته باشه چکار باید کرد
ممنون میشم اگه این شاگردتون رو هم راهنمایی کنین

با درود فراوان
برای اینکار کافی است که در شرطی که تعریف کرده ایم یک And اضافه کنید
یعنی بجای
If Selection <> "" Then
بنویسیم
If Selection <> "" And Selection.Column = 1 Then
تا این شرط را در ستون یک بررسی کند
و اگر بیش از یک ستون بود هم با or بقیه ستونه ها نیز به شرط اضافه میکنیم

فایل نمونه:
[attachment=186]