اريد كود يمنع ادراج ورقة عمل جديد فى ملف

[حسام عبدالمحسن]

عمالقة المنتدى ارجوا المساعدة فى ادراج كود يمنع ادراج ورقة عمل جديدة فى ملف

وعمل رقم سرى للادارج وشكرا

[حمادة عمر]

السلام عليكم

الأخ الحبيب / حسام غباشى

بارك الله فيك

تفضل اخي الكود المطلوب ... ارجو ان يكون ما تريد تماما

اولا : ضع الكود التالي في حدث ThisWorkbook

Private Sub Workbook_Open()
ActiveWorkbook.Protect Password:="123", Structure:=True, Windows:=False
End Sub

ثانيا : قم بوضع الكود التالي في موديل واربطه بزر في اي ورقة تريدها ليمكنك اضافة اوراق عند الضغط علي هذا الزر

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

Sub sama()
Dim pwd As String:  pwd = "123"
If Application.InputBox("برجاء ادخال كلمة المرور ليمكنك اضافة اوراق عمل جديدة", "تصريح اضافة ورقة عمل جديدة", "???") <> pwd Then
MsgBox " كلمة المرور غير صحيحة !! من فضلك راجع مسئول النظام  ", 0, "عفوا الدخول محظور"
ActiveWorkbook.Protect Password:="123", Structure:=True, Windows:=False
    Else
MsgBox "مرحبا بك !! كلمة المرور صحيحة !! يمكنك الآن اضافة ما تريد", 32, "دخول ناجح"
ActiveWorkbook.Unprotect Password:="123"
    End If
End Sub

باسورد اضافة الاوراق  :  123

جرب ذلك ... وفي انتظار ردك

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

 

 

كود لمنع ادراج اوراق عمل جديدة والاضافة برقم سري.rar

[حسام عبدالمحسن]

 ♥♥♥   الاستاذ العزيز حمادة عمر  ♥♥♥

دائما متألق جزاك الله كل خير وجعل هذة الاعمال فى ميزان حسناتك

جارى تجربة الكود وشكرا

[رائد 1982]

السلام عليكم

الاستاذ القدير الكبير الخبير / حمادة عمر

بارك الله فيك

الف مليون شكر للاخ / حسام غباشي .. الذي قدم الموضوع لنري احد روائعك الجبارة

ملف ممتاز وكود جميل وسلس ... دائما كما تعودنا منك اكوادك واسلوبك سهل ممتنع

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

[حمادة عمر]

 

 ♥♥♥   الاستاذ العزيز حمادة عمر  ♥♥♥

دائما متألق جزاك الله كل خير وجعل هذة الاعمال فى ميزان حسناتك

جارى تجربة الكود وشكرا

 

 

السلام عليكم

الاخ الكريم / حسام غباشى

بارك الله فيك

جزيل شكري علي كلماتك ودعائك الكريم

وفي انتظار ردك وتجربتك ...

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

[حمادة عمر]

السلام عليكم

الاستاذ القدير الكبير الخبير / حمادة عمر

بارك الله فيك

الف مليون شكر للاخ / حسام غباشي .. الذي قدم الموضوع لنري احد روائعك الجبارة

ملف ممتاز وكود جميل وسلس ... دائما كما تعودنا منك اكوادك واسلوبك سهل ممتنع

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

 

السلام عليكم

الاخ الكريم / رائد

بارك الله فيك

ولقد اعطيتني اكثر من حقي ... فما انا الا طالب علم

ولكن اخي الكريم هو دين نرده لاساتذتنا الكرام ... ونبتغي مرضاه الله فقط

تقبل تحياتي

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

[ضاحي الغريب]

الحبيب الغالي // ابو سما

أستاذنا صاحب الروائع // حمادة عمر

بارك الله فيك

علي طروحاتك الجميلة وافكارها الرائعة

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

وزادك الله من علمه وفضله

ونفعنا واياك وجعلهم في ميزان حسناتك

تقبل تحياتي

[حمادة عمر]

السلام عليكم

الاخ الحبيب / ضاحي الغريب

بارك الله فيك

مرورك دائما مرور كريم كالنسيم العليل

مرورك يشرف الموضوع ويشرفني انا شخصيا

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