Bill یک ماکرو "قبل از ذخیره" دارد که سه سلول را آزمایش می کند. اگر سلول ها خالی باشند، ماکرو ذخیره کاربر را متوقف می کند. به عبارت دیگر، آنها باید قبل از ذخیره ورک بوک، سلول ها را پر کنند. بیل می خواهد این ورک بوک را به عنوان یک الگو ذخیره کند، اما وقتی سه سلول را پاک می کند، ماکرو نیز از ذخیره به عنوان الگو جلوگیری می کند. او می خواهد که الگوی "تمیز" باشد و پیش فرض سه سلول خالی باشد. کاربران یک ورک بوک جدید بر اساس الگو ایجاد می کنند و سپس (به درستی) نمی توانند ذخیره کنند مگر اینکه سلول ها پر شوند.
در واقع چندین روش مختلف وجود دارد که می توانید برای ذخیره الگوی خود از آنها استفاده کنید.
اولین مورد این است که نام ورک بوک خود را به چیزی نسبتاً باطنی تغییر دهید، مانند X27TT3W.xlsm. سپس، مقداری منطق به ماکرو "قبل از ذخیره" خود اضافه کنید تا بررسی کند که آیا نام ورک بوک پایه X27TT3W است یا خیر. اگر چنین است، اجازه دهید ورک بوک (یا الگو) بدون توجه به شرایط سه سلول ذخیره شود. پس از ذخیره الگو، می توانید نام آن را در ویندوز به نام دلخواه خود تغییر دهید و با کاربران خود به اشتراک بگذارید. مگر اینکه نام باطنی انتخابی شما را حدس بزنند، نمی توانند ورک بوک را بدون اطمینان از پر شدن سه خانه ذخیره کنند.
روش دیگر این است که به سادگی یک کنترلر رویداد دیگر را به ورک بوک خود اضافه کنید - این یکی که در اولین باز کردن ورک بوک اجرا می شود - تا محتویات سه سلول پاک شود. این می تواند چیزی ساده باشد، مانند این:
Private Sub Workbook_Open()
Sheet1.Cells(1,1).Clear
Sheet1.Cells(2,1).Clear
Sheet1.Cells(3,1).Clear
End Sub
این ماکرو سلول های A1:A3 را پاک می کند. اگر می خواهید محدوده متفاوتی را پاک کنید، کافی است سه خط را تغییر دهید تا نشان دهد کدام سلول ها را می خواهید پاک کنید. سپس، چیزی را در سه سلول قرار دهید (به طوری که تست شما را در ماکرو "قبل از ذخیره" بگذراند) و آن را به عنوان یک الگو ذخیره کنید.
روش دیگری که پیاده سازی آن بسیار آسان است، غیرفعال کردن رویدادها قبل از ذخیره قالب است. این کار در یک ماکرو انجام نمی شود، بلکه در پنجره فوری در ویرایشگر ویژوال بیسیک انجام می شود. تنها کاری که باید انجام دهید این است که این خط را وارد کنید:
Application.EnableEvents = False
بلافاصله ورک بوک خود را به عنوان یک الگو ذخیره کنید و سپس خط زیر را در پنجره فوری ویرایشگر ویژوال بیسیک وارد کنید:
Application.EnableEvents = True
