محمد كويك قام بنشر مايو 9, 2015 مشاركة قام بنشر مايو 9, 2015 (معدل) السلام عليكم اخواني ارجو ان تكونو في تمام الصحة والعافية اريد المساعده منكم في الكود التالي Private Sub CommandButton1_Click() If TextBox1.Text = "MohammadQ" And TextBox2.Text = "1234567yousef" Then Range("S1").Value = TextBox1.Text End Else MsgBox ("ßáãÉ ÇáÓÑ Çæ ÇÓã ÇáãÓÊÎÏã ÛíÑ ÕÍíÍ") End If End Sub عند فتح الاكسل يضهر فورم اسم المستخدم وكلمة المرور ولكن عندما اقوم بالضعط على مفتاحي Alt+F4 يقوم بتجاوز الفورم ويفتح الملف كيف امنع الملف ان يفتح بهذه الطريقة ولكم جزيل الشكر وجزاكم الله خيرا وزادكم علما والسلام عليكم تم تعديل مايو 9, 2015 بواسطه محمد كويك رابط هذا التعليق شارك More sharing options...
محمد كويك قام بنشر مايو 9, 2015 الكاتب مشاركة قام بنشر مايو 9, 2015 هل من مساعدة اخواني رابط هذا التعليق شارك More sharing options...
أفضل إجابة الصـقر قام بنشر مايو 9, 2015 أفضل إجابة مشاركة قام بنشر مايو 9, 2015 اخى الكريم ضع هذا الكود فى الفورم Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = vbFormControlMenu Then Cancel = True Application.Quit ThisWorkbook.Close Not CBool(ThisWorkbook.Saved) End Sub تقبل تحياتى رابط هذا التعليق شارك More sharing options...
محمد كويك قام بنشر مايو 9, 2015 الكاتب مشاركة قام بنشر مايو 9, 2015 مشكور اخي الكريم وبارك الله فيك 1 رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر مايو 9, 2015 مشاركة قام بنشر مايو 9, 2015 اخى الكريم انظر المشاركه السابقه ستجد تم اضافه هذا السطر قبل نهاية الكود ThisWorkbook.Close Not CBool(ThisWorkbook.Saved) وذلك لمنع سؤال المستخدم هل تريد الحفظ ام لا يرجى تعديل افضل اجابه تقبل تحياتى رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان