اجرا ماکرو با شرط if و وارد نکردن رمز در ماکرو

[taocom52]

1- سلام دوستان فایلی را نوشتم که لازمه که ماکرویی را باشرط if اجرا کنم آیا امکان داره لطفا یک مثال بفرمایید.
2- این فایل از طریق اینترنت داده های را دریافت و بروز میشود ماکرویی را نوشتم که
رمز شیت و سلولها را باز کرده بعد از بروز رسانی دوباره رمز را میبندد ولی برای اولین بار رمز را میخواهد که نباید اینطور باشد لطفا راهنمایی فرمایید

[Ali Parsaei]

سلام،
سوالات مربوط به ماکرو را بايد در قسمت ويژوال بيسيک مطرح کنيد،
به نظرم اگر شما يک فايل نمونه بگذاريد و کدتان را در آن بنويسيد بهتر مي شود کمکتان کرد.

[taocom52]

متاسفانه نتونستم فایل اکسلم را پیوست کنم و شاید هم بلد نبودم پیوست کنم ، بنده اولین بار م هست که در سایت بسیار مفیدتان سوال میکنم لطفا بفرمایید چگونه فایلم را پیوست کنم متشکرم

[Amir Ghasemiyan]

متاسفانه نتونستم فایل اکسلم را پیوست کنم و شاید هم بلد نبودم پیوست کنم ، بنده اولین بار م هست که در سایت بسیار مفیدتان سوال میکنم لطفا بفرمایید چگونه فایلم را پیوست کنم متشکرم

آموزش روش هاي ضميمه كردن فايل

[taocom52]

1- فایل رو پیوست کردم در این فایل فرمولی را نوشتم که شبیه آن را یکی از دوستان در همین سایت استفاده کرده و هرگاه شرطی که با if نوشته است برقرار بود ماکرو اول و در غیر این صورت ماکرو دوم اجرا می شدند ولی شرطی که بنده نوشتم و خیل ی هم شبیه آن است با عث اجرای ماکرو ها نمیشود ، نمیدانم مشکل کجاست البته وقتی ماکرو ها را از run اجرا میکنم اجرا میشوند ولی با برقراری شرط نه. هم رمز ورود و هم رمز قفل شیت 123

2 - مشکل دوم اینکه روی شیت رمز کذاششتم تا فرمولها دیده نشوند و سلولها دستکاری نشوند ولی چون این شیت باید بروز بشود و از اینترنت از سایت بورس اطلاعاتی را بروز کند ماکرویی را نوشتم که رمز را باز و اطلاعات را بروز کرده و دوباره سلولها و فرمولها را ببندد ، اما دفعه اول که میخواهد بروزرسانی کند رمز میخواهد (که نباید کاربر این رمز را بداند) و بعد از آنکه رمز دادم تا بروز رسانی کند آخر سر که میبندد بدون رمز قفل میکند. متشکرم که نوشته طولانی بنده را تحمل میفرمایید.

[Ali Parsaei]

شما بايد به کدنويسي آشنا باشيد وگرنه هميشه با رونوشت برداري از کدهاي فايلهاي ديگر نمي شود به نتيجه رسيد،
راستش زياد از فايلتان سر در نياوردم! ظاهرا" خيلي کدهايش زيادي بود!
راجع به سوال دومتان بايد عرض کنم: در کدي که براي بازکردن و بستن شيت قفل شده مي نويسيد بايد رمز را هم آخرش بنويسيد، مگر اينکه شيت بدون رمز قفل شده باشد و دوباره هم در آخر بخواهيد بدون رمز قفل شود.
پس ظاهرا" اگر اشتباه نکنم ماکرو هفت را بايد به اين صورت اصلاح کنيد:

ActiveSheet.Unprotect "123"   
 ActiveWorkbook.RefreshAll   
 ActiveSheet.Protect "123", DrawingObjects:=True, Contents:=True, Scenarios:=True 

[Ali Parsaei]

در مورد سوال اول تا اونجا که من مي دونم با فرمول نويسي در شيت اين کار انجام نمي شه!!!!! من نمي دان تو سايت چي ديديد!؟ آدرسش را داريد؟
بايد يک کد تو رويداد Change شيت نوشت! که البته سرعت فايل را کند مي کنه! يا اينکه يک دگمه بگذاريد و هر موقع خواستيد با کليک دگمه دستور اجرا و شرط بررسي شود.

[taocom52]

متشکرم خیلی مفید بود راستی آگه بخوان کد نویسی را از مبتدی و کار آمد شروع کنم از کجا شروع کنم و در سایت زیبایتان کجا مراجعه کنم مخصوصا فیلم آموزشی اگر هست و گام به گام جلو میره را معرفی نمایید متشکرم.