ahmadm_1 قام بنشر أغسطس 5, 2005 قام بنشر أغسطس 5, 2005 بسم الله الرحمن الرحيم كيف أمنع فتح ملف فى تاريخ محدد لدى ملف وورد خاص بشغلى (بأسم شروط) محتوى الملف سينتهى العمل بة فى 1/9/2005 فلا اريد ان يفتح هذا الملف فى هذا التاريخ أو بعده مع ظهور رسالة توضح للمستخدم ان الملف أنتهى العمل بة و يجب الرجوع إلى المسؤال للمراجعة مع طريقة تحديث كود المنع مرة أخرى بعد تعديل محتوى الملف. المطلوب : 1- طريقة منع فتح ملف وورد فى تاريخ محدد 2 - ظهور رسالة للمستخدم توضح أسباب حجب الملف. 3 - طريقة تحديث الملف ( بعد تعديل محتواه إلى تاريخ أخر). ممكن عن طريق الماكرو أو أى شئ تانى ياريت الرد بسرعة قد تكون الأجابة موجودة بالمنتدى فعذراً مقدما للتكرار لأنى بكلمات البحث لم أجده :') فأن كانت الطريقة موجودة بالمنتدى ياريت الرابط و بعد علمى به و شكركم على سعة صدركم احذفوا هذا الموضوع . :o اشكركم مقدم (y)
ahmadm_1 قام بنشر أغسطس 8, 2005 الكاتب قام بنشر أغسطس 8, 2005 عفوا اريد الحل بسرعة لأنه متعلق بعملى محتاجة فى الشغل
اا الفاروق اا قام بنشر أغسطس 8, 2005 قام بنشر أغسطس 8, 2005 السلام عليكم الامر يحتاج لأحد خبراء الماكرو وذلك لبرمجته بالVBA وتحديد تاريخ محدد فى حالة تحققه يتم إغلاق الملف .... هذه الفكرة وعذرا فتوجد بعض الامور التى تحول بينى وبين تفرغى لوضع بعض الافكار البرمجية بذلك الكود وربما احد الاعضاء هنا يدلك على كود برمجى مشابه والله الموفق
ahmadm_1 قام بنشر أغسطس 12, 2005 الكاتب قام بنشر أغسطس 12, 2005 أخى الفاروق أشكر حسن تعاونك ... و لكن الأمر مهم جداً لأى فهل من الممكن أن تدعوا أحد من عباقرة أكواد الأكسل أو الفيجوال بيسك بالمنتدى للأجابة على هذا السؤال. ولك و لهم جزيل الشكر..
محمد طاهر عرفه قام بنشر أغسطس 16, 2005 قام بنشر أغسطس 16, 2005 أولا تأكد من تفعيل الماكرو Tools Macro security low or medium ثم ضع الكود التالي فى كود الوثيقة Document Private Sub Document_Open() Dim mydate As Date mydate = #8/15/2005# If Date >= mydate Then MsgBox " This file can not be open starting from" & Str(mydate) & " Sorrry !)" ActiveDocument.Close End If End Sub كما في الملف المرفق و لفتح الملف و تجاوز الكود اضغط شيفت اثناء الفتح closefile.zip 1
ahmadm_1 قام بنشر أغسطس 16, 2005 الكاتب قام بنشر أغسطس 16, 2005 أشكر أخى العزيز محمد طاهر على المساعدة هذا فعلاً ما أقصده بارك الله فيك وجزاك عنا الخير الكثير هل هناك طريقة أمنع فيها رسالة تأكيد الماكرو و تنشيطة لان المستخدم أذا لم يفعل تنشيط الماكرو سيفتح الملف معه و ضاع مقصد الماكرو .... اشكرك أخى لسعة صدرك
محمد طاهر عرفه قام بنشر أغسطس 16, 2005 قام بنشر أغسطس 16, 2005 لكي لا تظهر الرسالة يمنكك اختيار اقل مستوي Low و يمكن التحكم برمجيا بمستوي أمان الماكرو التحكم فى مستوي أمان الماكرو بالكود http://www.officena.net/ib/index.php?showtopic=26&hl=الماكرو
المهاجر قام بنشر أغسطس 16, 2005 قام بنشر أغسطس 16, 2005 ماشاء الله تبارك الله .. شكرا أستاذ محمد طاهر على ردك المفيد
ahmadm_1 قام بنشر أغسطس 26, 2005 الكاتب قام بنشر أغسطس 26, 2005 بارك الله فيك أخى العزيز محمد طاهر على المساعدة الحمد لله نجحت التجربة و العمل بالكود تمام التمام
منياوى قام بنشر يناير 5, 2010 قام بنشر يناير 5, 2010 أولا تأكد من تفعيل الماكرو Tools Macro security low or medium ثم ضع الكود التالي فى كود الوثيقة Document <!--c1--><div class='codetop'>كود</div><div class='codemain'><!--ec1-->Private Sub Document_Open() Dim mydate As Date mydate = #8/15/2005# If Date >= mydate Then MsgBox " This file can not be open starting from" & Str(mydate) & " Sorrry !)" ActiveDocument.Close End If End Sub<!--c2--></div><!--ec2--> كما في الملف المرفق و لفتح الملف و تجاوز الكود اضغط شيفت اثناء الفتح
منياوى قام بنشر يناير 5, 2010 قام بنشر يناير 5, 2010 فكرة جميلة ورائعة بارك الله فيك ولكن إذا قام أى شخص بتغيير التاريخ فى الكمبيوتر سيتمكن من فتح الملف بسهولة
حمادة عمر قام بنشر مايو 12, 2013 قام بنشر مايو 12, 2013 ماشاء الله تبارك الله .. شكرا أستاذ محمد طاهر على ردك المفيد
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.