علي الشيخ

اللهم تقبل صيامنا وقيامنا وصالح أعمالنا وأعتق رقابنا من النار وأرحم كل موتى المسلمين في هذه الأيام المباركة اليوم بمشية الله حبيت أقدم موضوع بسيط وخفيف عن خاصية يمكن البعض لا يعرف عنها وهي خاصية في الإكسل تسمى Watch Window ودي بتسهل علينا متابعة محتوى خلية أو مجموعة خلايا معينة في الإكسل أثناء العمل الفائدة منها : أحيانا خلال العمل في شيت واحد أو مجموعة شيتات مختلفة نحتاج إلى مراقبة التغييرات التي تحدث في خلية أو أكثر أثناء العمل خاصة إذا كنا نتنقل من صفحة إلى أخرى ومن أعلى الصفحة إلى أسفلها فأفضل شئ لنجعل قيمة خلية معينة ثابته أمام أعيننا في أي وقت خلال تنقلنا بين الشيتات فهي تقوم بعرض المعلومات التالية عن محتوى الخلية اسم ملف الإكسل Book اسم الشيت Sheet اسم الخلية Name رمز الخلية Cell القيمة Value المعادلات التي تحتويها الخلية Formula والصور والتجربة من خلالكم توضح الفكرة أكثر بمشية الله يمكن الوصول إلى الـ Watch Window في إصدارات أوفيس 2007 وأعلى من خلال تبويب Formula ثم Watch Window يمكن إضافة الخلية أو الخلايا بالضغط على Add Watch ولحذف خلية أو خلايا من المتابعة نضغط على Delete Watch كما يمكن سحبها في أعلى الصفحة لتكن ثابته بشكل عملي أكثر كالتالي ودمتم في رعاية الله

السلام عليكم أخي الكريم حضرتك جرب الكود كالتالي Sub Transfer() Application.ScreenUpdating = False On Error Resume Next Dim Cell As Range, T As String, LR As Long, LRT As Long Dim WS As Worksheet, Answer As Long Set WS = Sheets("1") LR = WS.Cells(35, 3).End(xlUp).Row T = WS.Range("A3").Value Application.ScreenUpdating = False WS.Unprotect "2191612" If Not IsEmpty(WS.Range("C6")) Then With Sheets(T) .Unprotect "2191612" LRT = .Cells(Rows.Count, 3).End(xlUp).Row + 1 For r = 3 To LRT If Sheets("Medi. Kha").Cells(r, 3) = Range("C6") Then MsgBox "This record is already exist, No shift will done": Exit Sub Next WS.Range("B6:G" & LR).Copy .Cells(LRT, 2).PasteSpecial xlPasteValues .Protect "2191612" End With Sheets("1").Select ActiveWindow.SmallScroll Down:=-12 Range("A3,C6").Select Else MsgBox "ÇáÎáíÉ ÇáãÍÏÏÉ ÝÇÑÛÉ áÐÇ áä íÊã ÊäÝíÐ ÇáßæÏ": Exit Sub End If WS.Protect "2191612" Application.CutCopyMode = False Application.ScreenUpdating = True End Sub الجزء الذي تم إضافته هو For r = 3 To LRT If Sheets("Medi. Kha").Cells(r, 3) = Range("C6") Then MsgBox "This record is already exist, No shift will done": Exit Sub Next تم الإعتماد على رقم الـ PR/NO لو مكرر مش هيتم الترحيل ان شاء الله يكون ع الاقل قريب من المطلوب

أتمنى من الله أن تكونوا جميعا بخير وصحة وسلامه وكل عام وأنتم بخير رمضان مبارك وربنا يبلغنا جميعا الشهر المبارك. موضوع اليوم هو أخر جزء في موضوعات الإضافات للإكسل Excel Addins وحبيت إني أعمل كتاب إلكتروني بسيط " PDF " يضم فيه كل الموضوعات الخاصة بالإضافات والذي يحتوي على التالي : تعريف الإضافة + طريقة تحويل الماكرو إلى إضافة + حمايتها بكلمة سر عمل شيت بسيط يحتوي على 2 زر أحدهم لتثبيت الإضافة والأخر لحذف التثبيت تلقائيا طريقة التعديل على الإضافة عمل تبويب للإضافة لكي تظهر في الإكسل كـ Tab طريقة حماية الإضافة بدون باسورد وجعلها غير قابلة للعرض وطريقة كسر هذا النوع من الحماية طريقة عمل تحديث للإضافة بحيث يقوم المستخدم بعمل تحديث للإضافة في حال إصدارلك لإصدار به تحديثات لأي استفسار عن أي جزئية في الكتاب بإذن الله تعالى أنا حاضر لتحميل البرنامج إضغط على الرابط التالي أو في المرفق http://directexe.com/8yg/الإضافات_في_الإكسل_Excel_Addins_.pdf دمت في رعاية الله الإضافات للإكسل Excel Addins.txt

أتفضل أخي تقدر تتطلع على الروابط التالية فيها ما يتعلق بالإضافات http://www.officena.net/ib/index.php?showtopic=61907#entry400221 http://www.officena.net/ib/index.php?showtopic=61913#entry400297 http://www.officena.net/ib/index.php?showtopic=62036#entry401241

أبو محمد مرورك أسعدني وكل عام وأنتم بخير

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

أستاذ محمد جزاك الله خيرا وجعله في ميزان حسناتك

