khaled_1960

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

ألسادة / اعضاء المنتدي الكرام أرجو منكم السماح لى بأعادة طرح هذا الموضوع من جديد لقد قمت بمراجعة كافة الملاحظات التي وردت سابقا و أن شاء الله اكون قد وفقت في حلها و ترتيب الملف بشكل جيد و أتمني ان يعمل الملف عند الجميع بشكل جيد المرفقات ========== Copy And Paste 2015.rar ==========

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

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

عزيزي تفضل تحميل الملف الجديد أن شاء الله يعمل بشكل جيد

عزيزي تفضل ملف معدل بأستخدام TextBox أرجو أن يعمل بشكل جيد معك

أخوتي الاعزاء حفظكم الله نتيجة الشكوي المتكررة من الملف السابق قمت بتعديل الملف كاملا مع استخدام عدد 2 TextBox مما يجعل الملف يعمل بشكل أسهل التوضيح الوحيد هو عند الخطأ في تحديد المدي أو القيام بتنفيذ أمر جديد لابد من استخدام زر Clear Range قبل تنفيذ الامر الجديد أو تعديل المدي أتمني أن يعمل الملف لدي الجميع بدون مشاكل المرفقات: الملف المعدل =============== Copy & Paste Final.rar =============== ​ مع تحياتي

السادة الكرام علي ما أعتقد حل هذه المشكلة كما يلي ++++++++++++++++++++++++ To work around this problem, add a reference to the Microsoft Office SOAP Type Library 3.0 in the VBA project. To do this, follow these steps: In the VBA editor, click References on the Tools menu. The References - VBAProject dialog box appears. Click to clear the MISSING: Microsoft SOAP Type Library v3.0 check box. Click Browse. The Add Reference dialog box appears. Locate and then click the Mssoap30.dll DLL that is included with Office 2003, and then click Open. A reference to the Microsoft Office SOAP Type Library 3.0 is added in the References - VBAProject dialog box. Click OK, and then run the project

الاخوة الكرام أعضاء المنتدي مرفق لكم تعديل للملف السابق على ما أعتقد أنة سيكون اسهل في التعامل عن الملف السابق خاصة في عملية تحديد النطاق و الصفحة +====================== Copy and past200.rar +====================== أرجو أن أكون قد وفقت في هذا العمل

أرجو منك تحميل الملف الجديد و أعلامي بأي مشكلة ألف شكر لك على ملاحظتك

الاخوة الكرام أعضاء المنتدي مرفق لكم تعديل للملف السابق على ما أعتقد أنة سيكون اسهل في التعامل عن الملف السابق خاصة في عملية تحديد النطاق و الصفحة +====================== Copy and past200.rar +====================== أرجو أن أكون قد وفقت في هذا العمل

الاخوة الكرام توضيح للملف المرفق من خلال (ComboBox) الاول نختار الصفحة التي نريد نسخ البيانات منها من خلال (ComboBox) الثاني نختار الصفحة التي نريد نسخ البيانات اليها أسفل كل واحد منهم نحدد المدي المطلوب نسخة (G1:G10) مثلا في (TextBox) المراد نسخة مقابل له نحدد مكان لصق البيانات المطلوبة (F15:F25) و هكذا مع ListBox الثاني نضغط على زر النسخ أرجو من كل واحد يشاهد الملف أن يقوم بعمل تعليق لكي أري مدي فعالية الملف شكراً لكم

أخوتي الكرام اقدم لكم هذا الملف الذي يحتوي علي (User Form) يثقوم بعملية نسخ بيانات من أي صفحة الي أي صفحة مع تعدد المدي يمكن لكم أضافة اكثر من مدي بتعديل الفورم و بطؤيقة سهلة جدا كما يمكن اللصق في أي مكان بالصفحة الفكرة تمت بناء على طلب من احد الاصدقاء أتمني أن ينال أعجابكم أرجو منكم أن لا تنسوا الدعاء لى فأنا في أمس الحاجة لهذا الدعاء أشكركم و أتمني لكم التوفيق و يحفظكم الله من كل مكروة المرفقات ================ Copy and past.rar =============== المشاركة القادمة للمهندسين و شركات المقاولات (Monthly Payments) أوعدكم أن يكون هناك أشياء مميزة فية

