نمایش نتایج: از شماره 1 تا 7 , از مجموع 7

موضوع: نیاز به راهنمایی

  1. #1


    آخرین بازدید
    2013/03/14
    تاریخ عضویت
    June 2012
    نوشته ها
    50
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

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

    [size=medium]با سلام

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

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

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


    سپاس

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

  2.  

  3. #2


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,374
    امتیاز
    12614
    سپاس
    4,596
    سپاس شده
    11,990 در 3,203 پست
    سطح اکسل
    70.00 %

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

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

  4. #3


    آخرین بازدید
    2013/03/14
    تاریخ عضویت
    June 2012
    نوشته ها
    50
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

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

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

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

  5. #4
    komeilex
    مهمان

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

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

  6. #5


    آخرین بازدید
    2020/05/21
    تاریخ عضویت
    October 2012
    نوشته ها
    60
    امتیاز
    13
    سپاس
    118
    سپاس شده
    33 در 15 پست
    سطح اکسل
    75.00 %

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


    [hr]
    نقل قول نوشته اصلی توسط amirgolshan
    [size=medium]با سلام

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

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

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


    سپاس

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

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




  7. #6


    آخرین بازدید
    2013/03/14
    تاریخ عضویت
    June 2012
    نوشته ها
    50
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

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

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

  8. #7


    آخرین بازدید
    2021/12/05
    تاریخ عضویت
    February 2010
    محل سکونت
    بوشهر
    نوشته ها
    940
    امتیاز
    718
    سپاس
    29
    سپاس شده
    863 در 365 پست
    تعیین سطح نشده است

    shamsololama به Yahoo ارسال پیام

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

    نقل قول نوشته اصلی توسط amirgolshan
    [size=medium]با سلام

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

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

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


    سپاس

    [/size]


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

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

    همانطور که دوستان فرمودند با نوشتن کدها 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)


اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است