طلعت محمد حسن قام بنشر أكتوبر 21, 2016 قام بنشر أكتوبر 21, 2016 السلام عليكم ورحمة الله وبركاتة هذا الموضوع يتناول عدم القدرة على الكتابة على ورقة العمل الا من خلال الفورم 1-يكتب الكود المتعلق بالترحيل بشكل عادي 2-في بداية كود الترحيل يكتب هذا السطر( ActiveSheet.Unprotect(123 3- الرقم 123 هو باسورد الحماية على ورقة العمل طبعا تستطيع كتابة اي باسورد تريدة 4- وفي نهاية كود الترحيل يكتب هذا الكود( ActiveSheet.Protect(123 book2.rar 1
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
ياسر خليل أبو البراء قام بنشر أكتوبر 21, 2016 قام بنشر أكتوبر 21, 2016 الموضوع مشاركة أم طلب أخي أبو صهيب؟
عمار محمد حسن قام بنشر أكتوبر 22, 2016 قام بنشر أكتوبر 22, 2016 يسلم ايدك استاذ طلعت محمد معلومة رائعة ومفيدة .
طلعت محمد حسن قام بنشر أكتوبر 22, 2016 الكاتب قام بنشر أكتوبر 22, 2016 اشكرك اخي عمار على مرورك الطيب
ياسر خليل أبو البراء قام بنشر أكتوبر 22, 2016 قام بنشر أكتوبر 22, 2016 في 22/10/2016 at 12:42, دجى said: أستاذ أبغا كود ترحيل بيانات من فضلك Expand لا ينبغي الدخول على موضوعات الغير وإدراج طلبات بها ..قومي بطرح موضوع جديد لطلبك وإن شاء الله تجدين الاستجابة من إخوانك بالمنتدى
طلعت محمد حسن قام بنشر أكتوبر 22, 2016 الكاتب قام بنشر أكتوبر 22, 2016 في 22/10/2016 at 12:42, دجى said: أستاذ أبغا كود ترحيل بيانات من فضلك Expand يبدوا ان المقصود بكلمة أبغا اي اريد وهي كلمة شائعة في بعض الدول على كل حال اختي كما قال لكي الاستاذ ياسر خليل حفظة الله اطرحي طلبك في موضوع مستقل وسوف تجدي المساعدة والعون من كل الاعضاء الكرام .
دجى قام بنشر أكتوبر 22, 2016 قام بنشر أكتوبر 22, 2016 شكرا لك ....ولإهتمامكم أبغا = أريد لغة منطقة مكة المكرمة العامية
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.