الخروج من الوورد دون حفظ وبدون أن تظهر رسالة الحفظ

[عبدالله المجرب]

السلام عليكم 

 

احتاج الى مستند وورد للعمل كقالب للادخال فقط 

 

ولا اريد أن يتم حفظ البيانات فيه

 

أي يتم الخروج منه بدون حفظ وبدون رسالة هل تريد حفظ التغييرات

 

جربت أن استخدم هذا الكود 

Private Sub Document_Close()
SendKeys "{Tab}"
SendKeys "{Enter}"
End Sub

لكن عيبه أنه يقوم بأغلاق NumLock في كل مرة يتم إغلاق الملف 

 

جربت أن اجعل الملف للقراءة فقط ولكن مشكلته مع أوفيس 2013 أنه يتم فتحه في وضع الأمان 

 

هل من حل وعن طريق الأكواد

وشكراً 

[الطلحي]

Private Sub Document_Close()
 
  ThisDocument.Saved = True
   
End Sub

[عبدالله المجرب]

شكراً جزيلاً تمت التجربة بنجاح