كيفية عدم الترحيل على ورقة العمل الا من خلال الفورم

[طلعت محمد حسن]

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

هذا الموضوع يتناول عدم القدرة على الكتابة على ورقة العمل الا من خلال الفورم

1-يكتب الكود المتعلق بالترحيل بشكل عادي 

2-في بداية كود الترحيل يكتب هذا السطر( ActiveSheet.Unprotect(123

3- الرقم 123 هو باسورد الحماية على ورقة العمل طبعا تستطيع كتابة اي باسورد تريدة

4- وفي نهاية كود الترحيل يكتب هذا الكود( ActiveSheet.Protect(123

 

book2.rar

[Guest محمد ابو صهيب]

 

 
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

[ياسر خليل أبو البراء]

الموضوع مشاركة أم طلب أخي أبو صهيب؟

[عمار محمد حسن]

يسلم ايدك استاذ طلعت محمد معلومة رائعة ومفيدة .

[طلعت محمد حسن]

اشكرك اخي عمار على مرورك الطيب

[دجى]

أستاذ أبغا كود ترحيل بيانات من فضلك 

 

[ياسر خليل أبو البراء]

الان, دجى said:

أستاذ أبغا كود ترحيل بيانات من فضلك 

 

لا ينبغي الدخول على موضوعات الغير وإدراج طلبات بها ..قومي بطرح موضوع جديد لطلبك وإن شاء الله تجدين الاستجابة من إخوانك بالمنتدى

[طلعت محمد حسن]

2 ساعات مضت, دجى said:

أستاذ أبغا كود ترحيل بيانات من فضلك 

 

يبدوا ان المقصود بكلمة أبغا اي اريد وهي كلمة شائعة في بعض الدول على كل حال اختي كما قال لكي الاستاذ ياسر خليل حفظة الله اطرحي طلبك في موضوع مستقل وسوف تجدي المساعدة والعون من كل الاعضاء الكرام .

[دجى]

شكرا لك ....ولإهتمامكم 

 

أبغا = أريد  لغة منطقة مكة المكرمة  العامية