خالد الشاعر

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

استاذ احمد وجدت هذا الكود جربة Sub scanner() CommandBars.FindControl(ID:=1764).Execute End Sub

استاذ solm2000 ارفق ملف لكى يقدر الزملاء المساعدة

الاستاذ a12 فكرة البراويز فى اكسل ليس مثل ورد تماماً هناك بعض التحايل على البرنامج هناك طريقتين 1 - تحديد بعض الخلايا تم اختيار حد الخلية 2 - ادراج صورة برواز فى الصفحة و الكتبة فى الخلف مرفق ملف للتوضيح ارجو ان اكون وضحت الفكرة لكم براويز.rar

للرفع

استاذ عبد الغنى بعد فتح المرفق لو لديك اوفس 2003 جرب فتح الحماية سوف تكون مغلقة disable

السادة الخبراء هل من الممكن تعطيل بعض الاوامر فى اكسل 2007 مثل 2003 مثال ممكن اعطل الحماية فى اكسل 2003 يعنى بقى disable مرفق ملف يوضح الفكرة جزاكم الله كل خير Protection.rar

السادة الخبراء استكمال لموضوع الاحماية برقم الهرد للاستاذ القدير ابو تامر وجدت هذه الاكواد لاستخراج رقم البورسيسر و المزر و اضافت ماكرو للتاكد من الرقم فى بداية عمل الملف برجاء التجربة للافادة للجميع M.B No.rar Prosser no.rar

للرفع

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

السادة الخبراء هذا امر يخفى جميع الاوامر من اكسل 2003 فهل ممكن نفس الامر مع اوفس 2007 و 2010 Sub HidMe() With Application .DisplayFullScreen = True .AskToUpdateLinks = False .ShowStartupDialog = False .CommandBars("Worksheet Menu Bar").Enabled = False .CommandBars("Standard").Visible = False .CommandBars("Formatting").Visible = False .CommandBars("Drawing").Visible = False .CommandBars("Reviewing").Visible = False .CommandBars("Web").Visible = False .DisplayStatusBar = False .DisplayFormulaBar = False .DisplayFullScreen = True End With With ActiveWindow .DisplayGridlines = False .DisplayHeadings = False .DisplayHorizontalScrollBar = False .DisplayVerticalScrollBar = False .DisplayWorkbookTabs = False End With End Sub ولكم جزيل الشكر جزاكم الله كل خير

للرفع

السادة الخبراء وجدت هذا الملف على النت وصفحة الفجيوال لا تفتح و انا اعرف ان هذه الطريقة عند عمل مشاركة للملف ولكن هذا الملف لا يوجد به مشاركة فهل احد يعرف كيفية عمل هذه الحماية ولكم جزيل الشكر جزاكم الله خيراً Copy of Excel Tool VBA Password Recovery.rar

استاذ محمود فكرة جديدة و جميلة تسلم ايدك جزاك الله كل خير

اشكرك استاذى عبد الله باقشير جزاكم الله كل خير

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

الف شكر استاذى عبد الله باقشير لو عطل Application.ScreenUpdating = False هل هذا يوثر على الماكرو التى فى الملف جزاك الله كل خير

للرفع

استاذ محمد المشكلة بالملف ان جميع اوراق الملف مخفية فاستخدم هذا الماكرو الخاص بعبقرى المنتدى الاستاذ عبدالله باقشير فى امر Private Sub Workbook_Open() kh_wVisible True وهذا هو الماكرو Sub kh_wVisible(ibol As Boolean) Dim nBook As String nBook = ThisWorkbook.Name With Windows(nBook) If .Visible = Not ibol Then .Visible = ibol End With End Sub

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

السادة الخبراء اريد معرفة تفاصيل عمل هذا الامر Application.ScreenUpdating = False هل وجودة فى بداية الماكرو يساعد على سرعة اداء الماكرو ام ممكن يعمل على عدم اداء المعادلات فى الشيت بشكل جيد وهل يجب ان ننهى الماكرو بالامر Application.ScreenUpdating = True برجاء التوضيح من اهل الخبراء جزاكم الله كل خير

استاذ حمادة عمل رائع جزاك الله كل خير

استاذ محمود هو دة المطلوب جزاك الله كل خير

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

استاذ محمود الف شكر على سرعة الرد وجزاك الله كل خير لى سؤال هل هو ممكن ان يكون ناتج اختيار قاءمة a اتوماتك يظهر فى قائمة b