مساعدة في فورم كلمة المرور

[محمد كويك]

السلام عليكم اخواني

ارجو ان تكونو في تمام الصحة والعافية

اريد المساعده منكم في الكود التالي 

 

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 بواسطه محمد كويك

[محمد كويك]

هل من مساعدة اخواني

[الصـقر]

اخى الكريم

ضع هذا الكود فى الفورم

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

تقبل تحياتى

[محمد كويك]

مشكور اخي الكريم وبارك الله فيك

[الصـقر]

اخى الكريم

انظر المشاركه السابقه ستجد 

تم اضافه هذا السطر قبل نهاية الكود

ThisWorkbook.Close Not CBool(ThisWorkbook.Saved)

وذلك لمنع سؤال المستخدم هل تريد الحفظ ام لا 

يرجى تعديل افضل اجابه 

تقبل تحياتى