السلام عليكم أخي الفاضل زي ما توقعت إن المشكلة في الملف ده فقط وهي مش مشكلة هي فقط لأن الصفحات محمية بكلمة سر وتم فك الحماية ويمكن نقل الصفحات والكليك يمين كله يعمل بشكل عادي لاحظت أخي إن كلمات السر للصفحات مختلفة بعض الصفحات تختلف عن الصفحات الأخرى عامة أنا رفعتلك الملف في الرابط التالي الصفحات كلها بدون حماية http://up.top4top.net/downloadf-top4top_6910b2975a1-zip.html

الحمدلله إنك قدرت توصل للمطلوب أخي وحكاية ملف xla المفقود هو ده عبارة عن الكود نفسه ولكني استخدمه كإضافة للإكسل Excel Addin عشان استفيد منه في كل الملفات الخاصة بالإكسل وليس ملف واحد فقط ويمكن لما حفظت الملف اتحفظت الإضافة معاه بالغلط

السلام عليكم أخي سامي أعتقد إن المشكلة في الملف وليست في الإكسل جرب تعمل كده مع ملف جديد أو ملف أخر لو المشكلة اتحلت حاول ترفق الملف اللي فيه المشكلة

أتفضل أخي شوف الملف المرفق ينقصه نقطتان وهي إن الخلية E4 تتغير قيمتها وأنه يرسل بشكل متتالي للقائمة ولكن الملف يقوم بالباقي أعتقد ما عليك إلا إنك تكتب الإيميل في المكان المظلل بالأصفر الخلية J6 وتضغط على زر الإرسال BSC updated.rar

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

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

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

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

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

عليكم السلام ورحمة الله فضلا أخي ارفق الملف أو نموذج مصغر منه لتسهيل فهم المطلوب والتجربة من خلاله

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

اخى واستاذى على موضوع جميل ومثير ولكنى اعتقد انه مع تحويل الملف الى exe يصعب فك حمايته ولكن الطرق المقدمه منك جديده وفيها تشويق فى انتظار معرفه كيفيه عمل ذلك ................................................ وهل يمكن عمل ذلك على ملف الاكسيل دون تحويله الى exe علشان زى منتا عارف فيه فيروسات رخمه تخصصها exe ................................................ تقبل تحياتى والله أستاذ إبراهيم أنا تواصلت مع الدعم الفني للموقع الخاص ببرنامج التشفير نفسه وطلبت منهم حل لهذه المشكلة ولكنهم أفادوا أنه لاستخدام الملفات على الأجهزة الأخرى في صيغتها العادية للإكسل بعد تشفيرها يتطلب وجود Runtime Library خاصة ببرنامج التشفير أن تكون مثبته على جهاز المستخدم الأخر فهو حل غير عملي حقيقة ولتفادي المشكلة يتم تحويل الملف إلى EXE حتى يتم دمج الـ Runtime Library ضمنيا مع ملف الإكسل وبالتالي لا يحتاج المستخدم إلى تثبيت إضافات أو أي شئ وجاري البحث والعمل على وجود حل لهذه المشكلة لأن انا كمان ما حبيت حكاية إني لازم أحوله إلى EXE

اخى واستاذى على مش عارف الملفات مش بتفتح عندى ايه المشكله مش فاهم تقبل تحياتى أستاذ إبراهيم أسعدني مرورك ومشاركتك وجزاك الله خيرا على المتابعة الملف للأسف أكتشفت من خلال تجربة حضرتك والأستاذ ياسر ولما أنا كمان جربت من جهاز أخرى أنها لا تعمل لأنها تتطلب وجود ملف خاص بالبرنامج المستخدم بالتشفير أن يكون موجودا على جهاز المستخدم الأخر ولحل المشكلة تم تحويل ملف الإكسل إلى EXE في الروابط التالية الملف الأول http://directexe.com/5P5/Officena1.rar الملف الثاني http://directexe.com/5P6/Officena2.rar الملف الثالث http://directexe.com/5P7/Officena3.rar أتمنى أنك تلقي نظره عليهم وتفيدني بملاحظاتك مرة أخرى

أنا في رأي البسيط وايضا انتظر ردود الأخوة هيفيدوك أكتر انه في هذه الحالة يفضل إلغاء خاصية Automatic Calculations والمسؤله عن اجراءات العمليات الحسابية على الشيت كاملا بعد كل تغيير في الملف وهذا يأخذ وقت وأيضا مع كثرة البيانات والأكواد والمعادلات ممكن أن تؤدي إلى مشكلة مثل اللي بتحصل معاك ممكن تجرب الحل كالتالي افتح الملف ثم من تبويت Formula اضغط على Calculation Options واختار Manual واشتغل على الملف عادي ولما تحب تحصل على تحديث لنتائج المعادلات بعد التغييرات اللي هتعملها تقدر تضغط F9 او من تبويب Formula اضغط على Calculate Now ولو حابب ترجع الحساب التلقائي مرة تانية عيد أول خطوتين بس بدل Manual خليها Automatic

أرجو من السادة المشرفين استبدال مرفقات المشاركة الأولى الخاصة بالموضوع بالروابط التالية إن امكن الملف الأول http://directexe.com/5P5/Officena1.rar الملف الثاني http://directexe.com/5P6/Officena2.rar الملف الثالث http://directexe.com/5P7/Officena3.rar مع جزيل الشكر فقد تم تحويل الملفات الثلاثة إلى الإمتداد EXE حتى تعمل على كل الأجهزة بدون مشاكل

عفوا أخي الفاضل طيب الملفات دي حجمها كبير؟ تحتوي على أكواد كثيرة؟

السلام عليكم أخي أبو يوسف المشكلة مع ملف أو ملفات معينة ولا مشكلة عامة مع الإكسل؟

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