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

Ali Parsaei

2014/06/09, 14:11

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

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

Amir Ghasemiyan

2014/06/09, 17:35

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

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

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

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

امين اسماعيلي

2014/06/10, 00:40

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

Ali Parsaei

2014/06/10, 08:36

با درود
یه نگاهی هم به اینجا بنداز ببین این تیکو برداشتی مربوط یه remove ......
3658
تيک ها درست بود، مشکل از تيک ها نيست

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

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

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