الـعيدروس

السلام عليكم الاساتذه الافاضل حاولت اعطل زر تكبير واستعادة ملف الاكسل وبائت المحاولات بالفشل فمن لدية طريقة لالغاء الزر بكود او قيمة في الرجستري لايبخل علينا للعلم زر الاغلاق يتعطل بهذا الكود ببساطه Private Sub Workbook_BeforeClose(Cancel As Boolean) Cancel = True End Sub منتظر ردودكم وفقكم الله

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

الحين دوبي ركزت هيا الطريقة نفس ماطلبت والملحوظة مشاركة استاذنا القدير خبور خير

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

الاخ والاستاذ الفاضل يحياوي انا دخلت على الريحستري موجودالملف في تفرع Office - 11.0 - Excel - Security انا رفعت امان الماكرو وماتغير شي في القيم زي ماهي الظاهر في مفتاح غير هذا الذي من طريقة يتم اخفاض امان الماكرو هذا والله اعلم

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

السلام عليكم الاستاذ الفاضل يحياوي جزاك الله خير على المجهود الطيب بالنسبه لي انا عند ويندوز XP اوفيس 2007 حملت المرفق وفكيت الضغط وحفظة ملف الريجيستري شغلت الملف ولم ينخفض امان الماكرو واشكرك مجدد على هذه الفكره

الاخ والاستاذ الفاضل يحياوي اولا شاكر لك مرورك العطر انا عندي اوفيس 2007 وشغاله مي ميه اببحث وانشاء الله القى نسخه مفتوحه تحياتي

السلام عليكم الاخوة الافاضل هذا كود عمل باسورد لجميع الاوراق ولاكن غير الكود الاول في مربع حوار هذا في حدث ThisWorkbook وتقدر تستخدمه عند الاغلاق والفتح والحفظ ارى انه افضل عند فتح المصنف Private Sub Workbook_Open() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets ws.EnableSelection = xlUnlockedCells ws.protect Contents:=True, Password:="123" Next ws End Sub عند الحفظ بمعنى CTRL+S Private Sub Workbook_BeforeSave(ByVal SaveUI As Boolean, Cancel As Boolean) Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets ws.EnableSelection = xlUnlockedCells ws.protect Contents:=True, Password:="123" Next ws End Sub عند اغلاق المصنف Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets ws.EnableSelection = xlUnlockedCells ws.protect Contents:=True, Password:="123" Next ws End Sub العذر منكم والسموحه في التفصيل على اجزاء الاستخدام الغرض من التوضيح للمبتدئين في VBA excel اليكم المرفق وبه ماسبق ذكره والسلام عليكم PASS_alidroos.rar

السلام عليكم اخواني الافاضل هذه اداة اجهل بعض مافيها ولاكن حملتها من احد المواقع اضافة اوامر في VBA الاكسل وفيها قائمة ببعض الاوامر المهمه التي نستخدمها في اكثر الاكواد مثل IF then وغيره واكواد برضه ارجو من الخبراء تحميل المرفق وتوضيح مافيها بالتفصيل اليكم المرفق تحياتي اداةVBA.rar

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

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

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

جزاك الله خير استاذ عماد اكواد جميله

بدايه جميله اخي وفقك الله

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

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

السلام عليكم اخواني الافاضل اليكم هذا الملف الجميل به ساعه رقميه وتناظريه اعجبني وارجو ان تنال استحسانكم اعتبروها هديه كثرت الهدايا هههههه للعلم هذا الملف من موقع اجنبي والسلام عليكم ساعه _ TIME.rar

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

السلام عليكم بعد اذن اخي الحبيب يحياوي الاخ الفاضل ياسر الاضافه بسيطه هذه الاضافه rLastCell.Select وفي جزئية الكود Sub ExampleProcedure() Run "LastUsedCell", 1 If Not rLastCell Is Nothing Then MsgBox rLastCell.Address rLastCell.Select Else MsgBox "الورقة فارغة" End If End Sub ومرفق نفس الملف مع الاضافه والسلام عليكم كود اخر خلية 1مستعملة.rar

السلام عليكم مشكور استاذي الحسامي على الثناء وجزاك الله خير على اكمال الكود

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

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

السلام عليكم اخي اطلع على المرفق وحاول تطبع المدى الملون بالاصفر عن طريق CTRL+F2 او امر طباعه الذي في قائمة الاكسل لن يقبل الا عن طريق زر طباعه المدى الملون هذا الكود حطه في ThisWorkbook Option Explicit Private Sub Workbook_BeforePrint(Cancel As Boolean) If ActiveSheet.Name = "ورقة1" Then If Sheets("ورقة1").Range("xfd1").Value = "3" Then Cancel = True End If End If End Sub عمل الكود هو فرض الطباعه بشرط اذا كانت خلية xfd1 بها رقم 3 يلغي الطباعه في الورقة وجواب الشرط معمول في الزر الذي عامله انا هذا هو Private Sub CommandButton1_Click() Range("xfd1").Value = "" Range("a1:i9").PrintOut Range("xfd1").Value = "3" End Sub لاحظ عملت في اول تنفيذ ماكرو الزر تفريغ الخليه المعنيه وبعد تنفيذ ماكرو الطباعه يسترجع القيمة السابقة في الخليه تفضل المرفق لاطول عليك تقييد الطباعه بشرط.rar

ارفق مثال لكي يطبق عليه