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

[أبوبسمله]

في ٣٠‏/١‏/٢٠١٣ at 19:55, الـعيدروس said:

 

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

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

شكرا لكم اخوانى الافاضل 

[عبدالعزيز محمد]

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

أود كود يقوم بمنع التعديل على عمود مثلا F من التعديل على البيانات التي تم إدخالها سابقا -بمجرد إدخالها- إلا بكلمة مرور حتى لا يتم العبت بمحتوى العمود المحدد 

وهذه البيانات قد تكون أرقام أو نصوص أو تاريخ .

تم تعديل مايو 26, 2016 بواسطه عبدالعزيز محمد-محب البرمجة

[هاشم بركات]

هذا الكود بالفعل غاية في الروعة والاروع هما صاحب الفكرة وصاحب التنفيذ

فالشكر كل الشكر لهما ولكل من ساهم في هذا المنتدى ولو بفكرة بسيطة

وعلى فكرة هذا الكود ينفع في عمل برامج الحضور والانصراف للموظفين

ولكن كيف يمكن تطبيقة على كل اوراق العمل بنفس الشيت

ولكم جزيل الشكر

 

[ابو عبدالبارى]

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Ali_Prodc
End Sub

الأخ الكريمهاشم بركات

يمكنك وضع اسم الماكرو  كما هو مبين

[EmadYA]

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

عند وضع نص داخل الخلية مثلا aa ويتم حفظ الملف سيظهر خطا وفي نفس الوقت تكون جميع الخلايا متاحة للتعديل وهذا يجعل بامكان الشخص يعدل على البيانات السابقة

 

وشكرا لكم مقدما

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

أخي الكريم عماد

أهلاً بك في المنتدى ونورت بين إخوانك

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

تقبل تحياتي

[EmadYA]

تفضل في المرفقات

الية عمل الكود هي الاتي

عند ادخال ارقام في الخلايا وعمل حفظ يقوم الكود بفتح حماية الصفحات ومن ثم يحول كل الخلايا التي تحتوي على ارقام ومعادلات إلى خلايا محمية ومن ثم ينهي عملية الحفظ وهكذا في حال تم فتح الملف مرة اخرى لن يستطيع المستخدم التعديل على الخلايا المدخلة سابقاً إلا في حال معرفته بالرقم السري

 

مشكلة الكود كالاتي 

في حال تم كتابة احرف بدل الارقام في اي خلية جديده وتم عمل حفظ سيقوم البرنامج بفتح حماية الصفحات ومن ثم يحول كل الخلايا التي تحتوي على ارقام ومعادلات إلى خلايا محمية ولكن في حال وجد خليه تحتوي على احرف يتوقف البرنامج ولا يقوم بعملية حماية الصفحة من جديد وبذلك يستطيع المستخدم التعديل على الخلايا المدخلة سابقاً

ايضا في حال قام المستخدم بوضع ارقام وظغط حفظ ومباشرة قام بظغط ESC عندها سيكون الماكرو قد قام بفتح الحماية وتوقف الماكرو مما يعني ان المستخدم سيتمكن من التعديل على الخلايا السابقة

cash (1).rar

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

جرب تغير علامة أكبر من في السطر المشار إليه باللون الأصفر بهذه العلامة

<>

أي علامة لا تساوي حيث أنه لا توحد مقارنة بين قيمة خلية والفراغ (أكبر من وأصغر من غير مقبولة) .. ولكن يمكن استخدام علامة لا تساوي

تقبل تحياتي

[EmadYA]

شكرا لك اخي على تجاوبك

غيرت العلامة ولم ييتغير شي 

لدي استفسار اخر هل يمكن تطبيق الماكرو فقط على الخلايا Range("B4:B200") فقط

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

نعم يمكن تطبيق الماكرو على نطاق محدد

بفرض أن النطاق له متغير باسم Rng كما هو موضح بالصورة

ضع السطر بالشكل التالي

Set Rng = Range("B4:B200")

وارفق ملفك للإطلاع عليه لمحاولة مساعدتك في الخطأ الذي يظهر لديك

تقبل تحياتي

[salahmer]

ما شاء الله الله اكبر

موضوع غاية في الاهمية

بارك الله فيكم اخواتي في الله

قرأت جميع الردود واستفدت كثيرا

شكرا لكم جميعا

[Mohamed Ezz]

