هادى محمد المامون سالم

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

بسم الله الرحمن الرحيم ربنا يبارك لك اخى ياسر على هذا الموضوع المفيد و باربت تعفينى من الواجب السلام عليكم

بسم الله الرحمن الرحيم تم التعديل بالملف المرفق السلام عليكم Copy_To_Form.rar

بسم الله الرحمن الرحيم يجب وضع الكود داخل اجراء Workbook_Open مرفق الملف بعد التعديل السلام عليكم Book1.rar

بسم الله الرحمن الرحيم أستخدم الكود التالى و سيعمل معك ان شاء الله Sub Disable() Application.OnKey "{F12}", "Msg" End Sub Sub Msg() MsgBox "مفتاح الحفظ لا يعمل" End Sub السلام عليكم

بسم الله الرحمن الرحيم وجدت لدى الاكواد التاليه تعمل على اكسيل 2003 و لم تعمل معى على 2007 لاطفاء مفتاح Save As Sub File_DisEable() CommandBars("Worksheet menu bar").Controls("File").Controls("Save As").Enabled = False End Sub و لاعادته مره اخرى Sub File_Enable() CommandBars("Worksheet menu bar").Controls("File").Controls("Save As").Enabled = True End Sub و اذا كان الاكسيل بالعربى استبدل "File"ب "ملف" و هكذا و لالغاء عمل مفتاح F2 Sub F12_Disable() Application.OnKey "%{F12}", "" End Sub و لاعادته مره اخرى Sub F12_Enable() Application.OnKey "%{F12}" End Sub السلام عليكم

بسم الله الرحمن الرحيم هل المطلوب تعطيل مفاتيح الحفظ ؟ السلام عليكم

بسم الله الرحمن الرحيم جرب الملفات على جهاز كمبيوتر مختلف و اذا جدثت مشكله استبدل سطر المشكله For i = 2 To Workbooks("Data1").Sheets("Sheet1").ER بالسطر For i = 2 To 1000 السلام عليكم

بسم الله الرحمن الرحيم لقد جربت الكود مره اخرى و هو يعمل بشكل جيدوعليك العمل على الملفات التى قمت بارفاقهاو التاكد من فتح ملف Data1 اولا , و اذا تكرر الخطا قم باستبدال كلمهٌُER برقم اخر سطر تريد استيراد بياناته من ملف Data1 و ليكن 1000 مثلا السلام عليكم

بسم الله الرحمن الرحيم تم تعديل اختصار كودالمشاركه الاولى مع اضافه كود لاظهار الصفوف المخفيه مره اخرى Sub DOIT() Un_Hidden For i = 8 To 21 If Cells(i, "C") = "" And Cells(i, "D") = "" _ And Cells(i, "E") = "" And Cells(i, "F") = "" _ And Cells(i, "G") = "" And Cells(i, "H") = "" _ And Cells(i, "I") = "" Then Rows(i).Hidden = True End If Next i End Sub Sub Un_Hidden() For i = 8 To 21 Rows(i).Hidden = False Next i End Sub مرفق ملف السلام عليكم Hide_Rows.rar

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

بسم الله الرحمن الرحيم لاستيراد البيانات أستخدم الكود التالى Sub DOIT() Columns("A:B").Clear Dim i, cnt As Integer cnt = 1 For i = 2 To Workbooks("Data1").Sheets("Sheet1").ER Sheets("Sheet1").Cells(cnt, "A") = Workbooks("Data1").Sheets("Sheet1").[A1] Sheets("Sheet1").Cells(cnt, "B") = Workbooks("Data1").Sheets("Sheet1").Cells(i, "A") Sheets("Sheet1").Cells(cnt + 1, "A") = Workbooks("Data1").Sheets("Sheet1").[B1] Sheets("Sheet1").Cells(cnt + 1, "B") = Workbooks("Data1").Sheets("Sheet1").Cells(i, "B") Sheets("Sheet1").Cells(cnt + 2, "A") = Workbooks("Data1").Sheets("Sheet1").[C1] Sheets("Sheet1").Cells(cnt + 2, "B") = Workbooks("Data1").Sheets("Sheet1").Cells(i, "C") cnt = cnt + 4 Next i End Sub مرفق الملفان بعد التعديل و اضافه مفتاح لاستيراد البيانات فى ملف Data2 و يجب فتح ملف Data1 و المجال مفتوح لاستيراد مئات البيانات السلام عليكم Import Data.rar

