حمادة عمر

السلام عليكم
الاخ الكريم / محمدعشره
بارك الله فيك
علي حسب علمي اخي الكريم انه اذا قمت بعمل حماية للشيت لا يمكنك تحريك الاشكال
او حذفها او التعديل فيها
شاهد المرفق به زر تم ربطة ارتباط تشهبي ( هايبر لينك )
ولا يمكنك تحريكه او حذفه او التعديل عليه
جرب واخبرني بالنتيجة
او قم بارفاق الملف المقصود للوقوف علي الخطأ
تقبل خالص تحياتي
 
 
حماية الاشكال.rar

السلام عليكم

الاخ الفاضل / wella1405
ابحث عن تقويم ام القري للعلامة القدير ( خبور خير )
او ابحث في المنتدي عن التاريخ الهجري واليك بعض من هذه الروابط علها تفي بالغرض

http://www.officena....showtopic=37455
http://www.officena.net/ib/index.php?showtopic=41954&hl=%2B%D8%A7%D9%84%D8%AA%D8%A7%D8%B1%D9%8A%D8%AE+%2B%D8%A7%D9%84%D9%87%D8%AC%D8%B1%D9%8A
http://www.officena.net/ib/index.php?showtopic=44388&hl=%2B%D8%A7%D9%84%D8%AA%D8%A7%D8%B1%D9%8A%D8%AE+%2B%D8%A7%D9%84%D9%87%D8%AC%D8%B1%D9%8A
http://www.officena.net/ib/index.php?showtopic=43268&hl=%2B%D8%A7%D9%84%D8%AA%D8%A7%D8%B1%D9%8A%D8%AE+%2B%D8%A7%D9%84%D9%87%D8%AC%D8%B1%D9%8A
http://www.officena.net/ib/index.php?showtopic=41954&hl=%2B%D8%A7%D9%84%D8%AA%D8%A7%D8%B1%D9%8A%D8%AE+%2B%D8%A7%D9%84%D9%87%D8%AC%D8%B1%D9%8A
http://www.officena.net/ib/index.php?showtopic=42631&hl=%2B%D8%A7%D9%84%D8%AA%D8%A7%D8%B1%D9%8A%D8%AE+%2B%D8%A7%D9%84%D9%87%D8%AC%D8%B1%D9%8A

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

قم اخي الكريم باستبدال الكود الموجود في هذا المودل بالكامل بالكود التالي
وان شاء الله سيعمل معك الملف .. ولم اتمكن في ضبطه بصورة نهائية لان ملفك به اكواد أخري مرتبطه بشيتات غير موجودة
اظن انك قمت بحذفها قبل رفع الملف وهي بالطبع تسبب لدي مشكلة جرب علي ملفك واشعرنا بالنتيجة
مع اني انصحك بتغيير نظام الويندوز لديك الي 32 حيث ان مايكروسوف نفسها تنصح باستخدام الـ 32 عن استخدام الـ 64
تقبل خالص تحياتي
Public Const ENGLISH As String = "09" Public Const ARABIC As String = "01" #If VBA7 Then Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" ( _ ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongPtrA" ( _ ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongPtrA" ( _ ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hWnd As LongPtr) As Long #Else Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long #End If Sub SwitchLayout(Lang As String) Dim Layouts() As Long Dim NoOfLayouts As Long Dim i As Long NoOfLayouts = GetKeyboardLayoutList(0, ByVal 0&) ReDim Layouts(NoOfLayouts) GetKeyboardLayoutList NoOfLayouts, Layouts(0) For i = 0 To NoOfLayouts - 1 If UCase(Lang) = UCase(Right(Hex(Layouts(i)), 2)) Then ActivateKeyboardLayout Layouts(i), 0 Exit For End If Next End Sub  
555555+.rar

السلام عليكم 
الاخ الكريم / S0bhy    بارك الله فيك 
الملف المرفق منك لم اتمكن من فك الضغط الخاص به 
ولكن اليك المرفق اظن به ما تريد ... شاهد المرفق واشعرنا بالنتائج 
( قم بالوقوق علي الصف الذي تريد نسخه بمعادلاته وتنسيقاته في اي خليه فيه ثم اضغط علي الزر الاحمر الموجود بالملف 
ستظهر لك نافذة تتطلب منك عدد الصفوف المراد اضافتها قم بوضع العدد الذي تريد اضافته ثم اضغط موافق ستتم الاضافة ) 
تقبل خالص تحياتي 
 
 
 
 
نسخ واضافة الصفوف المطلوبه بمعادلاتها وتنسيقاته.xls

