كود تعطيل مفاتيح الاختصار

[محمود ربيع]

السلام عليكم ورحمة الله وبركاته

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

[محمود ربيع]

السادة المحترمين احتاج الي علمكم الذاخر مرة اخري

احتاج الي كود يقوم بترحيل بيانات صف محدد في شيت 1 الي صف في شيت 2 بشرط ان يكون الصف المرحل اليه يشمل في اخره علي القيمة 1 كما هو موضح بالمرفق.

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

ترحيل صف بشرط.rar

[حمادة عمر]

الاخ الكريم / دكتور محمود ربيع

 

بارك الله فيك

بالنسبة لطلبك بخصوص الترحيل

فالملف المرفق ليس به اي مثال علي ما تريد فهو ملف لتحريك نص في خليه

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

بناءا علي قيمة خلايا في عمود محدد ....

ان كان كذلك شاهد المرفق التالي به مثال علي ذلك باستخدام الكود التالي

Sub sama()
Dim LastR As Long
Application.ScreenUpdating = False
LastR = Sheets("Sheet2").Cells(Rows.Count, 14).End(xlUp).Row
Sheets("Sheet2").Select
Sheets("Sheet2").Range("A1:n" & LastR).AutoFilter Field:=14, Criteria1:="1"
Sheets("Sheet1").Range("a1:m1").Copy
Sheets("Sheet2").Range("A2:m" & LastR).SpecialCells(xlCellTypeVisible).PasteSpecial
Sheets("Sheet2").Range("A1:n1").AutoFilter
Sheets("Sheet2").Range("A1").Select
Application.ScreenUpdating = True
End Sub

واليك الملف المرفق به المطلوب ....

جزاك الله خيرا

 

كود ترحيل صف محدد.rar

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

بسم الله الرحمن الرحيم

 

لتعطيل مفتاح ALT +F11 استخدم الكود التالى

Sub Disable()
        Application.OnKey "%{F11}", ""
End Sub

مرفق ملف

 

السلام عليكم

Disable.rar

تم تعديل مايو 4, 2013 بواسطه هادى محمد المامون سالم

[حمادة عمر]

الاستاذ القدير / هادى محمد المامون سالم

بارك الله فيك

اروع ما في الموضوع هو وجودك بيننا هذه الايام

جزاك الله خيرا

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

 

الاستاذ القدير / هادى محمد المامون سالم

بارك الله فيك

اروع ما في الموضوع هو وجودك بيننا هذه الايام

جزاك الله خيرا

 

بسم الله الرحمن الرحيم

مشكور اخى حماده

السلام عليكم

[احمدزمان]

السلام عليكم و رحمة الله وبركاته

 

استاذي الكبير / هادي

 

سررت جدا بوجودك في المنتدى

 

جزاك الله كل خير

[محمود ربيع]

استاذي المحترم / حمادة عمر

اشكرك شكرا جزيلا ، ولا يوجد بداخلي اية معاني لكي توصف مدي سعادتي بردك ولا املك غير الدعاء لك

اللهم انفعه بعلمه وبارك له في صحته وفي ماله وعرضه واولاده ، واكفه شر عبادك يارب العالمين اللهم امين

عجز لساني عن الشكر يا استاذي واكثر الله من امثالك

وعندي استفسار بسيط

هل يمكن تعديل كود مفتاح الاختصار بحيث يكون بمجرد فتح فايل الاكسل وليس بالضغط علي زر

[محمود ربيع]

نقلا عن الاستاذ حمادة عمر

حمادة عمر -- اليوم, 02:26 م

الحل لطلبك تم علي الرابط

http://www.officena.net/ib/index.php?showtopic=46752&p=280804

ليكون الرد في مكانه ... لزيادة الافادة للجميع وسهوله البحث

[حمادة عمر]

 

الاخ الكريم / دكتور محمود ربيع

بارك الله فيك وجزيل شكري علي كلماتك الراائعة

بالنسبه للطلب الأخير بخصوصو تشغيل الاختصار عند تشغيل الملف قم بوضع الكود في حدث الملف ThisWorkbook

كما يلي

Private Sub Workbook_Open()
  Application.OnKey "%{F11}", ""
End Sub

جزاك الله خيرا

[محمود ربيع]

الباشا / حمادة عمر تحياتي المعطرة بافضل الكلام... بتحية الاسلام ... السلام عليكم ورحمة الله وبركاته

اشكرك علي مجهودك الرائع واهتمامك بالرد عليا

جميع ردودك اوفت بالغرض وزيادة

اشكرك لكرمك

ولكرم اخلاقك وجزاك الله كل خير

[محمود ربيع]

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

ولك جزيل الشكر علي اهتمامك جزاك الله عنا خيرا ويجعلك من اهل اليمين ومن المستظلين بظله يوم الدين

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

بسم الله الرحمن الرحيم

اخى احمد

شكرا جزيلا

اخى د ربيع

لا عليك كلنا اخوه

السلام عليكم