بسم الله الرحمن الرحيم الله يبارك لك اخى ابوتامر السلام عليكم

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

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

بسم الله الرحمن الرحيم اخى aysam لا اجد كلام لأرد على ادبك السلام عليكم

بسم الله الرحمن الرحيم يمكنك وضع كود الحمايه عند بدايه تنفيذ الكود تفاديا لحمايه المفاتيح يمكنك فك حمايه الصفحه ثم الترحيل ثم أعاده حماينها مره اخرى مرفق ملف يقوم بحمايه الكود بكلمه مرور ثم فك حمايه ورقه العمل ثم الترحيل من ورقه العمل الاولى الى الثانيه ثم اعاده حمايه ورقه العمل كلمه السر و كلمه الحمايه هى 123 Sub DOIT() RESTART: My_InputBox = InputBox("أدخل كلمه المرور و هى : 123") If My_InputBox = "" Then GoTo RESTART Else If My_InputBox = 123 Then MsgBox "كلمه السر صحيحه" Sheets("Sheet2").Unprotect (123) Sheets("Sheet2").[A1] = Sheets("Sheet1").[A1] Sheets("Sheet2").Activate Sheets("Sheet2").Protect (123) Sheets("Sheet1").[A1] = Sheets("Sheet1").[A1] + 1 MsgBox"تم الترحيل" Else MsgBox "كلمه السر غير صحيحه أعد المحاوله" GoTo RESTART End If End If End Sub السلام عليكم protect.rar

بسم الله الرحمن الرحيم اخى ايثم : الكود صحيح لكن يوجد مسافه بعد workbook لذلك لم يعمل معى و يمكن اضافه حفظ قبل الخروج من الملف Sub Close_File() ThisWorkbook.Save ThisWorkbook.Close End Sub و يمكن أغلاق الاكسيل باكمله بالكود التالى Sub Close_Excel() ThisWorkbook.Save Application.Quit End Sub مرفق ملف السلام عليكم Close.rar

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

بسم الله الرحمن الرحيم اكواد الملف مكتوبه بلغه vb و ليس vba فاذا اردت الكود ممكن ارفاقه يجب عمل اكواد جديدة خاصة بالسيكول لانه لن يفهم اكواد الاكسيل مثلا اذا اردت تعديل سجل فى السيكول يجب تحديد قاعده البيانات اولا ثم الجدول ثم السجل بالكود التالى use Database update Table set [Record] = 2 where [Record] =1 Database=ملف الكسيل Table=ورقه العمل Record=الخليه طبعا الكود فى الاكسيل سيكون مختلف السلام عليكم

بسم الله الرحمن الرحيم و افضل طريقه للتعامل مع بيانات SQL وربطها مع vba هى ربط جدول السيكول مع ورقه عمل بالاكسيل ثم التعامل معها ثم اعاده تحديثها السلام عليكم

بسم الله الرحمن الرحيم افتقدنا اخينا و مشرفنا الحبيب نزار سليمان عيد اتمنى ان يكون بخير و اريد ان اضيف ما قام به لخدمه منتدانا : فمن مهمات الاشراف تنقيح المشاركات و نقلها الى اقسامها و قد قام اخى نزار بمفرده باكثر مما قمنا به( كمشرفين و مراقبين) من ثلاثه اضعاف عملنا لمده ثلاثه شهور متواصله السلام عليكم

بسم الله الرحمن الرحيم الاكسيل و SQL قواعد بيانات vb و vba لغات برمجه يتم الربط بيتهما عن طريق ADO لقد قمت بعمل مشابه من قبل على الرابط التالى http://www.officena.net/ib/index.php?showtopic=17291&hl= السلام عليكم

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

بسم الله الرحمن الرحيم لقد قمت بالتحميل و وجدت مشكله فى فك الضغط و لكن تغلبت عليها و لكن المشكله تظهر عند الترقيه , أم يجب الغاء اوفيس 2007 ثم اعاده تنصيب 2010 السلام عليكم