اضافة اسم الشيت

[ahmedmoj]

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

الشيت بيتم اضافة فيه بيانات 

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

مدرج شيت للتوضيح

 

 

New Microsoft Excel Worksheet.xlsx

[Ali Mohamed Ali]

تفضل بعدة طرق

 

 

معرفة اسم مستخدم الجهاز.xlsm

[ahmedmoj]

مش قصدى الى حضرتك عاملة 

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

معرفة اسم مستخدم الجهاز.xlsm

[طارق محمود]

السلام عليكم

أخي الكريم

بعد  إذن الأخ محمد ، مرفق نفس الملف به التالي

حماية بباسورد "123"

مسموح للمستخدم فقط العمل في الأعمدة الثلاثة الأولي

وبعد  أن يكون الثلاثة أعمدة مليئة بالبيانات ، يتم أوتوماتيكيا التالي

1- يقوم الماكرو بفك الحماية
2- يسجل بالعمود الرابع والخامس إسم المستخدم و التاريخ
3- يقوم أخيرا بفرض الحماية مرة أخري مع منع السطر الأخير أيضا من التعديل

تفضل الملف

معرفة اسم مستخدم الجهاز.xlsm

[ahmedmoj]

شكرا جدا على اهتمامك وردك

عاوز الغى الحماية بحيث ممكن شخص يعمل تحديث لبيانات شخص اخر ولكن لايقدر يعدل على اسم المستخدم والتاريخ

وبالتالى تظهر بيانات الشخص الجديد فى خانة اسم المستخدم

ثانيا ممكن اضافة الوقت جمب التاريخ بنفس الخانة 

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

 

 

 

تم تعديل أكتوبر 14, 2018 بواسطه ahmedmoj

[طارق محمود]

السلام عليكم

أخي الكريم

كما قلت لك ، باسورد الحماية "123"

الأفضل أن تجعل الحماية موجودة
ولايسمح للمستخدم بالعمل إلا في الأعمدة الثلاثة الأولي ولايمس عمل الآخرين

يمكن مثلا أن يعدل كالتالي : البيان رقم 8 يعيد كتابته مرة أخري معدلا

أي يكون عندك بيانات متكررة بنفس الرقم ومعروف من الذي كتب أولا وفي أي تاريخ ثم من كتب ثانيا أو ثالثا وماذا عدل وفي أي تاريخ

هذا رأيي ولكن ممكن عمل أي شيء إن شاء الله

 

[ahmedmoj]

شكرا جدا على اهتمامك وردك

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

فالبتالى 

عاوز الغى الحماية بحيث ممكن شخص يعمل تحديث لبيانات اضافها شخص اخر ولكن لايقدر يعدل على اسم المستخدم والتاريخ عمود o و p  فقط 

وبالتالى تظهر بيانات الشخص الجديد فى خانة اسم المستخدم

ثانيا ممكن اضافة الوقت جمب التاريخ بنفس الخانة 

مدرج شيت ارجو تعديل عليه

الحماية تكون على عمود o و p  فقط 

 

 

 

 

 

AAAA.xlsx

[ahmedmoj]

مستنى ردك استاذ طارق

 

 

 

 

[ahmedmoj]

UP

 

 

 

 

[طارق محمود]

السلام عليكم

أخي الكريم

لم أفهم المطلوب

مرفق نفس الملف 

وضح لي عليه ماذا تريد إذا تم تعديل بالسطر الأصفر مثلا

 

AAAA.xlsx

[ahmedmoj]

مدرج الملف وبه الطلبات 

 

 

 

 

AAAA (1).xlsx

[طارق محمود]

السلام عليكم

أخي الكريم

مرفق نفس الملف وبه الكود

لكي تضيف نفس الكود بالملف الأصلي

إفتح الملف ثم الفيجوال بيسيك Alt-F11 ثم دبل كليك علي اسم الشيت

ثم انسخ هذا الكود وضعه بمحرر الأكواد

Private Sub Worksheet_Change(ByVal Target As Range)
cl = Target.Column
If cl > 14 And cl < 17 Then Exit Sub
   r = Target.Row
   If WorksheetFunction.CountA(Range(Cells(r, 1), Cells(r, 11))) < 2 Then Exit Sub

    ActiveSheet.Unprotect Password:="121314"
    Cells(r, 15) = Application.UserName
    Cells(r, 16) = Date & " - " & Time
    'Range("A1:C" & r).Locked = True
    
    ActiveSheet.Protect Password:="121314"
     
End Sub

كما بالصورة التالية

AAAA (1).xlsm

[ahmedmoj]

شكرا اخى 

 

 

 

 

[Ali Mohamed Ali]

بارك الله فيك وجزاك الله كل خير استاذى الكبير طارق