پيغام اخطار در خصوص وجود ماکرو موقع بستن فايلي که ماکرو ندارد!

Collapse
X
 
  • زمان
  • نمایش
Clear All
new posts
  • Ali Parsaei
    مدير تالارتوابع اکسل

    • 2013/11/18
    • 1518

    پيغام اخطار در خصوص وجود ماکرو موقع بستن فايلي که ماکرو ندارد!

    سلام،
    من کدي در يک فايل نوشته ام که توسط آن يک فايل ديگر باز شده و صفحه اي از فايل اول در آن کپي شده و سپس فايل دوم بسته مي شود.
    ولي هنگام بسته شدن فايل دوم پيغام اخطار مي دهد:

    [ATTACH=CONFIG]3651[/ATTACH]
    در صورتي که نه در فايل دوم ماکرو يا activex هست و نه در صفحه اي که منتقل شده اين چيزها وجود داشته!
    خودم فکر مي کنم چون با کد نويسي اين عمل انجام شده و فايل اول هنوز باز است يک جوري مي شود که excel قاطي مي کند!
    ضمنا" من تا آنجا که مي دانم قسمت trustcenture را جوري تنظيم کرده ام که اصلا" پيغامهاي اينچنيني ندهد! ولي باز پيغام مي دهد!
    ممکن است کد نويسي اشکال داشته باشد؟
    البته زياد مهم نيست، فوقش يه کليک اضافه بايد بزنم! ولي گفتم باز بپرسم بد نيست!
    sigpic
  • Amir Ghasemiyan

    • 2013/09/20
    • 4476

    #2
    نوشته اصلی توسط علي پارسا
    سلام،
    من کدي در يک فايل نوشته ام که توسط آن يک فايل ديگر باز شده و صفحه اي از فايل اول در آن کپي شده و سپس فايل دوم بسته مي شود.
    ولي هنگام بسته شدن فايل دوم پيغام اخطار مي دهد:

    [ATTACH=CONFIG]3651[/ATTACH]
    در صورتي که نه در فايل دوم ماکرو يا activex هست و نه در صفحه اي که منتقل شده اين چيزها وجود داشته!
    خودم فکر مي کنم چون با کد نويسي اين عمل انجام شده و فايل اول هنوز باز است يک جوري مي شود که excel قاطي مي کند!
    ضمنا" من تا آنجا که مي دانم قسمت trustcenture را جوري تنظيم کرده ام که اصلا" پيغامهاي اينچنيني ندهد! ولي باز پيغام مي دهد!
    ممکن است کد نويسي اشکال داشته باشد؟
    البته زياد مهم نيست، فوقش يه کليک اضافه بايد بزنم! ولي گفتم باز بپرسم بد نيست!

    سلام علي آقا
    من فكر ميكنم اگه آلرت ها رو غير فعال كني مشكلت حل بشه
    شما اين كد رو امتحان كن ببين كار ميكنه يا نه

    کد:
    Application.DisplayAlerts = False
       ActiveWorkbook.Save
    Application.DisplayAlerts = True

    کامنت

    • امين اسماعيلي
      مدير تالار ويژوال بيسيك

      • 2013/01/17
      • 1198

      #3
      با درود
      یه نگاهی هم به اینجا بنداز ببین این تیکو برداشتی مربوط یه remove ......
      Click image for larger version

Name:	Capture.JPG
Views:	1
Size:	62.4 کیلو بایت
ID:	123033
      در پناه خداوندگار ایران زمین باشید و پیروز

      کامنت

      • Ali Parsaei
        مدير تالارتوابع اکسل

        • 2013/11/18
        • 1518

        #4
        نوشته اصلی توسط امين اسماعيلي
        با درود
        یه نگاهی هم به اینجا بنداز ببین این تیکو برداشتی مربوط یه remove ......
        [ATTACH=CONFIG]3658[/ATTACH]
        تيک ها درست بود، مشکل از تيک ها نيست

        نوشته اصلی توسط amir ghasemiyan

        سلام علي آقا
        من فكر ميكنم اگه آلرت ها رو غير فعال كني مشكلت حل بشه
        شما اين كد رو امتحان كن ببين كار ميكنه يا نه

        کد:
        Application.DisplayAlerts = False
           ActiveWorkbook.Save
        Application.DisplayAlerts = True
        بله، کار مي کنه، کارم ساده شد متشکرم
        دست همتون درد نکنه

        sigpic

        کامنت

        Working...