زر في الشيت

[ابو .. عبدالرحمن]

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

اريد ان اعمل زر يكون داخل الشيت بحيث اذا بغيت اوقف البرنامج يظهر لي user form1

مع اخفاء الشيت ولا يمكن الدخول للشيت الا بعد ادخال اسم المستخدم وكلمة المرور

اسم المستخدم m

كلمة المرور 1234

المحاسبة والإدارة المالية.xlsb

[أبومروان]

وعليكم السلام ورحمه الله وبركاته 

دا كود ل اسم المستخدم وكلمه المرور 

Private Sub CommandButton1_Click()
    If TextBox1.Text = "username" And TextBox2.Text = "password" Then
        MsgBox "Welcome " & TextBox1.Text & "!"
    Else
        MsgBox "Invalid username or password, please try again."
    End If
End Sub

 

اتفضل استاذ @ابو .. عبدالرحمن المحاسبة والإدارة المالية.xlsbلعله المطلوب

 

وهذ  بكود اخر عند ترك الجهاز ساكن يقوم بعرض  ,userfom1

المحاسبة والإدارة المالية.xlsb

وهذ الاكواد خاصه بالاستاذ @عبدالله بشير عبدالله له منا كل الاحترام والتقدير

 

[ابو .. عبدالرحمن]

اخواني الكرام جزاكم الله خير ولكن المطلوب يمكن اني ما وضحته لكم بالشكل الصحيح

ولكن الان برفق لكم الملف نفسه والطلب في الصفحة الرئيسية وشكرا

اريد هذا يكون زر ويكون له مدلول بشرطين :

01 في حالة سكون البرنامج دقيقة يفح شاشة الدخول تلقائي ولكن مع مسح اسم المستخدم وكلمة المرور .

02 في حالة الضغط على هذا الزر يفخ شاشة الدخول مع مسح اسم المستخدم وكلمة المرور

https://www.raed.net/file?id=205646

[ابو .. عبدالرحمن]

السلام عليكم ورحمة الله وبركاته

مازلت بالا نتظار 

[أبومروان]

وعليكم السلام ورحمه الله

دا كود سكون الشاشه لو يكن 10 ثواني وبعدها يظهر فورم1 واخفاء الشيت

 

https://www.raed.net/file?id=210288

 

im DownTime As Date

Sub SetTimer()
    DownTime = Now + TimeValue("00:00:10")
    Application.OnTime EarliestTime:=DownTime, _
      Procedure:="ShutDown", Schedule:=True
End Sub
Sub StopTimer()
    On Error Resume Next
    Application.OnTime EarliestTime:=DownTime, _
      Procedure:="ShutDown", Schedule:=False
 End Sub
Sub ShutDown()
    Application.DisplayAlerts = False
'    MsgBox "انتهت جلسة العمل يجب التفعيل مرة اخرى  " & " " & UserName, , " منظومة النتائج الاساسي والثانوي جميع السنوات الدراسية"""
Application.Visible = False

    UserForm1.Show

End Sub

[ابو .. عبدالرحمن]

23 ساعات مضت, كريم نظيم said:

مشكور اخي كريم ولكن يظهر الغلط في هذه الجملة 
UserForm1.Show
نهاية السطر الاخير مدري ويش المشكلة
وبعدين مايفتح بعد 10 ثواني 
وكذلك اذا ضغط زر الشاشة لفتح فيرم اسم المستخدم يبقي اسم المستخدم وكلمة المرور ظاهرة

يعني اي واحد يجي بعدي دخل البرنامج من نفس الفيرم لان كلمة اسم المستخدم وكلمة المرور ظاهرة

 

 

تم تعديل أبريل 30, 2023 بواسطه ابو .. عبدالرحمن

[أبومروان]

استاذ @ابو .. عبدالرحمن

الكود يعمل عندي بكفاءه كما في الصوره

 

[ابو .. عبدالرحمن]

الله يعطيك العافية

هذه صورة بعد ما فتحت البرنامج ضغط على الزر الخاص باستراحة القهوة الذي خصصناه لشاشة الفيرم الاول كشاشة توقف وامان في حالة الخروج من البرنامج لوقت قصير ثم العودة له عن طريق الفيرم الاول ولكن اسم المستخدم وكلمة المرور لا تنمسح من المربعات الخاصة بها

وكذلك خاصية زر الاغلاق من الاكس مازالت تعمل 

يعني بامكان الشخص اغلاق البرنامج من الاكس ثم فتحه يدخل مباشرة على الشيتات ويستطيع ان يغير او يضيف ما يريد

 

[أبومروان]

خاصية زر الاغلاق من الاكس الصق هذه السطر في حدث الفورم

 

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

Cancel = True

End Sub

 واما لو ظهور اسم المستخدم وكلمه المرور اضف الكود التالي  كما في الصوره اعذرني الملف كبير الحجم لم استطيع ارفاقه

TextBox1 = " "
TextBox2 = " "

[ابو .. عبدالرحمن]

تمام بيض الله وجهك بجرب وان شاء الله تضبط معي

 

واعذرني على الاطالة

[أبومروان]

جرب هذا المرفق بعد التعديل  لعله المطلوب

https://www.raed.net/file?id=210713

[ابو .. عبدالرحمن]

ممتاز حبيبي الله يعطيك العافية هذا المطلوب بارك الله فيك

 

بقي حاجة واحدة فقط وهي تفعيل 10 ثواني او 30 ثانية في حالة السكون . وتظهر شاشة الفيرم تلقائي

اذا كان ذلك ممكن 

[أبومروان]

11 دقائق مضت, ابو .. عبدالرحمن said:

ممتاز حبيبي الله يعطيك العافية هذا المطلوب بارك الله فيك

 

بقي حاجة واحدة فقط وهي تفعيل 10 ثواني او 30 ثانية في حالة السكون . وتظهر شاشة الفيرم تلقائي

اذا كان ذلك ممكن 

عدل في كود الموقت كما تريد  نجد في هذا الكود 10 ثواني اترك الجهاز 10 ثواني علي شيت الاكسل  بدون الضغط ع اي شي سوف يعمل الكود تلقائي ان شاء الله

  DownTime = Now + TimeValue("00:00:10")

 

[ابو .. عبدالرحمن]

مشكور الله يعطيك العافية بذلت جهد كبير

رغم انه لم يتم تفعيل الوقت الا اذا كنت على نفس الفيرم واضغط على زر تشغيل

 

ولكن اشكرك على تعاونك معي وجزاك الله خير

[أبومروان]

37 دقائق مضت, ابو .. عبدالرحمن said:

مشكور الله يعطيك العافية بذلت جهد كبير

رغم انه لم يتم تفعيل الوقت الا اذا كنت على نفس الفيرم واضغط على زر تشغيل

 

ولكن اشكرك على تعاونك معي وجزاك الله خير

الـحَمْدُ للـهِ الَّذِي بِنِعْمَتهِ تَتِمُّ الصَّالِـحَاتُ .

مشكور لكلماتك الطيبه .كلنا بنساعد بعض .

لم اعلم سبب  الكود لم يعمل  تلقائي لدليك انتظر ربما نجد من يساعدنا ويعلمنا لنصل الي حل افضل من احد عملاقه المنتدي الكبير  

تم تعديل أبريل 30, 2023 بواسطه كريم نظيم

[ابو .. عبدالرحمن]

اتوقع بان عدم ظهور الفيرم بعد 10 ثواني ان معادلة الساعة التي يستمر نبضها خلال الوقت هي التي تجعل الشيت او البرنامج في حالة مستمر غير ساكنه

لذلك اتوقع انها السبب والله اعلم