زوهير قام بنشر أكتوبر 15, 2012 قام بنشر أكتوبر 15, 2012 السلام عليكم ورحمة الله بعد طول الغياب ارجوا المعذرة منكم وقد استفدت كثيرا من هذا المنتدى الكبير الذي يزخر بعمالقة في البرمجة اخوتي في الله هل ممكن كود يقوم بطلبات الموضوعة داخل المرفق جراكم الله خيرا prog.rar
زوهير قام بنشر أكتوبر 16, 2012 الكاتب قام بنشر أكتوبر 16, 2012 جزاك الله خير ا فعلا هو المطلوب لكن اريد ظهور الزر modification عن طريق رقم سري ولايظهر الا عن طريق الرقم السري وجزاك الله خيرا وزادك علما والف الف شكر
أبو حنــــين قام بنشر أكتوبر 16, 2012 قام بنشر أكتوبر 16, 2012 ـ 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
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.