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

[م/ مغترب]

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

 

الى الأخوة الأعزاء الكرام

 

س/1

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

 

س/2

 

 كود او معادلة  بحيث  عند وصول التاريخ الى 1/1/2014   او 1/1/1435   مثلا  أن ينبهني بلون او رسالة

حاولت  لكن يجب ان ادخله يدوي فيتغيير اللون بناءا على الشرط    لكن  أريده اوتوماتيكيا يتغير التاريخ كل يوم بناءا عى الجهاز دالة =TODAY()  وعند وصوله الى التاريخ المحدد بالكود ان ينبهني بساعة معينه  اي الساعة التاسعة يظهر الرسالة او التنبية

 

س3/

 

عندي 3 طلاب   A1:A3  و عند وضع كلمة الاول في B2 مثلا   ان ينتقل الصف الى الاعلى  اي يتم ترتيب الصفوف تلقائيا بناءا على العمو B   الاول الثاني الثالث ......   مباشرة

 

 

وشكرا وبارك الله فيكم و بمجهودكم

[الـعيدروس]

ارفق مثال 

وان شاء الله الكل لن يقصر معك

[أبو عبد الرحمن سعيد]

أخى العزيز/ مغترب

السلام عليكم

لتقريب وجهة نظركم فكما

أشار أخى العزيز/ عباد

يجب ارفاق مثالا حتى يتم العمل عليه

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

[الـعيدروس]

السلام عليكم

 

 

س/2

 

 كود او معادلة  بحيث  عند وصول التاريخ الى 1/1/2014   او 1/1/1435   مثلا  أن ينبهني بلون او رسالة

حاولت  لكن يجب ان ادخله يدوي فيتغيير اللون بناءا على الشرط    لكن  أريده اوتوماتيكيا يتغير التاريخ كل يوم بناءا عى الجهاز دالة =TODAY()  وعند وصوله الى التاريخ المحدد بالكود ان ينبهني بساعة معينه  اي الساعة التاسعة يظهر الرسالة او التنبية

 

تفضل الكود

 

الية الكود كالتالي :

 

عند وصول التاريخ كما اشرت 

ميلادي

01/01/2014

هجري

01/01/1435

مابين الساعه 9 و 11 صباحاً

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

بالامكان تغير وقت التنبية

بالسطر التالي من الكود

Private Const الساعه = "9:11"

مثلاً من 10 الى 12

Private Const الساعه = "10:12"

المقصد بداية الوقت يكتب قبل : نهاية الوقت بعد :

 

الصق الكود في مودويل 

'===================================
' الوقت الإفتراضي مابين الساعه 9 و 11
'
Private Const الساعه = "9:11"

Sub auto_open()
Dim D, E As Date
'**************************
 St = Split(الساعه, ":")(0)
 En = Split(الساعه, ":")(1)
'**************************
' التاريخ الهجري
'----------------------------------------------------------------------
 Calendar = vbCalHijri
 D = DateValue(Now())
If DateSerial(Year(D), Month(D), Day(D)) = DateSerial(1435, 1, 1) Then
 If Hour(Now()) >= Val(St) And Hour(Now()) <= Val(En) Then
  MsgBox " التاريخ اليوم هجري :  " & D, vbExclamation, "تنبية "
 End If
End If
'----------------------------------------------------------------------
' التاريخ الميلادي
 Calendar = vbCalGreg
 E = DateValue(Now())
If DateSerial(Year(E), Month(E), Day(E)) = DateSerial(14, 1, 1) Then
 If Hour(Now()) >= Val(St) And Hour(Now()) <= Val(En) Then
  MsgBox "  : التاريخ اليوم ميلادي :  " & E, vbExclamation, "تنبية "
 End If
End If
End Sub

تم تعديل أغسطس 23, 2013 بواسطه عباد

[م/ مغترب]

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

 

تم إرفاق ملف  

 

و شكرا للجميع و للأستاذ عباد  على كود التاريخ

 

وجمعة مباركة

New Microsoft Office Excel Worksheet.rar

تم تعديل أغسطس 23, 2013 بواسطه م/ مغترب

[م/ مغترب]

السلام عليكم

ممكن الشرح على الملف

وشكرا