پرسش غیرفعال کردن یک کد ماکرو

[میثم مقدم نیا]

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

[میثم مقدم نیا]

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

[misammisam]

سلام
میتونی یه متغییر به همراه یه if اول ماکروت اضافه کنی که مثلا اگر متغییر a برابر 0 بود ماکرو غیر فعال بشه و اگرم متغییر a برابر 1 بود ماکرو اجرا بشه و در ورودی اکسل همیشه متغییر a رو برابر 1 قرار بده تا همیشه به محض ورود ماکرو فعال بشه .
برای غیر فعال کردن موقت هم میتونی یه دکمه تعبیه کنی درون فایلت تا متغییر a رو برابر 0 قرار بده .
کلیتش همینطوریه دیگه کد نویسیش با خودتون .

[میثم مقدم نیا]

سلام
میتونی یه متغییر به همراه یه if اول ماکروت اضافه کنی که مثلا اگر متغییر a برابر 0 بود ماکرو غیر فعال بشه و اگرم متغییر a برابر 1 بود ماکرو اجرا بشه و در ورودی اکسل همیشه متغییر a رو برابر 1 قرار بده تا همیشه به محض ورود ماکرو فعال بشه .
برای غیر فعال کردن موقت هم میتونی یه دکمه تعبیه کنی درون فایلت تا متغییر a رو برابر 0 قرار بده .
کلیتش همینطوریه دیگه کد نویسیش با خودتون .

سلام مجدد
استاد بابت راهنمایتون ممنونم.
اگه یک مثال کنار این توضیحات تون قرار بدید خیلی خیلی سپاس گذار میشم؛ چون من خودم یک دو مورد نوشتم نتیجه مطلوبی نگرفتم

[misammisam]

یه مثال میزارم که ساده باشه ، کلید آبی و سیاه رو بزنی یه تکسی رو بهت نشون میده ولی اگر کلید سبز رو بزنی کلیدهای سیاه و آبی غیر فعال میشن و تا نری از فایل بیرون و نیای داخل دوباره فعال نمیشن .

[میثم مقدم نیا]

یه مثال میزارم که ساده باشه ، کلید آبی و سیاه رو بزنی یه تکسی رو بهت نشون میده ولی اگر کلید سبز رو بزنی کلیدهای سیاه و آبی غیر فعال میشن و تا نری از فایل بیرون و نیای داخل دوباره فعال نمیشن .

سلام

با کد زیر در This Workbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
MsgBox "لطفاً براي بستن اين فايل از دکمه استفاده کنيد", vbCritical, "                              بستن  کتاب کار"
End Sub 

من کلید x یا همون Close خود اکسل را غیر فعال کردم که کار بر نتونه فایل را از طریق کلید کلوز یا منو فایل و تسک بار اونا ببنده

حالا من میخوام کاربر با استفاده از یک کلید تعبیه شده در اکسل اونا ببنده
من در این قسمت با مشکل روبرو شدم افیس من 2013 و 64بیتی هست
من برای کلید هم از کد زیر استفاده کردم جواب نگرفتم

Sub CloseWorkBook()
 Application.DisplayAlerts = False
 ThisWorkbook.Save
 Application.DisplayAlerts = True
 Application.Quit
End Sub 

لطفاً کمکم کنید

[میثم مقدم نیا]

سلام
اساتید هم اکنون نیازمند یاری سبز شما هستم