ماکروی روز : قفل کردن سلول های حاوی فرمول
به چهارمین روز از سلسه مطالب آموزشی تحت عنوان ماکروی روز خوش آمدید .موضوع آموزش امروزمان قفل کردن سلول های حاوی فرمول است
همانطور که می دانید ماکروها از قابلیت های کاربردی نرم افزار اکسل هستند .
در بیشتر سایت ها و منابع فقط اشاره به کارایی های مختلف آنها اشاره شده است .
یکی از این کاربردها این است که ما با استفاده از این ماکروها به راحتی می توانیم انجام کارهای تکراری خود را به اکسل واگذار نماییم .
امروز در طی این مطلب آموزشی می خواهیم انجام یکی از این کارها که بسیار کاربردی و در عین حال می تواند تکراری نیز باشد را می خواهیم به ماکرو ها بسپریم .
اما قبل از اینکه به سراغ ماکروی امروز برویم توصیه میکنم که اگر آشنایی با ماهیت کار ماکروها ندارید کتاب مربوط به آشنایی و کار با ماکروها را از همین سایت دانلود نمایید تا به فلسفه وجودی ماکروها پی ببرید .
و اما در خصوص ماکروی روز چهارم .
مطلب خواندنی : مخفی نمودن متن ها در اکسل
قفل کردن سلول های حاوی فرمول در اکسل
امروز می خواهیم به سراغ ماکرویی برویم که با استفاده از آن می توانیم به راحتی تمامی سلول های موجود در یک شیت کاری را قفل نماییم .
اما این سلول یا سلول ها برای اینکه توسط این ماکرو قفل شوند باید حائز یک شرط باند .
شرط اینکه یک یا چند سلول از بین سایر سلول ها توسط این ماکرو قفل شود این است که این سلول باید دارای یک فرمول محاسباتی باشد .
حال این فرمول هر چه می خواهد باشد و هر چیزی را که می خواهد محاسبه نماید و یا اینکه یک فرمول ساده باشد و یا پیچیده هیچ تفاوتی ندارد .
این ماکرو تک تک سلول های موجود در یک شیت را کنترل نموده و به محض برخورد با سلول حاوی فرمول آن را به حالت قفل شده در می آورد .
این کار می تواند خیال ما را از بابت اینکه هیچ یک از سلول های موجود در شیت کاری ما که حاوی فرمول هستند در معرض تغییرات ناخواسته قرار نگیرند را راحت نماید .
برای ایجاد این ماکرو مراحل زیر را دنبال نمایید .
مراحل انجام کار
- در گام نخست یک دکمه را به محیط کاری اکسل خود اضافه نمایید ..
- با دابل کلیک کردن بر روی دکمه ایجاد شده به محیط کد نویسی دکمه مربوطه بروید .
- در رویداد مربوط به On Click این دکمه کدهای زیر را وارد نمایید .
With ActiveSheet
خارج کردن شیت جاری از حالتprotect ‘
.Unprotect
غیر فعال کردن قفل تمام سلول ها ‘
.Cells.Locked = False
تنظیم قفل سلول های دارای فرمول’
.Cells.SpecialCells(xlCellTypeFormulas).Locked = True
.Protect AllowDeletingRows:=True
کدها را که وارد نمودید همه چیز را ذخیره کنید و به محیط کاری اکسل خود برگردید .
وقتی که محاسبات خود را انجام دادید اگر بر روی این دکمه کلیک نمایید اتفاقی که می افتد این است که بطور خودکار تمامی سلول هایی را که در آنها فرمولی را وارد کرده اید قفل شده و کاربر نمی تواند تغییری را در ساختار آنها ایجاد نماید .
هرچند که سایر سلول ها باز بوده و کاربر بدون هیچ مشکلی می تواند با آنها کار کند .
اینجا با یک خط کد خیلی ساده توانستیم کار قفل کردن سلول های حاوی فرمول را انجام بدهیم . البته مبحث قفل کردن شیتها توسط برنامه نویسیVBA در اکسل مبحث مفصلی است .
کارهایی مثل قفل کردن و یا باز کردن کل یک یا چند تا شیت یا حتی کل یک ورک بوک از جمله کارهایی است که به کمک برنامه نویسی VBA در اکسل می شود انجام داد .
اگر علاقمند به یادگیری مطالب بیشتر در این زمینه هستید از شما دعوت می کنم که مطلب کاملتر در این زمینه را با مراجعه به مقاله قفل کردن اجزای اکسل به کمک کدهای VBA که در همین سایت قرار دارد مراجعه کنید .
راستی در پیج اینستاگرام وی بی ای پلاس هم کلی ترفند و آموزش کاربردی وجود دارد که می توانید از آنها هم استفاده کنید .
پس از شما دعوت می کنم که حتما سری به پیج ما بزنید .
دیدگاهتان را بنویسید