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

[هشــــام الســـورى]

كيفية حماية شيت بة TABLE

امكانية الاضافة بعد عمل PROTECT 

PASS 123

ارجو شرحها شكرااا

TABLE WITH PROTECT.rar

[سليم حاصبيا]

جرب هذا الملف

 

 

TABLE WITH PROTECT salim.rar

[هشــــام الســـورى]

الف شكر لحضرتك بس حضرتك مفهمتنيش

انا عايز اعمل protect للشيت

مع امكانية الاضافة والتعديل وزيادة row وينتمى للجدول

شكرا

يعنى اكتب اى اسم بعد اخر اسم ينتمى عادى للجدول 

لاتتم هذة العملية الا لو عملت unprotect للشيت

بمعنى انى عايز اضيف اسم بعد اخر اسم وانا عامل protect للشيت

وينتمى للجدول

 

لا تتم العملية السابقة الا بعد عمل un protect sheet

9 دقائق مضت, سليم حاصبيا said:

جرب هذا الملف

 

 

TABLE WITH PROTECT salim.rar

بمعنى انى عايز اضيف اسم بعد اخر اسم وينتمى للجدول  وانا عامل protect sheet

لا تتم هذة العملية معى الا وانا عامل unprotect sheet

[سليم حاصبيا]

تم معالجة الامر

كلمة السر موجودة في الملف الخلية O1 (يمكن مسحها بعد التعرف عليها)

luck_table.rar

[هشــــام الســـورى]

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

وشكرا واسف على تعب حضرتك

aa.rar

[ياسر العربى]

تفضل اخي

اضغط علي اول خليه للكتابة يتم الغاء الحماية

بعد اخر خلية في الكتابة اضغط انتر يتم تفعيل الحماية 

بمعني

نفترض ان الصف 16 فارغ  نضغط علي A16 يتم الغاء الحماية وعند الوصول ل N16 بعد الكتابة طبيعي اضغط انتر ينزل علي N17 ويتم تفعيل الحماية 

وهكذا

 

TABLE WITH PROTECT.rar

[أبوبسمله]

6 ساعات مضت, ياسر العربى said:

تفضل اخي

اضغط علي اول خليه للكتابة يتم الغاء الحماية

بعد اخر خلية في الكتابة اضغط انتر يتم تفعيل الحماية 

بمعني

نفترض ان الصف 16 فارغ  نضغط علي A16 يتم الغاء الحماية وعند الوصول ل N16 بعد الكتابة طبيعي اضغط انتر ينزل علي N17 ويتم تفعيل الحماية 

وهكذا

 

TABLE WITH PROTECT.rar

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

بالتوفيق اخى الفاضل

[هشــــام الســـورى]

14 ساعات مضت, أحمد الفلاحجى said:

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

بالتوفيق اخى الفاضل

 

21 ساعات مضت, ياسر العربى said:

تفضل اخي

اضغط علي اول خليه للكتابة يتم الغاء الحماية

بعد اخر خلية في الكتابة اضغط انتر يتم تفعيل الحماية 

بمعني

نفترض ان الصف 16 فارغ  نضغط علي A16 يتم الغاء الحماية وعند الوصول ل N16 بعد الكتابة طبيعي اضغط انتر ينزل علي N17 ويتم تفعيل الحماية 

وهكذا

 

TABLE WITH PROTECT.rar

فكرة جميلة فعلا يا اخى ياسر

بس فى مشكلة انى مش مرتبط احط اخر خانة كل واحد ممكن اكتب خانة واحدة بس

هل ينفع تتحل مجرد عمل انتر 

[أبوبسمله]

اكيد ممكن باستخدام دالة counta  لحساب اخر خليه فارغه 

واكيد ممكن بطرق تانيه طول ما فى دماغ بتشرب قهوه ههههههههههههه

بس العباقره حبايبنا بقا عليهم يظبطوها 

بالتوفيق اخوانى

[ياسر العربى]

تفضل

اضغط  CTRL+Q

للحماية

 

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

TABLE WITH PROTECT.rar

[رجب جاويش]

بعد اذن الأستاذ الفاضل / ياسر العربى

ولاثراء الموضوع

بناءا على فكرة أخى الفاضل أحمد الفلاحجى

مارأيكم بهذه الفكرة

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
x = Application.WorksheetFunction.CountA(Range("A:A")) + 2
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Sheet1.Unprotect "123"
ActiveSheet.ListObjects("Table1").Resize Range("$A$2:$N" & x)
Range("$A$2:$N" & x).Locked = False
End If
Sheet1.Protect "123"
End Sub

 

TABLE WITH PROTECT 1.rar

[أبوبسمله]

جزاكم الله كل خير اخوانى رجب وياسر وذاكم الله من فضله وكرمه وجعلكم سابقون دائما لما فيه خير للناس 

تمنياتى لكم وللجميع بالتوفيق

[هشــــام الســـورى]

منذ ساعه, رجب جاويش said:

بعد اذن الأستاذ الفاضل / ياسر العربى

ولاثراء الموضوع

بناءا على فكرة أخى الفاضل أحمد الفلاحجى

مارأيكم بهذه الفكرة

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
x = Application.WorksheetFunction.CountA(Range("A:A")) + 2
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Sheet1.Unprotect "123"
ActiveSheet.ListObjects("Table1").Resize Range("$A$2:$N" & x)
Range("$A$2:$N" & x).Locked = False
End If
Sheet1.Protect "123"
End Sub

 

TABLE WITH PROTECT 1.rar

بسم الله

ربنا يكرمك ياباشا وشكرا على تعبكم واهتمامكم

هو المطلوب جزاك الله كل خير شكرا

[رجب جاويش]

أخى الفاضل / أتش

الحمد لله أن تم المطلوب

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

 

[ياسر العربى]

شكرا استاذي الكريم / رجب جاويش

وعودا حميدا

وشكرا على الفكرة الجميلة التى اشار بها اخي احمد الفلاحجي

والحمد لله انه تم المطلوب

تقبلو ا فائق احترامي

 

 

 

 

[أبوبسمله]

الشكر والعرفان لكم انتم اخوانى الكرام على ماتبذلونه من جهد وعطاء بلا حدود ولا كلل ولا ملل من السائلين 

جزاكم الله عنا خير الجزاء

[هشــــام الســـورى]

53 دقائق مضت, رجب جاويش said:

أخى الفاضل / أتش

الحمد لله أن تم المطلوب

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

 

شكرا لحضرتك واسف على تعبكم

[هشــــام الســـورى]

19 ساعات مضت, رجب جاويش said:

بعد اذن الأستاذ الفاضل / ياسر العربى

ولاثراء الموضوع

بناءا على فكرة أخى الفاضل أحمد الفلاحجى

مارأيكم بهذه الفكرة

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
x = Application.WorksheetFunction.CountA(Range("A:A")) + 2
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Sheet1.Unprotect "123"
ActiveSheet.ListObjects("Table1").Resize Range("$A$2:$N" & x)
Range("$A$2:$N" & x).Locked = False
End If
Sheet1.Protect "123"
End Sub

 

TABLE WITH PROTECT 1.rar

 

السلام عليكم 

 

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

حماية عمود الجمع بالخلية.rar

[رجب جاويش]

السلام عليكم

تفضل أخى

 

TABLE WITH PROTECT 1.rar

[هشــــام الســـورى]

في 1/26/2016 at 18:02, رجب جاويش said:

السلام عليكم

تفضل أخى

 

TABLE WITH PROTECT 1.rar

شكرا ياباشا 

رجب جاويش

[رجب جاويش]

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