استدعاء فورم عن طريق رقم في خلية

[زوهير]

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

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

اخوتي في الله

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

prog.rar

[أبو حنــــين]

هل تريده بهذه الطريقة

prog.rar

[زوهير]

جزاك الله خير ا فعلا هو المطلوب

لكن اريد ظهور الزر modification عن طريق رقم سري ولايظهر الا عن طريق الرقم السري

وجزاك الله خيرا وزادك علما والف الف شكر

[أبو حنــــين]

ـ 1 ) قم بتغيير الخاصية Visible للزر الى القيمة False

ثم انسخ هذا الكود مكان الكود السابق

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Range("G13").Address Then

If Target.Text = "01" Then Menu.Show

CommandButton1.Visible = False

End If

'---------------------------------------------------------------------------------------------------------

If Target.Text = "02" Then

CommandButton1.Visible = True

End If

'---------------------------------------------------------------------------------------------------------

If Target.Text = "03" Then

	    ThisWorkbook.Application.DisplayAlerts = False

	    RR = MsgBox("åá ÊÑíÏ ÍÝÙ ÇáÊÛííÑÇÊ ÇáÊí ÇÌÑíÊåÇ Úáì ÇáÈÑäÇãÌ ", vbInformation + vbYesNoCancel, "ÎÑæÌ")

	    CommandButton1.Visible = False

    If RR = vbCancel Then

	    Exit Sub

	    Else

    If RR = vbNo Then

	    Application.Quit

	    Else

    If RR = vbYes Then

	    ThisWorkbook.Save

	    Application.Quit

End If: End If: End If: End If

End Sub

[زوهير]

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

[أبو حنــــين]

العفو اخي