السلام عليكم 
الاخ الكريم / اياد م    .. بارك الله فيك 
تقبل خالص تحياتي 
اليك نفس الملف الخاص بالقدير الصديق العزيز / يحياوي .. جزاه الله خيرا 
ولكن بتعديل بسيط ليعمل كما تريد ( اغلاق الملف فقط بعد المدة التي تحددها في بنفسك في الكود من خمول الملف ) 
واليك الملف التالي قم بتجربته واخبارنا بالنتائج 
تقبل خالص تحياتي 
 
 
غلف الملف بعد مدة من ترك ملف غير نشط.xls

اخي الكريم 
استخدم هذا الامر 
Private Sub TextBox1_Change() Range("a1").Value = TextBox1.Value End Sub ليكن مثلا ان قيمة التكست المطلوب مرتبطه بالخلية A1
,G;L HGA;V 

السلام عليكم
اخي الكريم
من الافضل دائما عن تقديم اي سؤال ان يتم اضافة مرفق كمثال لما تريده فهو يجعل لطلب اوضح
ليمكن للكثير مساعدتك
شاهد المرفق علي حسب فهمي لطلبك وفي المرفق
( اختار من القائمة في العمود A  واضغط انتر او قم بالخروج من الخلية بالاسهم وشاهد النتيجة في العمود B )
ان شاء الله يفي بطلبك
تقبل خالص تحياتي
 
HAMADA OMAR-DATE.rar

الاخ الكريم / محمود ربيع
بارك الله فيك
الاخ والاستاذ / شوقي ربيع ... جزاه الله خيراً
له موضوع مستفيض في هذه الآداه واظن انه لم يترك عنها شيئاً واظن انه سيفيدك كما تريد
واليك رابط الموضوع
تقبل خالص تحياتي
 

لتنفيذ طلبك اخي الكريم
قم باستبدال السطر التالي الموجود في الكود لديك وهو
Set ws = Worksheets("بيانات") بالسطر التالي
Set ws = ActiveSheet جرب واشعرنا بالنتائج
تقبل خالص تحياتي

السلام عليكم
الاخ الفاضلة / سما محمد
بارك الله فيكي
استخدمي هذا الكود في حدث UserForm_MouseMove  اي النتيجة بالتكستات الصغيرة
ستظهر لكي بعد تحريك الماوس علي الفورم
واليكي الكود والملف المرفق به الحل
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) TextBox30.Value = TextBox1.Value + TextBox2.Value + TextBox3.Value TextBox4.Value = Mid(TextBox30, 1, 1) TextBox5.Value = Mid(TextBox30, 2, 1) TextBox7.Value = Mid(TextBox30, 3, 1) TextBox6.Value = Mid(TextBox30, 4, 1) TextBox9.Value = Mid(TextBox30, 5, 1) TextBox8.Value = Mid(TextBox30, 6, 1) TextBox11.Value = Mid(TextBox30, 7, 1) TextBox10.Value = Mid(TextBox30, 8, 1) TextBox12.Value = Mid(TextBox30, 9, 1) TextBox13.Value = Mid(TextBox30, 10, 1) TextBox15.Value = Mid(TextBox30, 11, 1) TextBox14.Value = Mid(TextBox30, 12, 1) TextBox17.Value = Mid(TextBox30, 13, 1) TextBox16.Value = Mid(TextBox30, 14, 1) TextBox19.Value = Mid(TextBox30, 15, 1) TextBox18.Value = Mid(TextBox30, 16, 1) TextBox20.Value = Mid(TextBox30, 17, 1) TextBox21.Value = Mid(TextBox30, 18, 1) TextBox23.Value = Mid(TextBox30, 19, 1) TextBox22.Value = Mid(TextBox30, 20, 1) TextBox24.Value = Mid(TextBox30, 21, 1) TextBox25.Value = Mid(TextBox30, 22, 1) TextBox27.Value = Mid(TextBox30, 23, 1) TextBox26.Value = Mid(TextBox30, 24, 1) TextBox29.Value = Mid(TextBox30, 25, 1) TextBox28.Value = Mid(TextBox30, 26, 1) End Sub  
فصل حروف الاسم لتكستات بوكس حرف حرف.rar
 

الدروس من الدرس الرابع ... الي ... الدرس السادس
 
كيفية اظهار محرر الفيجوال بيسك الاكسيل4.rar مكونات محرر الفيجوال بيسك 5.rar كيفية التعامل مع محرر الفيجوال بيسك 6.rar  
الدروس من الدرس السابع ... الي ... الدرس التاسع
 
