أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على ali mohamed ali-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة منع ادخال البيانات بعدة شروط اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





كود لمنع اضافة اوراق عمل جديد داخل الملف الا بباسورد - حسام خطاب

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



29-04-2018 09:46 صباحا
الصقر
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
الجنس : ذكر
الدعوات : 21
يتابعهم : 0
يتابعونه : 748
قوة السمعة : 19987
موقعي : زيارة موقعي
عدد الإجابات: 2
 offline 

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

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

vIPyL38PLlMjQNS



 
 
  منع اضافة اوراق عمل جديده.zip   تحميل zip مرات التحميل :(129)
الحجم :(11.711) KB

توقيع :الصقر

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


29-04-2018 11:23 صباحا
مشاهدة مشاركة منفردة [1]
Aml Ahmed
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 07-04-2018
رقم العضوية : 5365
المشاركات : 4
الجنس : أنثى
تاريخ الميلاد : 10-4-1988
الدعوات : 1
يتابعهم : 7
يتابعونه : 0
قوة السمعة : 24
 offline 
look/images/icons/i1.gif كود لمنع اضافة اوراق عمل جديد داخل الملف الا بباسورد - حسام خطاب
بارك الله فيك استاذنا  الكريم 👍👍👍


29-04-2018 12:34 مساء
مشاهدة مشاركة منفردة [2]
ali mohamed ali
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1766
الدولة : مصر
الجنس : ذكر
الدعوات : 2
يتابعهم : 0
يتابعونه : 68
قوة السمعة : 9632
عدد الإجابات: 46
 offline 
look/images/icons/i1.gif كود لمنع اضافة اوراق عمل جديد داخل الملف الا بباسورد - حسام خطاب
عمل جميل ورائع كالعادة استاذ حساب-بارك الله فيك وجزاك الله كل خير-وجعله فى ميزان حسناتك
لكن بعد اذن حضرتك ممكن تنزل الكود مرة اخرى لأنه لم يفتح معى ولم اتمكن من رؤيته ولك جزيل الشكر
توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

29-04-2018 12:48 مساء
مشاهدة مشاركة منفردة [3]
الصقر
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
الجنس : ذكر
الدعوات : 21
يتابعهم : 0
يتابعونه : 748
قوة السمعة : 19987
موقعي : زيارة موقعي
عدد الإجابات: 2
 offline 
look/images/icons/i1.gif كود لمنع اضافة اوراق عمل جديد داخل الملف الا بباسورد - حسام خطاب

تفضل اخى الحبيب على


Private Sub Workbook_NewSheet(ByVal Sh As Object)
Dim z
z = Application.InputBox("لإضافة ورقة عمل جديده ادخل باسورد الصلاحيه", "أكاديمية الصقر للتدريب")
If IsNull(z) Or z = "" Or z = False Or z <> "123" Then
Application.DisplayAlerts = False
MsgBox "عفوا, لايمكنك اضافة اوراق اخرى", vbInformation, "أكاديمية الصقر للتدريب"
Sh.Delete
Application.DisplayAlerts = True
End If
End Sub
توقيع :الصقر

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


29-04-2018 12:52 مساء
مشاهدة مشاركة منفردة [4]
هانى على
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 475
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 5
يتابعونه : 4
قوة السمعة : 855
عدد الإجابات: 8
 offline 
look/images/icons/i1.gif كود لمنع اضافة اوراق عمل جديد داخل الملف الا بباسورد - حسام خطاب
كود رائع استاذى حسام-جزاك الله كل خير

29-04-2018 12:56 مساء
مشاهدة مشاركة منفردة [5]
ali mohamed ali
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1766
الدولة : مصر
الجنس : ذكر
الدعوات : 2
يتابعهم : 0
يتابعونه : 68
قوة السمعة : 9632
عدد الإجابات: 46
 offline 
look/images/icons/i1.gif كود لمنع اضافة اوراق عمل جديد داخل الملف الا بباسورد - حسام خطاب
بارك الله فيك استاذى الكريم-جزاك الله كل خير
توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

29-04-2018 01:11 مساء
مشاهدة مشاركة منفردة [6]
محمد الدسوقى
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 827
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 79
يتابعهم : 9
يتابعونه : 765
قوة السمعة : 8651
عدد الإجابات: 8
 offline 
look/images/icons/i1.gif كود لمنع اضافة اوراق عمل جديد داخل الملف الا بباسورد - حسام خطاب
بارك الله فيك أستاذ حسام
كود رائع كالعادة
جزاك الله خيرا
--------------------
الأستاذ / على اتفضل الكود الذى طلبته
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Dim z
z = Application.InputBox("لإضافة ورقة عمل جديده ادخل باسورد الصلاحيه", "أكاديمية الصقر للتدريب")
If IsNull(z) Or z = "" Or z = False Or z <> "123" Then
Application.DisplayAlerts = False
MsgBox "عفوا, لايمكنك اضافة اوراق اخرى", vbInformation, "أكاديمية الصقر للتدريب"
Sh.Delete
Application.DisplayAlerts = True
End If
End Sub


 




الكلمات الدلالية
لمنع ، اضافة ، اوراق ، جديد ، داخل ، الملف ، بباسورد ، حسام ، خطاب ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 04:16 مساء