اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

 

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


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

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

تم تعديل بواسطه المصباحي
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information