ميدو63 قام بنشر ديسمبر 16, 2009 قام بنشر ديسمبر 16, 2009 السادة الافاضل .... ممكن كود يضاف لمستند وورد بة عدد من الصفحات يعمل على حذف او مسح المكتوب كلة بعد فتح المستند عدد معين وليكن 3 مرات او عند تاريخ معين ولو امكن كيفية اضافة الكود وحفظة برقم سرى ولو امكن إخفائة وذلك لحماية بحث مقدم للمراجعة لدى اشخاص عديدين. مرفق مذكرة من الانترنت على سيبيل المثال. جزاكم الله خيرا على ذلك
ابوخليل قام بنشر ديسمبر 16, 2009 قام بنشر ديسمبر 16, 2009 السلام عليكم انظر الى المرفق بمجرد فتح المستند يقوم بحذف البيانات التاريخ المؤقت موجود في الكود وقد قمت بتعطيله لترى التنفيذ وتعدل التاريخ كبف شئت تحباتي ،،، ملحوظة / يجب عند ارفاقك للملف ان تقوم بضغطه تخفيفا للعبء على المنتدى ... انظر ادناه الى حجم ملفك بعدما تم ضغطه . دراسة الجدوى الإقتصادية.rar
ميدو63 قام بنشر ديسمبر 17, 2009 الكاتب قام بنشر ديسمبر 17, 2009 استاذنا ابو خليل بارك الله فيك اشكرك على الملف وعلى الملاحظة ولى سؤال تفضلت مشكورا وذكرت الاتى: (التاريخ المؤقت موجود في الكود وقد قمت بتعطيله لترى التنفيذ وتعدل التاريخ كبف شئت) كيف لى ان اعيد تشغيلة - علما اننى عند تغيير التاريخ الذى هو 1/1/2010 يعمل ايضا المكرو - فكيف لى بتعديل وتشغيل التاريخ - اعذرنى فى السؤال؟ اشكرك على مجهودك
ميدو63 قام بنشر ديسمبر 17, 2009 الكاتب قام بنشر ديسمبر 17, 2009 استاذنا ابو خليل اسمحلى بطلب أخر كيف لى ان اضيف امر حفظ للمكرو حتى يحفظ الورقة بيضاء بعد عملية المسح مباشرة بارك الله فيك
ابوخليل قام بنشر ديسمبر 18, 2009 قام بنشر ديسمبر 18, 2009 تفضل : Sub Document_open() Dim dnow, dgo As Date dnow = Date dgo = 16 / 12 / 2009 If dnow > dgo Then Selection.WholeStory Selection.Delete Unit:=wdCharacter, Count:=1 ActiveDocument.Save Else: Exit Sub End If End Sub
ميدو63 قام بنشر ديسمبر 20, 2009 الكاتب قام بنشر ديسمبر 20, 2009 أستاذنا الفاضل بارك الله فيك وجارى تجربتة ... وشكرا على مجهودك..
ميدو63 قام بنشر ديسمبر 21, 2009 الكاتب قام بنشر ديسمبر 21, 2009 أستاذى الفاضل بارك الله فيك جربت الكود وهو ممتاز - ماعدا انة مهما كتبت تاريخممثل 27/12/2009 أو 12/1/2010 واعد تشغيل الملف ومعة المكرو فيعمل الماكرو ويقوم بالحذف والحفظ بعد الحذف بصرف النظر هل حل التاريخ ام لا فهل من حل لذلك شاكرا مجهودك وسعة صدرك
ابوخليل قام بنشر ديسمبر 23, 2009 قام بنشر ديسمبر 23, 2009 المعذرة عن الـأخير والسبب وجود مشكلة في رفع الملفات وأيضا الخاصية( insert code ) لا تعمل حتى كتابة هذه الأسطر عليك فقط بنسخ الكود كما هو ولصقه في مستندك . ظن المشكلة في صيغة التاريخ وتم تعديل ذلك . Sub Document_open() Dim dnow As Date dnow = Format(Date, "dd/mm/yyyy") If dnow > "5/1/2010" Then Selection.WholeStory Selection.Delete Unit:=wdCharacter, Count:=1 ActiveDocument.Save Else: Exit Sub End If End Sub Doc99.rar
ميدو63 قام بنشر ديسمبر 25, 2009 الكاتب قام بنشر ديسمبر 25, 2009 أستاذنا الفاضل بارك الله فيك الكود عمل 100% ..... أشكرك وأود ان اضيف له كود يجبر الوورد على تخفيض أمان الماكرو دون موافقة المستخدم وثانياَ: إبطال عمل أزرار ال Undo لعدم التراجع عن عملية الحذف لمحتويات الورق ولو امكن وجود هذة الاضافة فأن الكود اصبح مكتملاَ بأذن الله.... اشكرك على افادتى بعلمك وعلم الزملاء.
ميدو63 قام بنشر ديسمبر 31, 2009 الكاتب قام بنشر ديسمبر 31, 2009 أستاذنا الفاضل بارك الله فيك هل من اللمكن إجراء التعديل على الكود السابق ليحقق التالى كود يجبر الوورد على تخفيض أمان الماكرو دون موافقة المستخدم إبطال عمل أزرار ال Undo لعدم التراجع عن عملية الحذف لمحتويات الورق ولو امكن وجود هذة الاضافة فأن الكود يصبح مكتملاَ بأذن الله.... اشكرك على افادتى بعلمك وعلم الزملاء.
ميدو63 قام بنشر يناير 12, 2010 الكاتب قام بنشر يناير 12, 2010 إستاذى الفاضل بارك الله فيك هل من حل لإحتياجى السابق
ابوخليل قام بنشر يناير 12, 2010 قام بنشر يناير 12, 2010 السلام عليكم الحق اني لم احاول لا أدري لماذا لعلي تخيلت أن في نهاية هذه الخطوتين مبيد الكتروني . وعلى كل فمسألة التراجع و تحذيرات الأمان اعتقد أن السيطرة عليها عن طريق الريجستري داخل الوندز ، فبالنسبة للتراجع فانظر هذا الموضوع My link وأما تحذيرات الأمان فأذكر أني قد قرأت موضوعا مفيدا بهذا الخصوص ابحث عن : ( تخفيظ الأمان في الوورد أو الأكسس ) وبالتوفيق ،،، تحياتي ،،،
ميدو63 قام بنشر مارس 18, 2010 الكاتب قام بنشر مارس 18, 2010 (معدل) أشكرك على مجهودك معى وسوف أحاول الاستفادة والافادة من الموضوع جزاك الله خير تم تعديل مارس 18, 2010 بواسطه Medo63
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.