مشکل در کار نکردن فرم لاگین

Collapse
این تاپیک قفل است.
X
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • vahid@j

    • 2020/04/25
    • 12

    [حل شده] مشکل در کار نکردن فرم لاگین

    سلام به همه دوستان
    من چند روز پیش داخل انجمن سوالات vba مشکلم رو مطرح کردم ولی کسی جواب نداد لطفا اگر دوستان میتونن کمک کنند جواب بدهند - ممنون

    من یک فایل اکسل حاوی تعدادی شیت دارم که برای ورود یک فرم لاگین درست کردم
    زمانی که نام کاربری یا رمز عبور اشتباه زده میشه قاعدتا وارد فایل نمیشه ولی اگر همون موقع سریع فایل لاگین رو ببندم و دوبار روی فایل کلیک کنم فایل باز میشه - یعنی لاگین رو دور میزنه و اصلا اجراش نمیکنه
    کد من برای اجرای لاگین اینه- لطفا راهنماییم کنید که چطور مشخص کنم که هیچ جوره فایل بدون ورود رمز باز نشه
    تشکر
    کد:
    Private Sub Workbook_Open()
    Application.Visible = False
    LOGIN.Show
    End Sub
  • iranweld

    • 2015/03/29
    • 3341

    #2
    با سلام

    این فایل رو تست کنید

    این موضوع رو هم مد نظر داشته باشید که اگر تنظیمات ماکرو در اکسل فعال نباشد فرم لاگین عمل نخواهد کرد.
    فایل های پیوست شده
    Last edited by iranweld; 2020/05/06, 12:28.

    کامنت

    • vahid@j

      • 2020/04/25
      • 12

      #3
      سلام - ممنون از جوابتون
      الان همین فایلی که خودتون زحمت کشیدید رو ببینید
      اول فراخوان بفرمایید - ازتون رمز و پسوورد میخاد
      هیچ چیزی تایپ نکنید و فرم لاگین رو ببندید
      بلافاصله دوباره فایل رو باز کنید میبینید فرم لاگین دیگه باز نمیشه و مستقیم میره برای اصل فایل ها و شیت ها

      کامنت

      • iranweld

        • 2015/03/29
        • 3341

        #4
        نوشته اصلی توسط vahid@j
        سلام - ممنون از جوابتون
        الان همین فایلی که خودتون زحمت کشیدید رو ببینید
        اول فراخوان بفرمایید - ازتون رمز و پسوورد میخاد
        هیچ چیزی تایپ نکنید و فرم لاگین رو ببندید
        بلافاصله دوباره فایل رو باز کنید میبینید فرم لاگین دیگه باز نمیشه و مستقیم میره برای اصل فایل ها و شیت ها
        این فایل را بررسی بفرمایید
        فایل های پیوست شده

        کامنت

        • vahid@j

          • 2020/04/25
          • 12

          #5
          عالی - خیلی ممنون

          کامنت

          چند لحظه..