ملف به عدة أكواد

[توكل]

الإخوة الأعزاء.

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

لدي ملف به تقريرأرسله لبعض مدراء المبيعات للإطلاع عليه فقط، ليعرفوا موقف فروعهم من السوق و أريد في هذا الملف الأشياء التالية:

1- اريد أن أرسل نسخة في البريد الإلكتروني للقراءة فقط، أي لا يستطيع أن يطبعها ولا أن يحفظ الملف  باسم آخر، ولا أن يعيد إرسال الملف بالبريد الإلكتروني أيضاً .

2- اريد من الملف أن يحذف نفسه تلقائياً بعد ساعة من فتحه.

 

أعرف أن هذا الطلب مزعج وأن الأكود المطلوبة تحتاج إلى جهد ولكن عودنا أعضاء هذا المنتدى المعطاء، على العطاء بلا حدود فأرجوا منكم التكرم بمساعدتي في هذا الأمر فضلاً لا أمراً مشكورين.

 

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

[توكل]

للرفع أيها الأحباب

[توكل]

الإخوة الكرام إستخدمت هذا الكود لمنع حفظ الملف أو حفظه باسم فهل هذا جيد أم أنه هناك طريقة أفضل جزاكم الله خيراً

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'This macro disables the "Save As" Feature in Excel
'This means that a user will not be able to save this
'workbook(file) under a different name or in a different location
'
'This MUST be placed in "ThisWorkbook" and NOT in a Module.
'
       Application.CommandBars("Standard").FindControl(ID:=3).Enabled = False
       If SaveAsUI = True Then Cancel = True

End Sub

 

[ياسر خليل أبو البراء]

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

أعتقد أن الكود يفي بالغرض .. طالما أنه يؤدي المطلوب لك

إذا لم يكن الأمر يؤدي المطلوب بشكل كامل يرجى التوضيح في النقطة التي تتعثر فيها لتجد المساعدة من إخوانك الكرام