amir501

ملف فلاش جميل وبسيط لشرح قوائم اوفس 2003 ومكان تواجدها في اوفيس 2007 على هذا الرابط INTERACTIVE%20-%20WORD%202003%20TO%20WORD%202007%20COMMAND%20REFERENCE.rar]http://www.4shared.com/file/xirn6Jz5/INTERACTIVE_-_WORD_2003_TO_WOR.html]INTERACTIVE%20-%20WORD%202003%20TO%20WORD%202007%20COMMAND%20REFERENCE.rar

السلام عليكم ما المقصود بـ ( بطيىء جدا ) الملف يعمل بشكل طبيعي اين يكمن البطئ مع تحياتي وشكري

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

اخي الكريم (konafa4000 ) نعم الحمد لله لقد توضحت الصورة 100% واشكرك كل الشكر واصبح الكود بالشكل التالي لكن المشكلة الوحيد هي التي كانت سبب المشكلة وهي كيف يمكنني ان اجبر الكود على ان يحفظ ويغلق الملف دون ان اضهار اي رسالة اي عند بلوغ التاريخ يقوم الكود التالي بتحويل كافة المعادلات الى قيمها واخفاء ا لشيتات وحفظ العمل واغلاق الملف Sub auto_open() Dim Expiry As Date 'If today's date > expiry date, the file will close Expiry = DateValue("01/010/2010") If Date > Expiry Then Dim CEL As Range Application.ScreenUpdating = False Application.Calculation = xlManual For S = 1 To ActiveWorkbook.Sheets.Count Sheets(S).Activate For Each CEL In ActiveSheet.UsedRange If CEL.HasFormula = True Then CEL = CEL.Value Next CEL Next S Application.Calculation = xlAutomatic Application.ScreenUpdating = False Sheet2.Visible = xlSheetVeryHidden Sheet3.Visible = xlSheetVeryHidden Sheet4.Visible = xlSheetVeryHidden Sheet5.Visible = xlSheetVeryHidden Sheet1.Visible = True Sheet1.Select Else ActiveWorkbook.Save End If End Sub اكرر شكري وامتناي لك ولكل اخواني الذين ساعدوني في هذا الكود تقبل تحياتي وشكري اخي الحبيب (konafa4000 )

اخي ياسر لا حرمك الله من فردوسه انت وقارئين هذا الموضوع ... اما بالنسبة لتاريخ الجهاز لدي فهو دقيق 100% لقد جربت كل المحاولات وكل ماتوصلت اليه هو الملف المرفق عند تشغيل الملف يقوم باغلاقه تلقائيا وعندما قمت بتغير تاريخ الجهاز الى 1/10/2010 قام الكود باخفاء جميع الصفحات ماعدا الصفحة الاولى مع عدم حذف المعادلات... تقبل تحياتي اخي ياسر ...واكرر اعتذاري لكثرة اسئلتي ...لكني اذكرك بقوله تعالى بسم الله الرحمن الرحيم * قل هل يستوي الذين يعلمون والذين لا يعلمون* Amir_Yasser.rar

اخي الحبيب ياسر ..لماذا لا يعمل معي الكود واللللللله راح اجن يا اخوان لقد قمت انت يا اخي ياسر بضبط التاريخ على 10 /09/2010 لكن عند تشغيل الملف وقبل بلوغ الناريخ قام الكود باخفاء الصفحات واغلاق الملف ....لاحظت هذا التغير في الكود وهو الاتي (If Date < Expiry Then) وهي اشارة (>) ... وقمت بتغير الاشارة من اصغر من التاريخ الى اشارة < بعد هذا التاريخ ولكن لا زال الكود لا يعمل ......اسف لازعاجك مرة اخرى واكرر شكري وامتناني لك اخي ياسر

اخي ياسر السلام عليكم جزاك الله كل خير ومبارك رمضان عليك....اما بالنسبة للكود وضعته في موديول لكنه بمجرد تشغيل الملف اي قبل بلوغ التاريخ المحدد بداخل الكود فانه يقوم باغلاق الملف...ارجو مراجعة الكود وكشف الخطا... اكرر شكري وامتناني لك ولاخواني اعظاء هذا المنتدى

