قفل سلول هایی که فرمول دارن

[kamaee]

سلام دوست عزیزمن کد دوستمون رو یکم اصلاح میکنم. بعضی جاها باید اینتر میخورده که نخورده

private sub worksheet_selectionchange(byval target as range)      dim rng as range   for each rng in target.cells      if rng.hasformula then         activesheet.protect         exit sub      else         activesheet.unprotect      end if   next rng end sub

سلام ، ببخشید ی سوال !!! چرا وقتی این کد را در محیط vba کپی می کنم ، زمان اجرای کد از من نام ماکرو رو میخاد ؟ و اجرا نمیشه ؟؟

[Amir Ghasemiyan]

سلام ، ببخشید ی سوال !!! چرا وقتی این کد را در محیط vba کپی می کنم ، زمان اجرای کد از من نام ماکرو رو میخاد ؟ و اجرا نمیشه ؟؟

سلام دوست عزیز
این کد رو باید در قسمت کدهای شیت مورد نظر اضافه کنید نه یک ماژول و برای اجرای این کد باید تغییری در یک سلول اکسل ایجاد کنید تا نتیجه رو ببینید نه اینکه از داخل محیط vba کد رو اجرا کنید