سلام دوست عزیزمن کد دوستمون رو یکم اصلاح میکنم. بعضی جاها باید اینتر میخورده که نخورده
کد:
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 کپی می کنم ، زمان اجرای کد از من نام ماکرو رو میخاد ؟ و اجرا نمیشه ؟؟
سلام ، ببخشید ی سوال !!! چرا وقتی این کد را در محیط vba کپی می کنم ، زمان اجرای کد از من نام ماکرو رو میخاد ؟ و اجرا نمیشه ؟؟
سلام دوست عزیز
این کد رو باید در قسمت کدهای شیت مورد نظر اضافه کنید نه یک ماژول و برای اجرای این کد باید تغییری در یک سلول اکسل ایجاد کنید تا نتیجه رو ببینید نه اینکه از داخل محیط vba کد رو اجرا کنید
علاقه مندی ها (Bookmarks)