فورم إضافة وحذف أوراق من خلال الفورم فقط مع استثناء اوراق معينة من الحذف

[عبدالله المجرب]

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

طلب احد الاخوة ان يتم تعديل كود موجود لدية (خاص بالاستاذ عبدالله باقشير) ليتم الحذف من خلال فورم

الطلب هنا

http://www.officena....showtopic=43999

ولكون الطلب اخذ جهد في التنفيذ وتم اضافة ميزة الاضافة من خلال الفورم فقط احببت فصله في موضوع منفصل

====

في الملف المرفق

بعد الضغط على Ctrl + حرف (س) بالعربي

سيظهر فورم فيه مربع تحرير وسرد وزرين أمر أحدهما غير مفعل

في القائمة المنسدلة من مربع التحرير والسرد ستجد أسماء اوراق العمل عند إختيار ورقة عمل (غير مستثناة) والضغط على زر (Delete Sheet) سيتم حذفها

أما الزر الاخر فسيتم تفعيله اذا تم اختيار صح في خانة اختيار اضافة ورقة عمل

للعلم الاضافة والحذف لن تتم الا عن طريق الفورم

دالة التحقق من اسم الشيت وتكراره هي خالصة للاستاذ ( عبدالله باقشير)

=====================================================

في المرفق تم إضافة خاصية تغيير شكل الماوس عند مروره بأزرر الامر وهي منقولة للامانة

==================================================

ان شاء الله يتم الاستفادة من العمل وشكراً

ابو أحمد

كود منع حزف ورقه.rar

[ابو تميم]

ما شاء الله عليك أخي ابو احمد رووووووووووووووووووووعة

سلمت يداك

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

[خالد الشاعر]

استاذ عبد الله المجرب

تسلم ايدك

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

[أبو أنس حاجب]

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

أستاذي وسيدي الفاضل أبا أحمد (عبد الله المجرب) حفظكم الله

دائماً مبدع ومتواضع وصاحب فضل وأمين زادك الله من فضائل ومكارم الأخلاق والنعم وعلماً على علم.

تقبل مروري وأحترامي.

أبو أنس

[عبدالله باقشير]

السلام عليكم

احسنت اخي الحبيب عبدالله

تقبل تحياتي وشكري

[saad abed]

اخى عبدالله

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

اعمالك واخلاقك جميلة

وفقك الله

تقبل تحياتى

سعد عابد

[إبراهيم ابوليله]

الاخ عبد الله

مشكورا على هذا الكود الرائع

بارك الله فيك

ولكن هل يمكن عمل رساله تفيد بانه لايمكن الحزف فى حاله عدم الحزف

ورساله تفيد بانه تم الحزف فى حالى الحزف

ارجو الافاده

[أبو محمد عباس]

السلام عليكم

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

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

[عبدالله المجرب]

شكراً للجميع على التشجيع

واخص بالذكر الاستاذ عبدالله باقشير فهو من نقتبس منه هذه الاعمال

======

[عبدالله المجرب]

الاخ عبد الله

مشكورا على هذا الكود الرائع

بارك الله فيك

ولكن هل يمكن عمل رساله تفيد بانه لايمكن الحزف فى حاله عدم الحزف

ورساله تفيد بانه تم الحزف فى حالى الحزف

ارجو الافاده

ان شاء الله ممكن

إستبدل كود زر الحذف بهذا

Private Sub CommandButton1_Click()

Dim sh As String, T As Integer

If ComboBox1 = "" Then MsgBox "لا يمكن إتمام العملية لعدم وجود إسم": Exit Sub

Application.DisplayAlerts = False

sh = ComboBox1.Text

ActiveWorkbook.Unprotect "1"

    Select Case sh

	    Case "عبدالله", "116"

	    '''''''''''''''''''''''

	    Case Else: T = 1: Sheets(sh).Delete

    End Select

   MsgBox IIf(T, "تم حذف الشيت " & sh, "لم يتم الحذف لانه محمي"), vbOKOnly, "تنبيه"

ActiveWorkbook.Protect "1", Structure:=True, Windows:=False

Unload Me

End Sub

[الشهابي]

أستاذي العزيز / عبد الله المجرب أبو أحمد

من جرب التعامل معك ما خاب

رفع الله قدرك أستاذنا وزادك الله علما ورفعة

تقبل تحياتي

تلميذكم الشهابي

[إبراهيم ابوليله]

الاخ الكريم

عبد الله

عمل رائع وجميل

ودائما والله نثق جميعا فيك حينما نتعامل معك

وفققك الله اخى الفاضل لما يحبه ويرضاه