كيف أقوم بتغيير كلمة المستخدم وكلمة السر

[Hussein Taso]

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

 

private Sub CommandButton1_Click()
Sheets("data").Cells(1, 2) = TextBox1.Value
Sheets("data").Cells(2, 2) = TextBox2.Value
If Sheets("data").Cells(1, 2) = Sheets("data").Cells(1, 3) And Sheets("data").Cells(2, 2) = Sheets("data").Cells(2, 3) Then
MsgBox "سلام الله عليكم   ", vbInformation + vbMsgBoxRight, "بسم الله الرحمن الرحيم .... مرحبا بكم"

End
Else
        TextBox1.Value = ""
        TextBox2.Value = ""
        TextBox1.SetFocus
MsgBox "كلمة المرور أو إسم المستخدم غير صحيح. عفوا. حاول", vbCritical + vbMsgBoxRight, "عفوا....إدخال خاطئ"

End If

End Sub

 

[Hussein Taso]

أبشر 

تقرير و بحث وتعديل وعدد نتائج البحث HaNcOcK.xls

[Hussein Taso]

يبدو انه لا احد في المنتدي او انه مهجور 

[كمال على طارق]

انتبه من فضلك Hussein Taso وعليك دائماً وأبداً التماس العذر لإخواننا وأساتذتنا فانت لا تعلم مدى ارتباطهم وانشغالهم بأعمالهم .. خصوصاً ان العمل والتواجد والنشاط والرد على المشاكل بالمنتدى انما لوجه الله فلا أجر له 

فكان لابد عليك قراءة قواعد وقوانين المشاركة بالمنتدى جيداً .فمنها عدم الإلحاح فى طلب المساعدة , وخصوصاً ان طلبك هذا مخالف لقواعد أى منتدى فهذه حقوق ملكية لصاحبها فقد , لما قد بذل من جهود للخروج بهذا العمل فعليك بالإتصال مباشرة بصاحب هذا العمل وهو الوحيد الذى له الحرية فى الإفصاح عن هذا لك!!!!! .. وشكراً جزيلاً

[حسونة حسين]

بارك الله فيك اخى كمال

اخى السائل هذا

رابط

للموضوع الاساسي للمرفق الذي في سؤالك يمكنك الاستفاده منه

[Hussein Taso]

يبدو انني قد اثقلت عليكم بالسؤال ولكن اعدكم المرة القادمة انني لن اسال ولكنني سوف اجتهد من عندي بالرغم من انني لا استفيد من هده البرامج في عملي كونني متقاعد وعمري كبير الا انه هواية عندي البرمجة فقط