ابوالزوز

السلام عليكم ،، أخي العزيز إنظر للمرفق مع العلم أن المعادلات الموجودة فيه مأخوذة من إحدة مشاركات الأستاذ العزيز أبو تامر تقبل تحياتي .. _______________.rar

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

السلام عليكم ،، أخي العزيز مصطفى هاشم الشكر الجزيل لك على هذا الطرح الجميل والأسلوب البسيط السهل وفقك الله وأتمنى لك التوفيق من كل قلبي تقبل تحياتي ..

السلام عليكم ،، مشاركة جميلة أخي وأستاذي نزار ،الله يجعلها في ميزان حسناتك تقبل تحياتي ..

السلام عليكم ،، أخي العزيز حدد الخلية التي فيها المعادلة ثم من تنسيق - خلايا - حماية - ضع إشار صح بجانب كلمة مخفية ثم قم بحماية الورقة تقبل تحياتي ..

السلام عليكم ،، إذا نظرت للكلام أراه جميلاً وإذا نظرت للمعنى أراه قبيحاً فهل أمدح أم أذم حسبنا الله ونعم الوكيل نعم المولى ونعم النصير

السلام عليكم ،، أخي العزيز لا داعي للكود لتحديد الخلايا أو النطاق الذي تريد تحريره إنما يمكنك فقط تحديد كافة الأوراق دفعة واحدة ثم بعد ذلك تحدد النطاق المطلوب على ورقة واحدة فقط منها وتقوم بإزالة إشارة مؤمنة فينطبق ذلك على كل الأوراق (طبعاً هذا إذا كان النطاق واحد في كل الأوراق) ثم تقوم بالحفظ وتخرج من الملف لتعود إليه من جديد وترى النتيجة يمكنك إرسال الملف إذا أحببت تقبل تحياتي ..

أخي الكريم عصام ضع الكود التالي في الحدث Workbook_Open لحماية كافة الأوراق دفعة واحدة (للعلم هذا الكود أخذته من إحدى مشاركات الأستاذالعزيز أبو تامر) لكن قبل ذلك قم بتعليم كل الخلايا التي تريد تحريرها في الورقة ثم إذهب إلى تنسيق - خلايا - حماية ثم قم بإزالة الإشارة من جانب كلمة مؤمنة ، والكود هو التالي: For Each MySheet In ActiveWorkbook.Sheets MyPass = "123" MySheet.Protect _ Password:=MyPass, _ DrawingObjects:=True, _ Contents:=True, _ Scenarios:=True, _ UserInterfaceOnly:=True Next MySheet تقبل تحياتي ..

السلام عليكم ،، أخي العزيز لدي سؤال لكي يتم تفهم طلبك: هل هذا يتعلق بتعبئة نموذج إشعار الإيداع البنكي وتوزيع المبلغ على فئات العملة أم أن المقصود شيء آخر تقبل تحياتي ..

السلام عليكم ،، أخواني الأعزاء في المرفق إضافة أخرى على الفورم أرجو أن تكون مفيدة للمهتمين بهذه الأمور تقبلوا تحياتي .. Flash_Caption.rar

واجبنا أخي الكريم تقبل تحياتي ..

السلام عليكم ،، أخواني الأعزاء المهتمين فقط قمت بإضافة Loading Bar على الفورم أرجو أن ينال إعجابكم تقبلوا جميعاً تحياتي .. Flash_Caption.rar

السلام عليكم ،، أخي العزيز alaaaaaaaa من تنسيق - خلايا - رقم - نص , وبالتالي سوف يعامل الرقم عندك كمعاملة النص ويقبل الصفر من اليسار أو بطريقة أخرى من تنسيق - خلايا - رقم - مخصص ثم ضع في خانة النوع أصفار بعدد أرقام الحساب هكذا 0000000000000000 إلا أن الطريقة الأولى أفضل في حالتك لمعالجة طلبك الثاني أيضاً تقبل تحياتي ..

شكراً لكم جميعاً ..

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

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

السلام عليكم ،، معك كل الحق أخي jastice وأنا شديد الأسف لما قلته بحق أخي sanor87 وأتمنى أن يسامحني إلا أنني فعلاً تفاجأت بصيغة السؤال وقمت بالرد مباشرة بدون تردد على كل حال أتمنى كل التوفيق لأخي العزيز sanor87 وأنا جاهز لأي استفسار يخطر ببالك إنشاء الله تقبلوا جميعاً تحياتي ..

---- بالإنتظار ----

السلام عليكم ،، أخواني الأعزاء أحتاج الجواب على هذا السؤال للإستفادة منه في عدة أمور في ملفاتي خلاصة السؤال أنني أريد جعل Caption الزر يومض مع مرور الوقت والإيضاح في المرفق وشكراً جزيلاً لكم أساتذة وأعضاء تقبلوا تحياتي .. Flash_Caption.rar

السلام عليكم ،، أخي الكريم RAAD ضع الكود التالي في الحدث Workbook_Open لحماية كافة الأوراق دفعة واحدة ولا يؤثر ذلك على عمل الماكرو الموجود إلا في حالة sort (للعلم هذا الكود أخذته من إحدى مشاركات الأستاذالعزيز أبو تامر) For Each MySheet In ActiveWorkbook.Sheets MyPass = "123" MySheet.Protect _ Password:=MyPass, _ DrawingObjects:=True, _ Contents:=True, _ Scenarios:=True, _ UserInterfaceOnly:=True Next MySheet أو أرسل ملفك في حال صعوبة التطبيق تقبل تحياتي ..

السلام عليكم ،، أخي hat للمعلومة السؤال أصلاً غلط حيث أن الأرقام العربية المعروفة هي أصلاً ارقام هندية وبالتالي كيف يمكن تحويل الأرقام العريية إلى هندية مع التحية لكل الأخوان ..

يا اللي إسمك sanor87 ألم يقل لك أحد في مرة من المرات أنك إنسان ظريف جداً وخفيف الدم ؟!!!!!!!!

السلام عليكم ،، أخواني الأعزاء بالإمكان منع حذف ملف إكسل بجعله يعمل نسخة احتياطية تلقائية تتحدث باسمرار عند كل حفظ .. إليكم الرابط http://www.officena.net/ib/index.php?showtopic=7163&hl وكذلك يمكن منع نسخ ملف إكسل من خلال تخزين رقم الهارد للجهاز وبالتالي لايمكن فتح الملف إلا على نفس الجهاز .. إليكم الرابط http://www.officena.net/ib/index.php?showtopic=12131&hl تقبلوا جميعاً تحياتي ..

السلام عليكم ،، أخي العزيز bekhaa شكراً على تفاعلك مع الموضوع لقد وجدت مطلبي في قسم أكواد الفيجوال بيزك شكراً جزيلاً لك على كل حال تقبل تحياتي ..

--- UP ---