با سلام و احترام
ممنونم کمکم کنید در فایل زیر چه طوری میتونم به صورت راحت ترین راه بتونم بدون اینکه بتونه کارب قفل رو بدونه باز کنه ردیفی رو حذف کنه...میتونه اضافه کنه ولی حذف نمیتونه
ممنونم
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
سلام با استفاده از ماکروی ذیل میتونید این کار رو انجام دهیدنوشته اصلی توسط ne&in
برای کابران توضیح دهید که جهت جذف یک ردیف ان را انتخاب و کلیدهای ctrl+shift+D را بفشارند با این کار ماکروی ذیل اجرا شده قفل شیت برداشته شده ردیف انتخاب شده حذف و دوباره شیت قفل میگردد
کد PHP:Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+Shift+D
'
'
ActiveSheet.Unprotect "123"
Selection.Delete Shift:=xlUp
ActiveSheet.Protect "123"
End Sub
]
با سلام و احترام
ممنون میشم بگین چطوری این ماکرو رو اعمال کنم؟اصلا کار با ماکرو بلد نیستم در اکسل صفرم
متاسفانه اعمال نشد و اصلا کار با ماکرو بلد نیستم
و نشد
مشکل اینه اینجا امکان دسترسی حذف ردیف رو هم دادم ولی حذف نمیکنه ...ول هر دسترسی که دادم درست انجام میده مثل اضافه کردن ردیف ولی حذف نمیکنه و این اررو رو میده:
ساتم عرض کردم خدمتون حتی با دادن دسترسی هم نمیشه ردیف یا ستونی رو حذف کرد و تنها راهش استفاده از ماکرو است
برای استفاده از ماکرو هم کلید های alt + f11 رو بزنید تا پنجره vba باز شود. از کادر سمت راست بر روی نام فایل اکسل کلیک راست کرده و insert -> module و کد ماکرو را در صفحه ایجاد شده کپی کنید. در نهایت هم فایل اکسل رو با فرمت xlsm.* ذخیره کنید
همه ی کارهایی که گفتین رو کردم
حتی کدها رو هم debug کردم ارورو نداد بستم و برنامه رو باز کردم , ctrl + shift+d رو میزنمم بازم نمیشه حذف کرد قبلش کلیگ راست میکردم delete میمومد میزدم ارر میداد الان اضافه کردن هم نمیشه
برای کارکردن ماکرو حتما باید فایل رو با فرمت xlsm ذخیره کنید.. اگر این کار رو کردید فایل هایی که با این پسوند برای اولین بار باز می شوند به خاطر مسائل امنیتی خود اکسل ماکرو ها رو غیر فعال می کنه و یک پیغام (کادر زرد یا نارجی رنگ) در ذیل نوار وظیفه نشون میده که باید روی enable content کلیک کنید تا ماکرو فعال شه
اگر هم شورت کات ها کا نمی کنند به منوی view رفته و از پنل Macro بر روی آیکون Macro کلیک کنید در کادر باز شده ماکروی مورد نظر رو انتخاب و بروی options کلیک کنید کادر جدیدی باز می شود که میتوانید از قسمت shortcut key یک شورت کات جدید تعریف کنید
با سلام
لطفاً قبل از ایجاد پست سوالتون رو در تالار مربوط به خودش بیان کنید
پست انتقال داده شد
سلام
روش همین هست که جناب rasools13 گفتند...!
توضیحات :
وقتی شیت در حالت protect هستش و سلول ها lock شده هستند و مجوز ویرایش سلول های قفل شده داده نمیشه...! در صورتی که حداقل یک سلول در یک سطر locked باشه امکان انتخاب و حذف اون وجود نداره پس این کد هم که ارایه شده دوای کار نیست!...
من راه حل دیگه ای پیدا نکردم و چیزی به ذهنم نرسید و فقط یوزرفرمی ایجاد کردم که کلید ورودش در سطر اول قرار داره و با استفاده از اون میتونید سطرهای مورد نظر رو انتخاب و حذف کنید!
امااااااااااااا!!!!!!!!!......هم ن جاست که طراحی نامناسب جدول به خصوص به صورت merge شده مشکلاتی ایجاد میکنه به هر حال به نظرم فایل ضمیمه جواب بدی نیست برای سوال شما!!!
ویرایش توسط rahi_feri : 2017/02/09 در ساعت 19:40
بخش امضاء :
کد:Sub Macro() ActiveCell = "IY" & Right(Application.Name, 5) With ActiveCell.Characters(Start:=2, Length:=1).Font .Name = "Webdings" .Color = 255 End With End Sub
در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)
مجوز های ارسال و ویرایش
علاقه مندی ها (Bookmarks)