نمایش نتایج: از شماره 1 تا 7 , از مجموع 7

موضوع: حذف یک ماکرو به وسیله ماکرو دیگر

  1. #1


    آخرین بازدید
    2019/03/29
    تاریخ عضویت
    June 2010
    نوشته ها
    13
    امتیاز
    2
    سپاس
    0
    سپاس شده
    2 در 2 پست
    تعیین سطح نشده است

    حذف یک ماکرو به وسیله ماکرو دیگر

    با سلام
    من میخواستم بدونم ایا می شود به وسیله یک ماکرو ماکرو دیگه را حذف کرد و یا در ویژل بیسیک اکسل دستوری نوشت که بتواند قسمتی یا همه دستورات نوشته شده را حذف کند
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    2020/11/02
    تاریخ عضویت
    October 2010
    محل سکونت
    قائمشهر
    نوشته ها
    114
    امتیاز
    54
    سپاس
    150
    سپاس شده
    53 در 27 پست
    تعیین سطح نشده است

    RE: حذف یک ماکرو به وسیله ماکرو دیگر

    با سلام
    ميشه بفرمايي دقيقا چه كاري مد نظرته كه ميخواي ماكرويي رو حذف كني؟

  4. #3


    آخرین بازدید
    2019/03/29
    تاریخ عضویت
    June 2010
    نوشته ها
    13
    امتیاز
    2
    سپاس
    0
    سپاس شده
    2 در 2 پست
    تعیین سطح نشده است

    RE: حذف یک ماکرو به وسیله ماکرو دیگر

    با سلام من میخوام در برنامه ام کاری کنم که یک تاریخ مشخص کنم و وقتی تاریخ سیستم به اون روز رسید یک سری از ماکرو ها یا دستوراتی که نوشته ام حذف گردد تا کاربر دیگر دسترسی به ان نداشته باشد

  5. #4


    آخرین بازدید
    2021/12/05
    تاریخ عضویت
    February 2010
    محل سکونت
    بوشهر
    نوشته ها
    940
    امتیاز
    718
    سپاس
    29
    سپاس شده
    863 در 365 پست
    تعیین سطح نشده است

    shamsololama به Yahoo ارسال پیام

    Re: حذف یک ماکرو به وسیله ماکرو دیگر

    با درود فراوان
    برای این کار می توانید این دستور را داخل رویداد اپن بوک بگذارید تا شیت مورد نظر شما مثلا شیت یک را حذف کند بدون اینکه اخطار دهد و شیت یک را با امنیت بالا مخفی کنید تا دیده نشود
    حالا تمام ماکروهای که می خواهید در زمان مشخصی پاک شود داخل صفحه کد شیت یک بنویسید تا با پاک شدن آن شیت تمام ماکروهای مورد نظر شما نیز پاک شود

    البته راهای زیادی برای این کار هست و یک سری از کدها هم هست که مستقیم خود ماکرو یا ماژول را پاک میکنه ولی نیاز هست که بعضی از دستورات کتاب خانه ای را فعال کنید که این خود مشکلی برای کاری است که مد نظر شماست
    ولی ساده ترین راه این راهی بود که خدمت شما عرض کردم
    کد PHP:
     Sub delet()
    Application.DisplayAlerts False
    Sheet1
    .Delete
    ActiveWorkbook
    .Save
    End Sub 
    ویرایش توسط ~M*E*H*D*I~ : 2014/04/27 در ساعت 14:13

  6. #5


    آخرین بازدید
    2018/02/23
    تاریخ عضویت
    September 2017
    نوشته ها
    7
    امتیاز
    10
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    با سلام و خسته نباشید
    ببخشید اگه من بخوام یه ماکرو رو از داخل یه ماژول حذف کنم باید چیکار کنم؟خواسته ی من هم مثله خواسته ی دوستمونه با این تفاوت که ماکروی من توی شیت نیست بلکه توی ماژول هست.با تشکر

    - - - Updated - - -

    منظورم اینه که با اجرای ماکروی شماره 2 ، ماکروی شماره یک کلا حذف بشه و به شیتها آسیبی نرسه

  7. #6


    آخرین بازدید
    2 ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط Yaamahdiadrekni نمایش پست ها
    با سلام و خسته نباشید
    ببخشید اگه من بخوام یه ماکرو رو از داخل یه ماژول حذف کنم باید چیکار کنم؟خواسته ی من هم مثله خواسته ی دوستمونه با این تفاوت که ماکروی من توی شیت نیست بلکه توی ماژول هست.با تشکر

    - - - Updated - - -

    منظورم اینه که با اجرای ماکروی شماره 2 ، ماکروی شماره یک کلا حذف بشه و به شیتها آسیبی نرسه

    سلام دوست عزیز
    همچین کاری امکان پذیر نیست. فقط میتونین از فایلتون خروجی xlsx بگیرین که کل ماکروها رو پاک کنه

  8. سپاس ها (1)


  9. #7


    آخرین بازدید
    2022/06/26
    تاریخ عضویت
    January 2013
    محل سکونت
    شیراز
    نوشته ها
    1,198
    امتیاز
    3248
    سپاس
    1,566
    سپاس شده
    3,182 در 795 پست
    سطح اکسل
    84.00 %

    با درود همانطور که جناب استاد شمس گفتن راه ساده این مطلب مان است که ایشان عرض کردند اما اگر همچنان اصرار به راه یکم پیچیده هستین پس شروع کنین

    1- ابتدا در محیط ویژوال بیسیک از قسمت Tools و بعد reference تیک گزینه ی
    Microsoft Visual Basic For Applications Extensibility 5.3 رو بزنین و بعد اکی کنین.

    حال دو حالت رو با هم برسی میکنیم
    1- میخوایم کل کد های نوشته شده توی ماژول 1 رو پاک کنیم با یه کد VBA
    کد:
       Sub DeleteModule()
        
            Dim VBProj As VBIDE.VBProject
            Dim VBComp As VBIDE.VBComponent
        
            Set VBProj = ActiveWorkbook.VBProject
            Set VBComp = VBProj.VBComponents("Module1") ' change it to your specific module
            VBProj.VBComponents.Remove VBComp
        End Sub
    حالت دوم میخوایم یه سری کد که توی ماژول 1 نوشته شده ( یک procedure توی یک ( module)) رو رو فقط پاک کنیم ، فرض procedure ما اسمش هست Sub amin() پس داریم :

    کد:
    Sub DeleteProcedureFromModule()
            Dim VBProj As VBIDE.VBProject
            Dim VBComp As VBIDE.VBComponent
            Dim CodeMod As VBIDE.CodeModule
            Dim StartLine As Long
            Dim NumLines As Long
            Dim ProcName As String
            
            Set VBProj = ActiveWorkbook.VBProject
            Set VBComp = VBProj.VBComponents("Module1") ' change it to your specific module
            Set CodeMod = VBComp.CodeModule
        
            ProcName = "amin" ' the name of your specific procedure
            With CodeMod
                StartLine = .ProcStartLine(ProcName, vbext_pk_Proc)
                NumLines = .ProcCountLines(ProcName, vbext_pk_Proc)
                .DeleteLines StartLine:=StartLine, Count:=NumLines
            End With
        End Sub
    هر چند هنوز هم با نظر استاد شمس موافقم ، فقط جهت اطلاع عرض شد .

    در پناه خداوندگار ایران زمین باشید و پیروز


    در پناه خداوندگار ایران زمین باشید و پیروز



اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. ارتباط بین دو ورک بوک به وسیله VBA
    توسط mokaram در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 4
    آخرين نوشته: 2013/12/30, 20:46
  2. فراخوان اطلاعات به وسیله فرم
    توسط amirgolshan در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 2
    آخرين نوشته: 2012/08/29, 13:25
  3. فیلتر کردن بوسیله vb
    توسط runmohsen در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 0
    آخرين نوشته: 2011/01/05, 20:46
  4. انجام ماکروها بوسیله کلیک کردن روی سل
    توسط Amir Mohsenpour در انجمن ترفندهای اکسل Excel Tricks
    پاسخ ها: 2
    آخرين نوشته: 2010/08/17, 00:23

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

دستور پاک کردن یک ماژول در وی بی ای

پاک کردن ماکرو در اکسل

حذف خود ماکرو در اکسل

حذف ماکرو اکسل

پاک کردن ماکرو اکسل

پاک کردن یک ماکرو هیدن شده

پاک کردن ماکروها در اکسل

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

ویرایش یا حذف ماکرو در اکسل

حذف یک ماکرو

حذف ماکرو در اکسل

پاک کردن ماکرو در اکسل

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

کپی به وسیله ماکرو اکسل

حذف یک مایکرو در اکسل

دستور حذف یک مامور در وی بی ای

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است