حل مشكلة ظهور لوحة حفظ أو عدم الحفظ أو إلغاء الأمر

[إلين]

السلام عليكم 

ملف الاكسل اولا عند الاغلاق يطلب حفظ او عدم الحقظ او الغاء كما موضح بالصورة كيف امنع هذي النافذة من الظهور عند اغلاق الملف 

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

ثانيا : كيف اخلي حجمه عند الفتح نفس حجم المكان الملون يعني المنطقة الرمادي ما تكون موجوده

عنوان مخالف-تـــــم تعـــــديل عـنوان المــــــشاركة

‫مصغر1 - نسخة.xlsm

[بن علية حاجي]

السلام عليكم

راجع الملف المرفق لعل فيه ما تريد...

بن علية حاجي

_مصغر1 - نسخة.xlsm

[إلين]

الملف اللي سويته انت ضابط  بس لما 

جربتها ع ملف عندي هذا يظهر معي 

مع اني حطيت نفس الكود

ايش السبب

 

تم تعديل نوفمبر 22, 2019 بواسطه إلين
ارفاق صورة

[بن علية حاجي]

السلام عليكم

هذا تحذير بالخصوصية... وتصحيحها يكون في شريط الخيارات (الذي تم إخفاؤه في ملفك) من الاختيار "File" أو "ملف" ننقر على "معلومات شخصية..." (بتحفظ)... أو يمكن إرفاق الملف المعني بالخطأ لنقوم بتصحيح هذا الخلل... 

بن علية حاجي

[إلين]

تفضل 

وتم حذف هذا الكود   (Application.ExecuteExcel4Macro "show.toolbar(""ribbon"",false)")

من workbook  لاظهر شريط القوائم 

وياليت تذكر لي خطوات حل المشكله لتفاديها بالملفات الاعمال القادمة

وكل الشكر لك

 

‫‫مصغر1 - نسخة - نسخة.xlsm

تم تعديل نوفمبر 22, 2019 بواسطه إلين

[احمد بدره]

بعد إذن أستاذنا الفاضل بن علية الحاجي

تم وضع الكود التالي في حدث  Woorbook  حتى لا يتم الحفظ  عند الخروج ولا تظهر رسالة عند الخروج من الملف

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  With Application
    If Workbooks.Count = 1 Then
      .DisplayAlerts = False
      .Quit
    Else
      .EnableEvents = False
      Me.Close SaveChanges:=False
    End If
  End With
End Sub 

 

__مصغر1 - نسخة - نسخة.xlsm

[بن علية حاجي]

السلام عليكم

تم إضافة الكود التالي في كود حدث كل الشيتات (من بينها ThisWorkBook)...

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Save
End Sub

ولحذف رسالة "تحذير حول الخصوصية" نتبع خطوات الفيديو (ملف تنفيذي مضغوط) في الملف المرفق (وقد تم ذلك في نسخة أوفيس 2016 بالفرنسية)...

بن علية حاجي

test.rar

[إلين]

شكرا لكم