اخواني السلام عليكم ارجو تصحيح هذا الكود وهو عبارة عن نصفين النصف الاول يقوم بتحويل المعادلات الى قيمها والنصف الثاني من الكود يقوم باخفاء الصفحات المحددة ...وقد جمعا معا لاداء دورهما بتاريخ معين والمشكلة هي ان الكود بمجرد تشغيل الملف يقوم بعمله ويتجاهل التاريخ المحدد بالكود ... نرجو من الا خوة ذوي الخبرة بالاكود تصحيح الخطا ...واين اضع الكود في مديول او في ThisWorkbook جزاكم الله كل خير Sub Auto_open() Dim Expiry As Date Expiry = DateValue("10/09/2010") If Date > Expiry Then Dim CEL As Range Application.ScreenUpdating = False Application.Calculation = xlManual Sheets(2).Activate For Each CEL In ActiveSheet.UsedRange If CEL.HasFormula = True Then CEL = CEL.Value Next CEL End If Application.Calculation = xlAutomatic Application.ScreenUpdating = False Sheet2.Visible = xlSheetVeryHidden Sheet3.Visible = xlSheetVeryHidden Sheet4.Visible = xlSheetVeryHidden Sheet5.Visible = xlSheetVeryHidden Sheet1.Visible = True Sheet1.Select ActiveWorkbook.Save ActiveWorkbook.Close End Sub

الله ينور ياعم ياسر ...اشكرك على هذا الشرح لكن اخي ياسر انا اقصد (ByVal Target As Range) وتحديدا (ByVal) ماذا تعني وماذا يحدث لو قمنا بالغائها او قمنا بتغيرها ..ولكم جزيل الشكر

اخواني كل عام وانتم بخير واسمحو لي ان اهنئكم والامة الاسلامية بقدوم شهر الخير والمحبة جعله الله شهرا مباركا طيبا لكم ولعائلاتكم ولاحبتكم...ولاخواننا ادارة واعظاء وزروار هذا المنتدى .... هذا الكود كما هو واضح لايقاف عملية النسخ والقص والصق .....هل يتكرم احد اخواننا بشرح السطر الاول من الكود اي من بعد كلمة برايفت وبالاخص كلمة (ByVal Target As Range) وماذا يحدث لو قمنا بالغائها او قمنا بتغيرها ..ولكم جزيل الشكر Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.CutCopyMode = False Application.CellDragAndDrop = False End Sub

مشكور اخي الكريم وبانتظار المزيد

برامج كسر ا لحماية سلاح ذو حدين لا يمكن لاحد ان يضمن كيفية استخدامها وعلى اي وجه بالتحديد ....اما فكرة فتح الحساب والتبرع فهي فكرة جيدة ولكن ليس لاغراض كهذه بل يمكن ان يكون لغرض اسما من ذلك...؟

اخي ابو البراء ضغطت انتر ولم يظهر لي اي شي شاهد الصورة المرفقة وجزاك الله كل خير 123.rar

اخي ابو البراء طبعا الصفحة كانت محمية بعد ازالة الحماية عنها جربت دبل كلك ضهرت لي الماعادة هذه (()=ReturnComputerName) اخوك عامر

اخي الفاضل ابو البراء ..السلام عليكم ..شكرا لك على هذا الكود ولكن عند تشغيل الملف لم يظر لي في الخلية A1 اسم الكمبيوتر بل بقيت على حالها (SICOWIN ) علما اني استخدم وندوز 7 والاوفس 2003 اكرر شكري وامتناني لك اخوك عامر

كود بسيط وهو عبارة عن اخفاء الصفحة رقم 2 عند اغلاق الملف واظهارها عند تشغيل الملف ..والاكثر روعة هو انه عند تشغيل الملف مع عدم تمكين خفض مستوى الماكرو فلن تظهر لك الصفحة رقم 2 (المشار اليها بالكود طبعا) ولن تظهر ايظا عنن طرق اظهار الصفحات المخفية... Private Sub Workbook_BeforeClose(Cancel As Boolean) Sheets("Sheet2").Visible = xlVeryHidden End Sub Private Sub Workbook_Open() Sheets("Sheet2").Visible = True End Sub

اخواني وجدت هذا الكود البسط في التركيب لكنه عظيم باداه وهو انه لن يعمل برنامج اكسل الا بعد مقارنةاسم الكمبيوتر مع الاسم المدخل في الكود لكني جربت هذا الكود ولكنه لم يعمل تماما ارجو معرفة اين يكمن الخطا وجزاكم الله كل خير 'In the "ThisWorkbook" section in the VBE you can use this code to check the 'computer ID and then unprotect the spreadsheet so that it can be edited. Private Sub Workbook_Open() If Not Environ("ComputerName") = "YourComputerName" Then Application.Quit End If ActiveSheet.Unprotect Password:="YourPassword" End Sub then in the same section use ... Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveSheet.Protect Password:="YourPassword", DrawingObjects:=False, Contents:=True, Scenarios:=True End Sub