عزيزي ياسر الفكرة كلها عبارة عن القيام بتسجيل عدد 2 ماكرو اول ماكرو تقوم بتسجيلة عن طريق Developer Record Macro review Protect Sheet ضع علامة صح امام ما تريد حمايتة لاتقم بوضع كلمة سر للحماية اتركها فارغة ثم OK اوقف تسجيل الماكرة سجل ماكرو جديد نفس الخطوات لكن عند الوصول الي review ازال الحماية بالضغط Protect Sheet قثط اوقف التسجيل Alt F11 ستجد فيهم عدد 2 ماكرو للحماية و ازالة الحماية المطلوب بعد ذلك أن تضع كلمة سر للحماية ActiveSheet.Protect Password:= “yara”, DrawingObjects:=True (etc) لتشغيل الحماية ضع حماية الكل في ThisWorkbook بعد ذلك لابد أن نعمل لوب لحماية كافة الاوراق Dim ws As Worksheet For Each ws In ActiveWorkbook.Sheets (protect code ) هنا ستجدة ضمن الماكرو الذذي قمت بتسجيلة Next ws لكن لا تنسي ايقاف ومض الشاشة في الاول و في اللنعاية تعيد تشغيلة (Application.ScreenUpdating = False) بنعمل ماكرو لفك الحماية بالاستعانة بالماكرو الثاني الذي قمنا بتسجيلة في الاول ونتيجة لقيام البعض بتغيير اسم الورقم فأنة من الافضل الحماية باسم الورقة و حماية بكود الاسم (علي سبيل المثال) Sheet1(Sheet1) ...... Sheet1(Data) الاسم الاول عبارة عن كود الاسم و الجزء الثاني عبارة عن أسم الورقة بالتالي الحماية عن طريق الاثنين حتي اذا تغير اسم الورقة يكون كود الورقة شغال الان يتم استبعاد ورقة بدون حماية Sub Protect_Name_Exclude_If() هذه فكرة العمل بشكل سريع و يمكن لك تتبع الخطوات و أرجو منك القيام بتسجيل اكثر من ماكرو و تغيير الاختيارات في كل مرة و شاهد الاختلاف أرجو أن اكون قد وضحت لك ما تريد الف شكر لك

اخوتى الكرام السلام عليكم مرفق ملف يحتوي على طريقة لحماية جميع اوراق العمل عن طريق ماكرو كلمة فك حماية الصفحات yara عن طرق الذهاب الي review protect sheet أتمني أن ينال اعجابكم المرفقات: ======== Protect Sheets.rar ========

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

السلام عليكم بخصوص الملف الذي أرفقتة لتحديد مسار الصورة أذهب الي المجلد الذي يحتوي على الصور و اختار أي صورة بالزر الايمن للماوس اختار خصائص من لوحة الخصائص يوجد موقع الملف أنسخة كما هو ضع المؤشر في المكان المخصص لمسار الصورة و اذهب الي Formal Bar في أعلي الصفحة والصق المسار قبل أي شئ بعد عملية اللصق ضع هذه العلامة في أخر السطر (\) هام جداً لا تقوم بلصق المسار في الخلية مباشرة جرب ذلك و انا تحت أمرك في أي ملاحظة

السلام عليكم و رحمة الله مرفق لكم ملف بسيط يحتوي على طريقة نقل بيانات من أي خلية الى أي خلية بمعلومية رقم الخلية و ترتيب الصفحات يمكن أن يسهل عملية القص و اللصق لكثير من الاعمال أرجو أن ينال اعجابكم ===== Copy & Past.rar ===== للجميع

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

الاخوة / أعضاء منتدي أوفسينا حفظهم الله مع تحياتي لكم ارجو من الجميع مشاهدة المشاركة التالية لي و اعطاء اي ملاحظات لديكم مع الشكر

