قفل کردن یکجای شیت ها با کد نویسی چگونه انجام می شود؟
فرض کنید یک فایل اکسل متشکل از تعداد زیادی شیت دارید و میخواهید برای حفاظت از آنها همه را به حالت قفل شده در آورید ؛ در پست مربوط به حفاظت از فایل اکسل گفتیم که چگونه می توان از طریق رمز گذاری بر روی فایل مانع از ورود افرادی شد که رمز عبور را نمی دانند ؛ اما در صورتی که بخواهیم در داخل فایل اکسل و روی تک تک شیت ها هم رمز بگذاریم چه باید کرد؟
خوب روشی که برای انجام آن وجود دارد و ما آن را در آموزش شیت در اکسل هم بیان کردیم ؛ استفاده از قابلیت Protect Sheet است که مانع از اعمال تغییرات با گذاشتن برخی محدودیت ها در استفاده کاربران می گردد. اما این روش زمانی می تواند کارساز باشد که تعداد شیت ها زیاد نبوده و رمز گذاری بر روی تک تک آنها زمانبر نباشد.
اما اگر ما با تعداد زیادی Sheet مواجه باشیم استفاده از روش مذکور کار درستی نخواهد بود ؛ در این مطلب آموزشی قصد دارم تا شما را با قفل کردن یکجای شیت ها با کد نویسی آشنا کنم تا بتوانید در کوتاهترین زمان ممکن کلیه شیت ها را رمز گذاری کنید.
از کجا شروع کنیم؟
مطابق تصویر بالا فرض کنید در یک فایل اکسل 6 شیت یا همان کاربرگ دارید و میخواهید بدون اتلاف زمان خیلی سریع و بصورت یکجا روی هر 6 شیت خود رمز بگذارید و از آنها حفاظت کنید. در گام اول بر روی یکی از شیت ها راست کلیک کرده و با انتخاب گزینه View Code وارد محیط کدنویسی در نرم افزار اکسل میشویم.
پس از کلیک بر روی گزینه فوق وارد محیط کدنویسی در اکسل می شویم ؛ در این قسمت کدهایی را که در تصویر پائین ملاحظه می کنید را دقیقأ وارد می کنیم ؛ در ادامه فایل را با فرمت Xlsm ذخیره می کنیم.
در تصویر بالا شما میتوانید بجای اعداد 123456 رمز مورد نظر خود را قرار دهید تا روی کلیه شیت ها قرار گیرد. در مرحله بعدی بایستی کد نوشته شده در مرحله قبل را اجرا کنیم تا عملیات رمز گذاری یکجای شیت ها انجام شود ؛ مطابق تصویر زیر در مرحله 1 روی دکمه کلیک میکنیم ؛ در این لحظه پنجره Macros به نمایش درخواهد آمد که در درون آن لیست کدهای نوشته شده به نمایش در می آید.
از آنجایی که در فایل ما یک کد بیشتر وجود ندارد ؛ در بخش Macro Name نام Sheet1.t به چشم میخورد که باید در صورتی که در حالت انتخاب قرار ندارد آن را انتخاب کرده و سپس مطابق مرحله 2 روی دکمه Run کلیک کنیم تا کدهای نوشته شده اجرا شوند.
با برگشتن به محیط شیت ها در اکسل و کلیک بر روی سلول ها ملاحظه خواهید نمود که کلیه شیت ها به حالت حفاظت شده در آمده اند و محتوای داخل آنها غیر قابل تغییر شده است و پیغام زیر نیز به شما نشان داده خواهد شد.
