نجوم المشاركات

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

يا أستاذ ياسر أنا مش فاكر الباسورد ومش عارف هو كبير ولا صغير وأرقام بس ولا أرقام وحروف أنا مش فاكره فعلا بس ساعات باعمله أرقام وحروف وعلى فكرة جربت برنامج EXCEL PASSWORD RECOVERY وقعد حوالي 3 أيام وماوصلش لحاجة والبرنامج بيتم تفعيله بسهولة على ويندوز 10 بس مصطفى كامل الله يرحمه قال ( لا حياة مع اليأس ولا يأس مع من تنادي) وسعد زغلول قال ( مفيش فايدة ) أنا بقى هاقول ( إلحقووووووووووووووووووووووووووووووووني )

السّلام عليكم و رحمة الله و بركاته أخي الكريم " صلاح الدين سعيد " أنصحك لوجه الله .. إذا لم يحل لك المشكلة الأخ الغالي " ياسر العربي " .. فمن الصعب .. أقول من الصعب .. تحل المشكل بسهولة إذن عليك ..بياسر العربي .. خالص إحتراماتي

وده اجتهدت وغيرت فيه بما يتوافق مع احتياجي يمكنك الاستعانة بما يخدم عملك وغير ما يلزم Mov Details Husary.rar

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

أخى عبدالعزيز الحمد لله ان كل شىء تمام أخى ياسر كل الشروحات اللى فى الموضوع ده تعمل على النسخه 2010اللتى تم وضع رابط لها باذن الله هذا والله اعلم اما بالنسبه ل vb.net فانا منزل النسخه 2012 ولم يصادفنى اى اخطاء فى التسطيب وكمان بها بعض التحسينات والاضافات اللتى لم الحظ منها غير شىء بسيط لمتابعة درس بسيط وهو سهولة اعداد البرنامج الذى نعدى ليعمل على اى بيئه سواء 32 او 64 بت جزاكم الله كل خير احبابى فى الله ما هذا الجمال ابانا الغالى ابو يوسف خطك قمه فى الجمال وكلمات فى منتهى الروعه جزاك الله كل خير وبارك الله لنا فيك ولك فى اهلك ومالك وكل من تحب لا تطيل غيابك عنا ابانا الغالى تقبل تحياتى

استبدل الكود بهذا (لا يسمح بتحديد الخلايا التي تحتوي غلى معادلة- لعدم العيث بها عن طريق الخطأ) Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row >= 5 And Target.Column <= 11 And Target.Count = 1 Then _ Target.Offset(0, 1).Select If Target.Column = 9 Then Target.Offset(0, 2).Select If Target.Column = 11 Then Target.Offset(1, -9).Select End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 10 Then If Target.Row >= 4 Or Target.Row <= 15 Then Target.Offset(0, 1).Select End If End Sub

أخي الغالي ياسر العربي .. مالك قافش ليه .. Take It Easy يا عزيزي لا تلقيح ولا تنقيح .. ولا تأنيب ولا أنابيب .. لا يوجد أي من هذه الأفكار التي تدور برأسك وافر تقديري واحترامي

اخى ياسر ابوخليل الاخر ياسر العربى ماشاء الله ربنا يكرمه بجد ربنا يعينه ع المصايب اللى احنا عمالين نعملها فى الملفات او تحصل لينا وفى الاخر نرميها عليه

اخي الكريم يرجى توضيح الحماية علي ايه بالتحديد اذا كانت على محرر الاكواد او علي اوراق العمل فدي امرها سهل اما اذا كانت على الملف من الخارج فهتبقي صعبة علينا الا اذا كان الملف بامتداد xls مثلا ممكن افك حمايته ولكن المساحة تشترط ان تكون صغيرة وانت ذكرت 40 ميجا؟!!! وضح المطلوب واي حماية؟؟ وهذه مواضيع فك الحماية لاوراق العمل محرر الاكواد http://www.officena.net/ib/topic/66742-فك-حماية-محرر-الاكواد-وحماية-اوراق-العمل/ http://www.officena.net/ib/topic/66951-فك-حماية-محرر-الاكواد-xlsm-xlsb-بدون-تحويل-الملفات-ل-xls/ دي ثقة كبيرة حبيبي الغالي عبد العزيز اعتز بها ومن الممكن ان نجد من هو افضل مني في مجال تكسير وضرب ملفات الاكسيل تقبل فائق احترامي

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

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

القديم عفا عليه الزمن وإن لم نواكب الجديد الآن فمتى نواكبه ؟! هذا مجرد رأي وننتظر بقية الآراء من إخواننا الكرام

بدأت تطلع قماش !! بارك الله فيك أخي وحبيبي أبو القبطان وجزاكم الله خير الجزاء تقبل تحياتي

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

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

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

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

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

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

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

جزاكم الله خير الجزاء للمتابعه والردود الكريمه فعلا التصميم بيظهر في اختيارات 2007 شكرا جدا

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

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

أخي الحبيب / ياسر بارك الله فيك وجعلني عند حسن ظنكم أعذرني ، بل اعذروني جميعا للإنقطاع أنا متابع خفيف فقط هذه الأيام لانشغالي شبه الدائم لو تيسر وقت أدخل طبعا وأشارك

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

وعليكم السلام و رحمة الله و بركاته ... If DCount("*", "tp") = 0 Or DLast("[id]", "tp") = 11 Then txt1 = 1 Else txt1 = DLast("[id]", "tp") + 2 txt1.Requery End If . . . كرار ...

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

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

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