اخي ابو عبدالله اشكرك من كل قلبي ......واهنئك بقدوم شهر رمضان المبارك ...جعله الله يمناً وبركة لك ولعائلتك الكريمة ولكافة اخواننا في هذا المنتدى اخوك/عامر

اخواني المهندس طارق واخونا الحبيب ابو عبدالله اشكركما من كل قلبي للمساعدة كما قال اخي احمد كلاكما ابدع في هذا الكود اللهم اجعل لهما في كل حرف حسنة وفي كل خطوة حسنة ...واهنكما بدوري بقدوم رمضان جعله الله شهرا مباركا لكم ولعائلاتكم ولاخواننا في هذا المنتدى الغالي والقائمين عليه...جزاكم الله كل خير

مشكور اخي دغيدي دائما سباق الى عمل الخير ...اذا كان لدي ملف اسمه حركة البيع واريد ان احفظه في السواقة f ما هو التعديل المطلوب في الكود جزاك الله كل خير

مشكور يا اخي ابو عبد الله دايما كاخوانك سباق الى عمل الخير جعله الله في رصيد حسناتك... عندي سؤال صغير وهو اني اريد تطبيق الكود على عدة صفحات من اصل 42 صفحة ماذا افعل...وجزاك الله كل خير

اخي وصديقي طارق لازالت الرسالة نفسها

اخي طارق اشكرك لسرعة الاجابة هل تتكرم وترى الصورة المرفقة مبينة فيها رسالة الخطا التي ظهرت لي ....واكرر شكري وامتناني 222.rar

اخي احمد اشكرك لسرعة الاجابة هل تتكرم وترى الصورة المرفقة مبينة فيها رسالة الخطا التي ظهرت لي ....واكرر شكري وامتناني Presentation1.rar

اخواني جزاكم الله كل خير هل يمكن اختصار هذا الكود اي اسماء الصفحات Sub auto_open() Dim Expiry As Date Expiry = DateValue("30/7/2010") If Date > Expiry Then Dim CEL As Range Application.ScreenUpdating = False Application.Calculation = xlManual For S = 1 To ActiveWorkbook.Sheets.Count Sheets(S).Activate For Each CEL In ActiveSheet.UsedRange If CEL.HasFormula = True Then CEL = CEL.Value Next CEL Next S End If Application.Calculation = xlAutomatic Application.ScreenUpdating = False sheet2.Visible = xlSheetVeryHidden sheet3.Visible = xlSheetVeryHidden sheet4.Visible = xlSheetVeryHidden sheet5.Visible = xlSheetVeryHidden sheet6.Visible = xlSheetVeryHidden sheet7.Visible = xlSheetVeryHidden sheet8.Visible = xlSheetVeryHidden sheet9.Visible = xlSheetVeryHidden sheet10.Visible = xlSheetVeryHidden sheet11.Visible = xlSheetVeryHidden sheet12.Visible = xlSheetVeryHidden sheet13.Visible = xlSheetVeryHidden sheet14.Visible = xlSheetVeryHidden sheet16.Visible = xlSheetVeryHidden sheet16.Visible = xlSheetVeryHidden sheet17.Visible = xlSheetVeryHidden sheet18.Visible = xlSheetVeryHidden sheet19.Visible = xlSheetVeryHidden sheet20.Visible = xlSheetVeryHidden sheet21.Visible = xlSheetVeryHidden sheet22.Visible = xlSheetVeryHidden sheet23.Visible = xlSheetVeryHidden sheet24.Visible = xlSheetVeryHidden sheet25.Visible = xlSheetVeryHidden sheet26.Visible = xlSheetVeryHidden sheet27.Visible = xlSheetVeryHidden sheet28.Visible = xlSheetVeryHidden sheet29.Visible = xlSheetVeryHidden sheet30.Visible = xlSheetVeryHidden sheet31.Visible = xlSheetVeryHidden sheet32.Visible = xlSheetVeryHidden sheet33.Visible = xlSheetVeryHidden sheet34.Visible = xlSheetVeryHidden sheet35.Visible = xlSheetVeryHidden sheet36.Visible = xlSheetVeryHidden sheet37.Visible = xlSheetVeryHidden sheet38.Visible = xlSheetVeryHidden sheet39.Visible = xlSheetVeryHidden sheet40.Visible = xlSheetVeryHidden sheet41.Visible = xlSheetVeryHidden sheet1.Visible = True sheet1.Select ActiveWorkbook.Save ActiveWorkbook.Close End Sub