المـــــــاكـــــــــــرو7.rar تابع المـاكـــــرو8.rar تابع المـاكـــــرو9.rar  
الدروس من الدرس العاشر ... الي ... الدرس الحادي عشر
تابع المـاكـــــرو10.rar تابع المـاكـــــرو11.rar  
أرجو من الله ان أكون قد وفقت في توصيل ولو معلومة صغيرة لمن يريدها بخصوص هذا الجزء
تقبلوا خالص تحياتي

تفضل اخي الكريم المرفق به الكود المطلوب ويعميل بطريقة سليمه ان شاء الله
وشاهد البيانات في الصف رقم 520 -521 -522 - 523
تقبل خالص تحياتي
 
 
نقل اسماء الزبائن والكود -sama.rar

السلام عليكم
الاخوة الكرام الاعزاء
هذا الموضوع مخالف اخواني الكرام لقواعد المشاركات
احتراما لحقوق صاحب الملف المغلق
وموضوع فتح ملف اكسيل مغلق برقم سري اعرف انه ليس بالصعب عليكم اعضاء المنتدي الكرام
ولكن هذه بينكم وبين ربكم
 
والاخ  /    alaaelyan
بارك الله فيك
من الافضل ان تقوم بتصميم برنامجك بنفسك او البحث هنا في المنتدي عما يناسبك
حيث ان الملف مادام مغلق برقم سري فان صاحبه لا يريد ان يستخدمه احد الا من خلاله
واحتراما لحقوق الملكية والفكرية
سيتم غلق هذا الموضوع عند هذا الحد
 
==========
الادارة
==========

السلام عليكم
الاخ الكريم / A.El Sheikh
بارك الله فيك
وبعد اذن اخي الحبيب /  طلعت محمد حسن ... جزاه الله خيرا
شاهد اخي المرفق الكريم
ان شاء الله به طلبك ... علي حسب فهمي لطلبك
تقبل خالص تحياتي
 
 
items-SAMA.rar

السلام عليكم
الأخ الكريم / مصطفى أبو ملك
بارك الله فيك
كل شخص يري افضل حماية لملفه بالطريقة التي تناسبه
فالبعض ( الذين لديهم خبرة ) لا يوجد لديهم ما يسمي بأن الملف محمي حيث من السهل كسر حمايته
                                  وخصوصا بعد كود الاستاذ / ياسر خليل -- الخاص بكسر الحماية  ( مخلاش باقي حاجه )
                                  علي الرابط http://www.officena.net/ib/index.php?showtopic=60289
والبعض ( المبتدئين ) اقل نوع من انواع الحماية يكون مثل السد العالي بالنسبة لهم
والآخرين ( المتوسطين ) يتم خداعهم ببعض الطرق والخدع المتعددة
 
وافضل طريقة لحماية الملف ( من وجهة نظري الفقيرة ) هو جعل ملف الاكسيل تنفيذي
مع استخدام الكود المشار اليه في الرابط الموجود في المشاركة رقم 2
 
وبشكل أوضح يكون مثل البرنامج الموجود علي الرابط
http://www.officena.net/ib/index.php?showtopic=56375
للأخوين القديرين  ( ضاحي الغريب - شوقي ربيع )
تقبل خالص تحياتي

السلام عليكم
الاخ الكريم / عاشق الاسلام
بارك الله فيك
بعد اذن اخي الحبيب /  أبوســـارة1973  ... بارك الله فيه
 
اليك هذا الحل لعله يكون المطلوب ... حيث تم تنفيذ الطلب علي وجه السرعه
فعذرا لوجود اي خطأ في فهمي لطلبك
 
تقبلوا خالص تحياتي
 
 
تعديل وطباعة في الفورم عن طريق البحث في الليست.rar

السلام عليكم
الاخ الكريم /  ۩◊۩ أبو حنين ۩◊۩
بارك الله فيك
الموضوع ليس به اي طريقة سوي ان صاحب الموضوع الخاص بكأس العالم
قد قام بكتابة كل المطلوب لبيانات ملفه ب 3 لغات الموجودة فيه وذلك في الورقة رقم 2  ( Feuil2 )
 
ويتم استدعاء الكلمات والجمل بناءا علي الاختيار من الكومبوبكس الخاص باختيار اللغة ليتم تحويل كل البيانات للغة المطلوبة
وذلك باستخدام الدوال العادية مثلا  دالة INDEX
 
ارجو ان تكون قد اتضحت الفكرة
وان اردت ارسل لك  هذا الشيت الموجود في هذا الملف
تقبل خالص تحياتي

