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

[Ali Parsaei]

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

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

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

[Amir Ghasemiyan]

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

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

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

Application.DisplayAlerts = False
   ActiveWorkbook.Save
Application.DisplayAlerts = True

[امين اسماعيلي]

با درود
یه نگاهی هم به اینجا بنداز ببین این تیکو برداشتی مربوط یه remove ......

[Ali Parsaei]

با درود
یه نگاهی هم به اینجا بنداز ببین این تیکو برداشتی مربوط یه remove ......

تيک ها درست بود، مشکل از تيک ها نيست

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

Application.DisplayAlerts = False
   ActiveWorkbook.Save
Application.DisplayAlerts = True

بله، کار مي کنه، کارم ساده شد متشکرم
دست همتون درد نکنه