قم بتصوير خلية أو عدة خلايا واعرض الصورة في الفورم cells camera in form.rar

عن طريقة المعادلة OFFSET =OFFSET($A$6;-(ROW(A1)-1);0)

يا عزيزي يا " أحمد يا فلاحجي " يبدو أنّ الوقت جد متأخر و أنّك بدأت تتعب أنصحك بالذهاب إلى النوم لتنال قسطًا من الراحة الرابط الذي الذي أرسلته عبارة عن دوّامة .. أذهب إليه يرجعني هنا .. أرجع هنا يأخذني هناك فائق إحتراماتي خلاص تم الوصول إليه أخيرًا و الحمد لله ..معذرة عزيزي

عن طريق المعادلة INDEX =INDEX($A$1:$A$6;ROWS($A$1:$A$6)-ROWS($A$1:$A2)+1)

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

السّلام عليكم و رحمة الله و بركاته بارك الله فيكم جميعًا على الشّروحات المميّزة .. و آرائكم المحترمة إذا كان بإمكانك أخي الغالي " ياسر العربي " تخلينا بإذن الله ننجز و لو تطبيقات بسيطة .. و لا تتركنا بمنتصف الطريق ..فأنا أوّل الموافقين أمّا أنْ أبقى أجدّف بمجاديف مكسّرة في بحر عميق مع أخي العزيز " محمّد حسن المحمّد " لوحدنا .. بهذه الحالة أفضل الفيجوال بيسك 6 على كل حال .. رأيي من رأي الجماعة .. فائق إحتراماتي

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

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

ان شاء الله عند عودتى من عند دكتور الاسنان سوف اقوم بفحص طلبك وعمل ما يمكننى عمله لك فاننى مبتدء مثللك تقبل تحياتى ومرورى

أخي الكريم محيي الدين قم بإزالة علامة الصح الموجودة بجوار الخيار Missing ثم ابحث عن الخيار Microsoft Word والرقم يختلف من نسخة أوفيس لأخرى .. 16 تعني الإصدار 2016 .. ستجد لديك نسخة مختلفة من ثم يجب اختيار المكتبة المناسبة للنسخة التي لديك دققت اكثر في الصورة فوجدت المكتبة 15 مضافة بالفعل .. يكفي أن تقوم بإزالة علامة الصح من جانب المكتبة التي بها كلمة Missing أي مفقود وغير موجود تقبل تحياتي

ألف شكر .. أخي الغالي " ياسر خليل أبو البراء " أنا كذلك قمت بتجربة VB.NET ..و لم تصادفني أي مشكلة .. و هي طبعًا الأفضل حاليا و المعمول بها .. لكن فقط تحتاج إلى خبراء معنا لنعتمد عليهم و نلجأ إليهم بإذن الله بالنسبة لل VB6 .. عندي نسخة إنجليزية ممتازة ..من جميع النواحي ..بروفيسيونال كاملة و الكمال لله .. هذا رابط تحميلها : http://www.4shared.com/file/pj0Btorlce/VBPRO.html

cells camera in form.rar إن شاء الله الملف ما فيه مشاكل

حبيبي وائل وحشنا ياريس فينك من زمن ورينا بقي العودة بقوة دي خلي بالك من ابواب المنتدى تكسر من القوة

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

السلام عليكم ورحمة الله وبركاته وجدت هذه الدالة اثناء تجولي وحبيت ان اضع عليها مثال هنا لمن قد يبحث عنها الدالة هي FILELEN وهذا ببساطة شكل الدالة FileLen( file_path ) الدالة تحضر حجم الملف بالبايت .. وبإمكاننا التحويل الى ما نريد بعد ذلك هنا طرق التحويل المعروفة للجيمع . 1 Byte = 8 Bit 1 Kilobyte = 1,024 Bytes 1 Megabyte = 1,048,576 Bytes 1 Gigabyte = 1,073,741,824 Bytes 1 Terabyte = 1,099,511,627,776 Bytes في المرفق انا حولت الى كيلوبايت .. اترككم مع المثال .. فك الضغط على الدرايف D للتجربة وبعدها بإمكانك النقل الى اي مكان كل ما عليك هو معرفة المسار والإمتداد بالتوفيق للجميع fileSizeDemo.rar

رابط الفيجوال بيسك 6 كامل من رفعي لمن يعانون من مشاكل التنصيب يرجى تشغيلة كمسئول يعمل علي ويندوز 8 64 و7 32 واكس بي بجميع اصدراتها هذا ما تم تجربته عليه http://www.mediafire.com/download/b7r034dv0vcba0h/VB6.0+Enterprise.rar هل جربت هذه النسخة هذه التي اعمل عليها دائما

منتدى أوفيسنا الحبيب إضغط على Officena Officene.rar

بسم الله الرحمن الرحيم ادرج اليكم ملف اكسل عن الإصدار الرابع من اعداد xlfdic و هو بالتأكيد مفيد جدا و إن شاء الله تستفيدوا منه و اردت اضافته و لما به من شرح جميل لعدد كبير من الدوال التي نحتاجها ملحوظه:- قد يكون ادرج في الموقع منذ زمن الإصدار الاول و لكن رأيت اعداد الموضوع لإستفاده الجميع او للتذكير به XLFDIC04.zip

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

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