شاهد المرفق التالي ... ان شاء الله به طلبك
تقبل خالص تحياتي
 
افتح الفورم واكتب القيمة المطلوبة في تكست بوكس 2 و 3 .... ثم اضغط الزر الموجود بالفورم
وشاهد النتيجة
او مزيد من التوضيح
 
اضهار الخلايا بالفورم11.rar

ع السريع ..
شاهد هذا التعديل البيسط جدا علي الزر في الصفحة الرئيسية
 
mohammed.rar

السلام عليكم
الاخ الكريم /  احمد ابوزيزو
 
شاهد الرابط التالي
http://www.officena.net/ib/index.php?showtopic=46419&hl=%D8%A7%D9%84%D8%A7%D8%B1%D8%AA%D8%A8%D8%A7%D8%B7%D8%A7%D8%AA
 
او
 
http://www.officena.net/ib/index.php?showtopic=45893&hl=%D8%A7%D9%84%D8%A7%D8%B1%D8%AA%D8%A8%D8%A7%D8%B7%D8%A7%D8%AA
 
ان شاء الله تجد به طلبك ... علي حسب فهمي للطلب
تقبل خالص تحياتي

السلام عليكم
الاخ الكريم / انسان
بارك الله فيك
اليك اخي الكريم ما طلبته ...
كل ما عليك هو اختيار رقم الفاتورة التي تريد الاستعلام عنها من القائمة في الكومبوبكس
واي تعديل او استفسار او طلب ... معك دائما باذن الله
 
** الكود الموجود بالمرفق به شرح لكل سطر فيه بالتفصيل ( الكود المستخدم ..كود باقشيري كاملا )
ولكن تم التعديل عليه ليتناسب مع ملفك
حيث قمت باستخدام الاكواد الموجودة في موضوعي ( ان اردت الاستزادة وتعلم الطريقة )
 
طريقة عمل ( فورم ) فاتورة ووضع اكوادها وترحيل بياناتها واستدعائها وطباعتها !! خطوة خطوة
 
تقبل خالص تحياتي
 
طلب كود استدعاء بيانات فاتورة.rar

بارك الله فيكم
تقبلوا خالص تحياتي

السلام عليكم
الاخ الحبيب / أحمد فؤاد
بارك الله فيك
بالفعل كما ااشار اخونا الحبيب /  إبراهيم ابوليله
ارفاق ملف يوضح المطلوب كما تريد
ولحين ارفاق الملف
 
شاهد الرابط التالي المشاركة رقم 39
http://www.officena.net/ib/index.php?showtopic=46420&page=2
 
وايضا نفس الموضوع المشاركة رقم 61
http://www.officena.net/ib/index.php?showtopic=46420&page=4
 
بها بعض الاكواد المتعلقة بهذا الشأن مع شرح الاكواد في المرفقات الموجودة بهما
 
تقبلوا خالص تحياتي

السلام عليكم
الاخ الكريم / ۩◊۩ أبو حنين ۩◊۩
بارك الله فيك
بعد اذن اخي الفاضل /  وليد فتحي ... جزاه الله خيرا
استخدم التعديل التالي علي الكود الخاص بك لتنفيذ طلبك
Sub delete_datas() Application.ScreenUpdating = False sama = MsgBox("سيتم حذف بيانات الشيتات الأربعة (الاتوبيس-طائرة-مطروح-تعديل)... هل أنت متأكد من إجراء هذه العملية ؟", vbYesNo) If sama = vbYes Then '============================= On Error Resume Next For i = 2 To Sheets.Count Sheets(i).Select ActiveSheet.Unprotect ("1") Next i '============================= For Each Sh In Worksheets If Sh.Name Like "تعديل" Or Sh.Name Like "الاتوبيس" _ Or Sh.Name Like "مطروح" Or Sh.Name Like "طائرة" _ Then Sh.Select: Range("B5:B40" & ",H5:H40" & ",J5:J40" & ",O5:O40").ClearContents Next Else MsgBox "!! لم يتم التفريغ" End If '============================= On Error Resume Next For i = 2 To Sheets.Count Sheets(i).Select Sheets(i).Select ActiveSheet.Protect ("1") Next i '============================= Application.ScreenUpdating = True Sheets("عام").Select End Sub وان شاء الله سينفع معك
او قم بوضع ملف كمثال للعمل عليه
تقبل خالص تحياتي
وجرب علي المرفقات
 
 
 
تنفيذ كود مسح بيانات من شيتات مع حماية هذه الشيتات.rar