أخي الفاضل أبو الحسن و الحسين حفظة الله أخي الفاضل المشاغب 301 حفظة الله اشكركم و أثمن لكم ردكم و اقتراحكم و هنا لابد أن أقدم أعتذاري عن تأخري في الرد عليكم و لكن ما يبرر ذلك هو وضع الكهرباء عندنا هنا في قطاع غزة حيث أن الكهرباء جائت 5 ساعات خلال اليومين الماضين مرفق لكم ملف جديد مع ميزات جيدة يمكن اضافة أي عدد من الصفحات دون الحاجة الي أي تعديل في الاكواد اضافة الصلاحيات لعدد 7 صلاحيات عن طريق فورم "يمكن لكم اضافة عدد أخر بالدخول الي الفورم و اضافة العدد المطلوب لكم" اضافة و تعديل بينات المستخدمين من الاسم و كلمة المرور عن طريق الفورم أيضا البحث عن اسم المستخدم بعدة طرق عن طريق الفورم ملاحظة أول خانة في الفورم يتم وضع أول حرف من اسم المستخدم لترتيب الاسماء حسب الابجدية أرجو أن ينال اعجابكم و يفي بما تم طلبة في الختام أرجو منكم الدعاء لوالدي و الي أخي د.جمال رحمة الله عليهما المرفقات: +++ FINAL DATA_20.rar ++++

ألف شكر لك

اخي العزيز المشاغب 301 من أجل أضافة صفحات للصلاحيات يتوجب عليك عمل التالي اضافة عدد من الاعمدة بعدد الصفحات المطلوبة وذلك بالوقوف بالفأرة عند أخر عامود لصفحات الصلاحية و من المفترض انة العامود (K) ضع المؤشر على العامود (L) و بالزر الايمن اضف عدد من الاعمدة يساوي عدد الصفحات المطلوب اظهارها للشخص بعد ذلك ادخل الي محرر الاكواد (ALT+F11) كلمة المرور للكود (////yara) اذهب الي frmLogin افتح الاكواد عن طريق الضغط مرتين في أي مكان من Form اذهب الي الجزء الذس يبدأ بـ Private Sub cmdCheck_Click() ثم أذهب للجزء التالي If user <> "" And Not IsNumeric(user) And Code <> "" And IsNumeric(Code) Then For Each AName In Sheet2.Range("T8:T108") 'If AName = Code Then 'Use this for passcode text يتوجب عليك تغيير (T8) الي العامود الجديد الخاص بكلمة المرور للمسؤول علي سبيل المثال لو اضفنا عدد 3 اعمدة سوف تكون علي النحو التالي (W8:W108) هذا الجزء خاص بترعيف كلمة السر للمسؤول نأتي للخطوة الثانية اذهب الى الاسفل في محرر الاكواد حتي تصل الي ما يلي 'unhide worksheet for user If PName.Offset(0, 3) <> "" Then Set ws3 = Worksheets(PName.Offset(0, 3).Value) ws3.Visible = True End If وهذا الجزء مخصص لتعريف الصفحة المطلوب الصلاحية لها اعمل نسخ لهذا الجزء و اضافتة بعد كلمة End if كرر النسخ لعدد الاعمدة ثم ابداء بتغيير الرقم الموجود في المثال التالي هو للصلاحية رقم 3 ضعها 4 لتكون للصلاحية رقم 4 يجب تغير كل رقم 3 برقم 4 (أي أربع أرقام) (ws3) تحول الي ((ws4) وهكذا لعدد الصلاحيات المطلوبة أخر خطوة اذهب للسطر التالي في محرر الاكواد و سوف تجدة في الاول (Dim ws As Worksheet, ws2 As Worksheet, ws3 As Worksheet) هذا لتعريف ان (ws) هي عبارة عن صفحة اضف (,ws4 As Worksheet) و هكذا لكل صلاحية ايضا مرفق لك ملف معدل أردو أن اكون قد قدمت شئ متواضع لك و ان أكون قد أوفيت لك طلبك ===== Login with new sheet.rar =======

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

اخي العزيز المشاغب 301 يحب عليك الدخول كمسؤول و ثم اضافة الاوراق المطلوبة و بعدها يتم اضافة أسم الاوراق في المكان المخصص لها في العامود Q ثم اذهب للشخص المطلوب و ضع له صلاحية للصفحة الجديدة و اعمل حفظ ادخل مرة اخري بالشخص المطلوب و سوف تظخر لك الصفحة أن شاء الله لفتح صفحة المعلومات Alt F11 اختر الصفحة Login اعمل لها اظهار بعد ذلك لا تنسي ان تغلقها مرة اخري اتمني التوفيق لك