حذف ورقة عمل بدون اعلام المستخدم و الغاء رسائل ميكروسفت التحذيرية

[اسلام مسلم]

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

السادة الاعزاء والاخوة الكرام

كل عام وحضراتكم بكل خير

لى طلب قد يكون بسيط بالنسبة لكم

ارجو التعديل على الملف المرف حذف ورقة عمل بدون اعلام المستخدم

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

فى هذا الملتقى الكريم

فارجو حذف الورقة دون رسالة ميكروسفت التحذيرية كذلك اغلاق الملف وحفظه دون رسالة اختيا ر الحفظ او لا من ميكروسفت

متعكم الله بالصحة والعافية والسترحذف ورقة عمل بدون اعلام المستخدم.rar

[اسلام مسلم]

تم العثورعلى كود قد يفى بالغرض لان المشكلة هى ربط الكود بـــــ ComboBoxــــكمبوبوكس مرتبط ببيانات

من لدية طريقة افضل وابسط اتمنى مشاركته

شكرا جزيلا

حذف عدد من الصفحات.rar

تم تجربة الكود ويعمل بنجاح وبدون اى مشاكل تذكر

فقط باقى حفظالملف بدون رسالة تأكيد الحفظ من ميكروسوفت

الكود

Private Sub Box1_Change()
Me.Box2.Text = Me.Box1.Text
Label32.Caption = Label32.Caption - 1
If Label32.Caption = 0 Then
  Range("C13:Z571").Select
    Selection.ClearContents
    Range("C13").Select
          Dim NM As String
Dim CTS As Integer
Dim CNT2 As Integer
Dim CNT3 As Integer
CNT3 = 2
CNT2 = 2
CTS = Sheets.Count
Do Until CNT2 = CTS + 1
NM = Sheets(CNT3).Name
If Name = "Report" Then
Range("A1").Select
CNT3 = CNT3 + 1
Else
Sheets(NM).Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
End If
CNT2 = CNT2 + 1
Loop

   ThisWorkbook.Save
Application.Quit
End If
End Sub

تم تعديل مايو 17, 2017 بواسطه اسلام مسلم

[اسلام مسلم]

3 ساعات مضت, اسلام مسلم said:

تم العثورعلى كود قد يفى بالغرض لان المشكلة هى ربط الكود بـــــ ComboBoxــــكمبوبوكس مرتبط ببيانات

من لدية طريقة افضل وابسط اتمنى مشاركته

شكرا جزيلا

حذف عدد من الصفحات.rar

تم تجربة الكود ويعمل بنجاح وبدون اى مشاكل تذكر

فقط باقى حفظالملف بدون رسالة تأكيد الحفظ من ميكروسوفت

الكود

Private Sub Box1_Change()
Me.Box2.Text = Me.Box1.Text
Label32.Caption = Label32.Caption - 1
If Label32.Caption = 0 Then
  Range("C13:Z571").Select
    Selection.ClearContents
    Range("C13").Select
          Dim NM As String
Dim CTS As Integer
Dim CNT2 As Integer
Dim CNT3 As Integer
CNT3 = 2
CNT2 = 2
CTS = Sheets.Count
Do Until CNT2 = CTS + 1
NM = Sheets(CNT3).Name
If Name = "Report" Then
Range("A1").Select
CNT3 = CNT3 + 1
Else
Sheets(NM).Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
End If
CNT2 = CNT2 + 1
Loop

   ThisWorkbook.Save
Application.Quit
End If
End Sub

اعتقد تثبيت هذا السطر 

Dim strFirst As String, strLast As String

 Application.DisplayAlerts = False

ThisWorkbook.Save

قبل الحفظ يفى حاليا بالغرض .. والله اعلم