كود الخروج من البرنامج لما>ا لايخرجني مباشرة الى سطح المكتب ..مرفق

[skyblue]

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

تلاحظ لي ان كود الخروج من البرنامج لايخرج البرنامج مباشرة الى سطح المكتب بل يخرجه الى صفحة اخرى ومن تلك الصفحة اخرج نهائيا الى سطح المكتب .

الشرح موجود ضمن الملف المرفق

Book1.rar

[ابوالزوز]

السلام عليكم ،،

أخي الكريم استخدم الكود التالي

Application.Quit

تقبل تحياتي ..

[skyblue]

السلام عليكم ،،

أخي الكريم استخدم الكود التالي

Application.Quit

تقبل تحياتي ..

اخي الكريم انا مستخدم اصلا نفس الكود . ولكن اظن ان سبب ظهور تلك الشاشة هو بسبب الكود اللي موجود في workbook حيث ان في الكود خيارات عدة

اظن انها السبب .

تحياتي

[ابوالزوز]

السلام عليكم ،،

أخي العزيز إليك التعديل

Private Sub Workbook_BeforeClose(Cancel As Boolean)

  With Application
  .DisplayFullScreen = False
    .CommandBars("Worksheet Menu Bar").Enabled = True
    .CommandBars("Standard").Visible = True
    .CommandBars("Formatting").Visible = True
    .CommandBars("Drawing").Visible = True
    .DisplayFormulaBar = True
    .DisplayStatusBar = True
''    ActiveWorkbook.close SaveChanges:=False '   تم إيقاف هذا الكود
  .DisplayAlerts = False
  End With
End Sub

تقبل تحياتي ..

تم تعديل مايو 8, 2008 بواسطه abuzzouz

[skyblue]

شكرا لك ابو عزوز على التعديل بالفعل ه>ا هو المطلوب

اكرر شكري لك

[euro_999]

وهذا مثل الاول بس مع الحفظ

 ActiveWorkbook.Save
   Application.Quit