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

[المصباحي]

السلام عليكم ورحمة الله وبركاته
مرحبا الأساتذة الكرام واعضاء منتدى اوفسينا الذين تتعلمت منه الكثير
لدي استفسار جعله الله فى ميزان حسناتك بخصوص كود اخي  الاستاذ الفاضل العيدروس جزاه الله الف خير
وهو الأتي

 

منع التعديل فى اى خلية بها بيانات

Public Sub Ali_Prodc()
Dim Sh As Worksheet
Dim Rng As Range
Ch_P
On Error Resume Next
With Application
  .ScreenUpdating = False
  .Calculation = xlCalculationManual
  .EnableEvents = False
For Each Sh In ThisWorkbook.Worksheets
If Sh.ProtectContents = True Then Sh.Unprotect Password:="123": Sh.Cells.Locked = False
If Not Sh.Cells.HasFormula Then Sh.Cells.Locked = False Else Sh.Cells.FormulaHidden = True
With Sh.Cells
  .SpecialCells(2).Locked = True
  .SpecialCells(-4123).Locked = True
End With
If Sh.Cells(1, "IV") = "True" Then Sh.Protect Password:="123"
Next
  .EnableEvents = True
  .Calculation = xlCalculationAutomatic
  .ScreenUpdating = True
End With
End Sub
Private Sub Ch_P()
Dim Sn As Worksheet
For Each Sn In ThisWorkbook.Worksheets
If Sn.ProtectContents = True Then Sn.Unprotect Password:="123": Sn.Cells(1, "IV") = "True": Sn.Protect Password:="123"
Next
End Sub

 

الكود شغال مية بالمية بس
المشكلة هي عند عمل فورم وبه تكست بوكس لإدخال البيانات تظهر رسالة خطاء لان الخلية مغلقة
اريد معرفة كيف تفعيل الكود في التكست بوكس
وبارك الله فيكم وجزاكم الله خيرا كثيرا
وانا فى انتظار  رد

 

test.rar

[المصباحي]

ارجو الرد

[يوسف السيد]

السلام عليكم :
يمكنك ان تضع فى بداية زر الترحيل بالفورم كود لفك حماية الورقة
وفى نهاية الكود ضع كود يحمى الورقة مرة اخرى

[المصباحي]

السلام عليكم :

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

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

مشكور اخي يوسف على المعلومة بس ولو تكرمت علي بمثال بسيط وجزاك الله كل خير

[يوسف السيد]

بعد تنزيل المرفقات يبدو ان المشكلة فى اكواد الفورم 
وجارى العمل عليها ان شاء الله 

[المصباحي]

للرفع

[يوسف السيد]

السلام عليكم :

اعتذر عن التاخير نظراً لضيق الوقت

ان شاء الله تجد بالمرفقات طلبك وزيادة
تنوية: الفورم المستخدم هو للاستاذ : عبدالله باقشير

test - 2.rar

[المصباحي]

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

 اخي الفاضل  يوسف السيد

بارك الله فيك وجعل ما تقدمه في موازين حسناتك

وأحييك على المرفق وانا استفدت منه 

بس انا طلبي كان حماية الخلية التي بيها بيانات حتي لايتم تعديل البيانات يكون ادخال فقط

ومشكور من جديد وجزاك الله كل خير

تم تعديل يونيو 17, 2014 بواسطه المصباحي