طلعت محمد حسن قام بنشر أكتوبر 21, 2016 مشاركة قام بنشر أكتوبر 21, 2016 السلام عليكم ورحمة الله وبركاتة هذا الموضوع يتناول عدم القدرة على الكتابة على ورقة العمل الا من خلال الفورم 1-يكتب الكود المتعلق بالترحيل بشكل عادي 2-في بداية كود الترحيل يكتب هذا السطر( ActiveSheet.Unprotect(123 3- الرقم 123 هو باسورد الحماية على ورقة العمل طبعا تستطيع كتابة اي باسورد تريدة 4- وفي نهاية كود الترحيل يكتب هذا الكود( ActiveSheet.Protect(123 book2.rar 1 رابط هذا التعليق شارك More sharing options...
Guest محمد ابو صهيب قام بنشر أكتوبر 21, 2016 مشاركة قام بنشر أكتوبر 21, 2016 Sub Data() Dim TotalRows As Long Dim Sh As Worksheet ' عذرا لقد تفقدت الكود فوجدت انك نسيت كلمة sheets فستبدلها عوضا منك Set Sh = sheets("ورقة1") If TextBox1.Text = "" Then MsgBox ("الرجاء كتابة الاسم") Exit Sub ElseIf TextBox2.Text = "" Then MsgBox ("الرجاء كتابة رقم الهاتف") Exit Sub ElseIf TextBox3.Text = "" Then MsgBox ("الرجاء كتابة العنوان") Exit Sub End If ActiveSheet.Unprotect (123) With Sh TotalRows = .Cells(Rows.Count, "A").End(xlUp).Row If TotalRows < 3 Then TotalRows = 3 Else TotalRows = TotalRows End If .Cells(TotalRows + 1, 1) = Me.TextBox1.Value .Cells(TotalRows + 1, 2) = Me.TextBox2.Value .Cells(TotalRows + 1, 3) = Me.TextBox3.Value End With TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" ActiveSheet.Protect (123) End Sub رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أكتوبر 21, 2016 مشاركة قام بنشر أكتوبر 21, 2016 الموضوع مشاركة أم طلب أخي أبو صهيب؟ رابط هذا التعليق شارك More sharing options...
عمار محمد حسن قام بنشر أكتوبر 22, 2016 مشاركة قام بنشر أكتوبر 22, 2016 يسلم ايدك استاذ طلعت محمد معلومة رائعة ومفيدة . رابط هذا التعليق شارك More sharing options...
طلعت محمد حسن قام بنشر أكتوبر 22, 2016 الكاتب مشاركة قام بنشر أكتوبر 22, 2016 اشكرك اخي عمار على مرورك الطيب رابط هذا التعليق شارك More sharing options...
دجى قام بنشر أكتوبر 22, 2016 مشاركة قام بنشر أكتوبر 22, 2016 أستاذ أبغا كود ترحيل بيانات من فضلك رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أكتوبر 22, 2016 مشاركة قام بنشر أكتوبر 22, 2016 الان, دجى said: أستاذ أبغا كود ترحيل بيانات من فضلك لا ينبغي الدخول على موضوعات الغير وإدراج طلبات بها ..قومي بطرح موضوع جديد لطلبك وإن شاء الله تجدين الاستجابة من إخوانك بالمنتدى رابط هذا التعليق شارك More sharing options...
طلعت محمد حسن قام بنشر أكتوبر 22, 2016 الكاتب مشاركة قام بنشر أكتوبر 22, 2016 2 ساعات مضت, دجى said: أستاذ أبغا كود ترحيل بيانات من فضلك يبدوا ان المقصود بكلمة أبغا اي اريد وهي كلمة شائعة في بعض الدول على كل حال اختي كما قال لكي الاستاذ ياسر خليل حفظة الله اطرحي طلبك في موضوع مستقل وسوف تجدي المساعدة والعون من كل الاعضاء الكرام . رابط هذا التعليق شارك More sharing options...
دجى قام بنشر أكتوبر 22, 2016 مشاركة قام بنشر أكتوبر 22, 2016 شكرا لك ....ولإهتمامكم أبغا = أريد لغة منطقة مكة المكرمة العامية رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.