برجاء المساعدة فى الحل لهذه المشكلة

• أبلغ فريق الموقع عن مخالفة
•  
•  

قام بنشر January 11, 2016

 

السلام عليكم 
أخوتى الأعزاء

بخصوص الكود السابق حاولت تجربته تكرارا ومرارا لكن يظهرلى خطأ فى الكود Rng.Locked = True

كما هو موضح بالصورة ... كيف يمكن التغلب على هذه المشكلة 

ظهرت عندى نفس المشكله بالصوره 

فهل من مساعده من اخواننا الكرام

[m7md gamal]

في ٢٣‏/٢‏/٢٠١٣ at 21:15, إسـلام مـراد said:

ممكن توضح ازاي نفذت الكود دا لانه مش يتنفذ معايا 

جزا الله كل من ساهم فى ذلك خيرا

cash (1).rar

 

[m7md gamal]

في ٢٣‏/٢‏/٢٠١٣ at 21:15, إسـلام مـراد said:

ممكن توضح ازاي نفذت الكود دا لانه مش يتنفذ معايا 

جزا الله كل من ساهم فى ذلك خيرا

cash (1).rar

 

[Hamdi Edlbi-khalf]

الان, m7md gamal said:

ممكن توضح ازاي نفذت الكود دا لانه مش يتنفذ معايا 

جزا الله كل من ساهم فى ذلك خيرا

السلام عليكم

 

1- افتح محرر الفيجوال بيزك بالضغط على Alt + f11

2- اضغط تبويب INSERT

3- اختر من التبويب Modul

4- ضغ الكود فيه

5- افتح  Thisworkbook

من النافذة الجانبية في جوار النافذة البيضاء و ضع فيها كود الاستدعاء

6- غير الخلية التي ترغب بأضافة TRUE فيها

في ١١‏/١‏/٢٠١٦ at 19:38, أحمد الفلاحجى said:

If Sh.Cells(1, "IV") = "True" Then Sh.Protect Password:="123" Next

اكتب بدلاً من IV اسم العمود الذي ترغب و بدلاً من 1 رقم الصف الذي تريد .

[m7md gamal]

في ٢٣‏/٢‏/٢٠١٣ at 21:15, إسـلام مـراد said:

ممكن توضح المشكلة دي بتظهرلي عند حفظ الكود

 

[Hamdi Edlbi-khalf]

في June 9, 2018 at 14:51, m7md gamal said:

 

ادخل مركز التوثيق و اتبع التبويبات التالية مع أن التسميات قد تختلف قليلاً لديك كون الجهاز لدي باللغة الإنكليزية و هذه ترجمة تقريبية لأسماء التبويبات . 

و قم بالخطوات التالية :

-إعدادات مركز التوثيق

-الخصوصية 

- أزل اختيار إزالة المعلومات الشخصية عند الحفظ .

 

[aaltalb25]

جزاكم الله خيرا

[anr]

On 1/29/2013 at 8:58 PM, اسلام سيد said:

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

 

من الممكن ان تقوم بإخفاء معادلات الشيت الذى تقوم بتصميمه ، كذالك تقوم بعمل حمايه على المعادلات وإليك التوضيح

 

1-حدد بالماوس(selection) على ما تريد اخفائه وعمل حمايه له مثلا العمود A4:D4 ثم انقر بيمين الماوس واختار formatcells ثم protecttion ثم Hidden ثم OK

 

2-اختر من القائمه Review الاختيار Protectsheet ثم اكتب رقم سرى ثم OK ثم اعد كتابه الرقم السرى مره اخرى (لا يشترط ان تكون محدد على الخلايا المخفى ، اى تكون فى اى مكان فى الشيت)

 

الملاحظات:

 

1-تم اخفاء كافه المعادلات التى تم التحديد عليها مسبقا وكذالك تم عمل حمايه عليها

 

تنبيه هام:

 

1-ستجد ان الشيت كله مغلق ولا يقبل الكتابه فيه وهذا ربما يكون غير مطلوب

ولتفادى ذلك قم بفك الباسورد ثم حدد بالماوس على المناطق التى تريد ان يسمح بها بالكتابه والتعديل فيها واختار formatcells ثم protecttion ثم امسح علامه الصح من امام  Locked  ثم OK 

 

2-اعد عمل رقم سرى من خلال الخطوه السابقه.

ربنا يبارك فى حضرتك