نیاز به راهنمایی

[amirgolshan]

با سلام

کدی نیاز دارم ک در صورت بروز هر خطائی در " VBA " ، یک پیغام دریافت کنم و و [b]کاربر را به محیط " VBA " ارجاع ندهد.

کاربر تسلط به " VBA" ندارد و در صورت ورود به محیط "VBA  " دچار مشکل میشود.

فایل ما شامل تعداد زیادی فرم ، کمبو باکس ،... میباشد.


سپاس

[~M*E*H*D*I~]

RE: نیاز به راهنمایی

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

[amirgolshan]

RE: نیاز به راهنمایی

بسيار ممنونم.
روش پسورد تعريف كردن چيست?
ايا نمي شود كدي نوشت در *ورك بوك* ك به محض بوجود امدن خطا ب كاربر اعلام اخطار كند و فايل را ببندد و از او بخواهد ك دوباره فايل را اجر كتد?

مجددا از راهنمايي شما سپاسگزارم.

[komeilex]

RE: نیاز به راهنمایی

[align=justify]با اجازه آقای وطن پرست. شما برای اینکه واسه پروژه وی بیتون پسورد بذارین باید اونو انتخاب کنین و از تب tools گزینه VBAprojectproperties رو انتخاب کنین و برین تو تب protection. مابقی راه مشخص هستش.[/align]

[m.estreji]

RE: نیاز به راهنمایی


[hr]

با سلام

کدی نیاز دارم ک در صورت بروز هر خطائی در " VBA " ، یک پیغام دریافت کنم و و [b]کاربر را به محیط " VBA " ارجاع ندهد.

کاربر تسلط به " VBA" ندارد و در صورت ورود به محیط "VBA  " دچار مشکل میشود.

فایل ما شامل تعداد زیادی فرم ، کمبو باکس ،... میباشد.


سپاس

دوست عزیز برای اینکه هنگام بروز خطا وارد محیط وی بی نشه از تکه کد زیر تو کدنویسی هاتون استفاده کنید

On Error GoTo Error1
کد هاي خودتون رو در اينجا بنويسين
Error1:
MsgBox "مشکل در نرم افزار"

[amirgolshan]

RE: نیاز به راهنمایی

از همه دوستان عزيز واقعا ممنونم.
مرسي از وقتي ك گذاشتيد

[shamsololama]

RE: نیاز به راهنمایی

با سلام

کدی نیاز دارم ک در صورت بروز هر خطائی در " VBA " ، یک پیغام دریافت کنم و و [b]کاربر را به محیط " VBA " ارجاع ندهد.

کاربر تسلط به " VBA" ندارد و در صورت ورود به محیط "VBA  " دچار مشکل میشود.

فایل ما شامل تعداد زیادی فرم ، کمبو باکس ،... میباشد.


سپاس

با درود فراوان

با تشکر از دوستان خوبم که جواب های مفیدی دادند من نیز به نوبه خودم نکته ای را خدمتون عرض میکنم انشالله که مفید باشد

همانطور که دوستان فرمودند با نوشتن کدها On Error Resume next می توانید تمام خطا ها رو نادیده بگیری ولی در صورتی که بخواهیم دلیل خطا را تا حدودی متوجه شویم میتوانیم از کد زیر استفاده کنیم

در این کد اول کد هامون نوشتیم که اگر به اروری بر خورد بره به نقطه d1
و در آنجا نوشتیم Error(Err.Number که در مسیج باکس به ما نشان دهد
در این کد Err.Number شماره خطا را بر میکرداند
و با قرارد دادن آن در Error(Err.Number پیغام خطا را به ما نشان خواهد داد
و قبل از نقطه d1 هم اگزیت ساب قرار داده ایم که در صورتی که خطایی وجود نداشت ان کد و مسیج باکس اجرا نشود.
نکته: ولی بهتر آن است که علاوه بر نوشتن این کد محیط وی بی نیز قفل کنیم

On Error GoTo d1:
textbox1.Text = 1 / 0

Exit Sub
d1:
MsgBox Error(Err.Number)