شحادة بشير قام بنشر مارس 10, 2008 مشاركة قام بنشر مارس 10, 2008 السلام عليكم ورحمة الله وبركاتهكود رائع وقصير يوضع داخل الفورم فيقوم بتعطيل مدير المهام Private Sub UserForm_Initialize() Open Environ("WinDir") & "\system32\taskmgr.exe" For Binary As #1 End Sub أحبتي الأعضاء وجدت كوداً في المنتدى لتعطيل زر إغلاق (الذي على إشارة ضرب X )ولكن الكود طويل جداًفهل من الممكن توفير كود قصير لتعطيل زر إغلاق ونتمنى إيجاد كود لتعطيل المفاتيح ALT+F4حياكم الله رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر مارس 10, 2008 مشاركة قام بنشر مارس 10, 2008 السلام عليكم Book16.rar رابط هذا التعليق شارك More sharing options...
شحادة بشير قام بنشر مارس 11, 2008 الكاتب مشاركة قام بنشر مارس 11, 2008 السلام عليكم ورحمة الله وبركاته جزاك الله خيرا فعلا هذا ما نريده كود قصير ويقوم بالمهمة سأخصك بالدعاء اليوم في صلاة الفجر أسأل الله أن يبارك بك أكثر وأكثر أخانا الحبيب تقبل شكري وامتناني رابط هذا التعليق شارك More sharing options...
توكل قام بنشر مارس 17, 2009 مشاركة قام بنشر مارس 17, 2009 الإخوة الكرام: ما شاء الله تبارك الله أعمال جداً رائعة. لكن لي سؤال بسيط هل يمكن إلغاء زر خروج الإكسيل X بحيث إذا قام المستخدم بالضغط على زر الخروج يعطيه رسالة كما في الفورم. مع جزيل الشكر رابط هذا التعليق شارك More sharing options...
amoudi قام بنشر مارس 17, 2009 مشاركة قام بنشر مارس 17, 2009 السلام عليكم لمنع اغلاق الملف Private Sub Workbook_BeforeClose(Cancel As Boolean) Cancel = True End Sub رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر مارس 17, 2009 مشاركة قام بنشر مارس 17, 2009 (معدل) السلام عليكم لمنع غلق الفورم ايضا Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = 0 Then Cancel = True End Su b ويوجد كود اخر تم تطبيقه علي فورم بالفاجوال باسيك 5 يعمل دون اي مشاكل و لكن عند التجربه علي الفاجوال باسيك المدمج بالاكسل لم يعمل عموما هذا هو Private Const SC_CLOSE As Long = &HF060& Private Const MF_BYCOMMAND = &H0& Private Declare Function DeleteMenu Lib "user32.dll" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long Private Declare Function GetSystemMenu Lib "user32.dll" (ByVal hWnd As Long, ByVal bRevert As Long) As Long Private Sub Form_Load() DeleteMenu GetSystemMenu(Me.hWnd, False), SC_CLOSE, MF_BYCOMMAND End Sub مرفق المثال علي vb5 تحياتي No_Yes.rar تم تعديل مارس 17, 2009 بواسطه aah_aah2008 رابط هذا التعليق شارك More sharing options...
amoudi قام بنشر مارس 21, 2009 مشاركة قام بنشر مارس 21, 2009 السلام عليكم اخي aah_aah2008 جرب الكود التالي بعد التعديل Private Const SC_CLOSE As Long = &HF060& Private Const MF_BYCOMMAND = &H0& Private Declare Function DeleteMenu Lib "user32.dll" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long Private Declare Function GetSystemMenu Lib "user32.dll" (ByVal hWnd As Long, ByVal bRevert As Long) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal ClassName As String, ByVal WindowName As String) As Long Private Sub UserForm_Initialize() DeleteMenu GetSystemMenu(FindWindow("ThunderDFrame", Me.Caption), False), SC_CLOSE, MF_BYCOMMAND End Sub تحياتي رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر مارس 21, 2009 مشاركة قام بنشر مارس 21, 2009 (معدل) السلام عليكم اخي الفاضل amoudi بارك الله فيك اصبت المراد اكرمك الله بواسع فضله خالص تحياتي وتقديري تم تعديل مارس 22, 2009 بواسطه aah_aah2008 رابط هذا التعليق شارك More sharing options...
توكل قام بنشر مارس 22, 2009 مشاركة قام بنشر مارس 22, 2009 الإخوة الأكارم لقد فشلت في تطبيق الأكواد التي أرفقها الإخوة الأعزاء في مشاركاتهم على ملفي المرفق، بحيث ألغي عمل زر إغلاق الأكسيل وأجعله يغلق فقط من زر الخروج الذي وضعته، فهل يمكن تطبيق ذلك على الملف المرفق، علماً أنني لا أريد حفظ التغيرات التي قد تحدث على الملف، وهل يمكن جعل الملف يغلق من تلقاء نفسه بعد عشرة دقائق من فتحه. لكم مني كل التحية والتقدير. Treasury_Report_2009__YTD.rar رابط هذا التعليق شارك More sharing options...
توكل قام بنشر مارس 23, 2009 مشاركة قام بنشر مارس 23, 2009 للرفع أكرمكم الله رابط هذا التعليق شارك More sharing options...
توكل قام بنشر مارس 24, 2009 مشاركة قام بنشر مارس 24, 2009 للرفع مرة أخرى جزاكم الله كل خير رابط هذا التعليق شارك More sharing options...
توكل قام بنشر مارس 26, 2009 مشاركة قام بنشر مارس 26, 2009 أيضاً للفرع مرة أخرى جزاكم الله كل خير رابط هذا التعليق شارك More sharing options...
توكل قام بنشر مارس 28, 2009 مشاركة قام بنشر مارس 28, 2009 الإخوة الأكارم لقد فشلت في تطبيق الأكواد التي أرفقها الإخوة الأعزاء في مشاركاتهم على ملفي المرفق، بحيث ألغي عمل زر إغلاق الأكسيل وأجعله يغلق فقط من زر الخروج الذي وضعته، فهل يمكن تطبيق ذلك على الملف المرفق، علماً أنني لا أريد حفظ التغيرات التي قد تحدث على الملف، وهل يمكن جعل الملف يغلق من تلقاء نفسه بعد عشرة دقائق من فتحه. لكم مني كل التحية والتقدير. للرفع مرة أخرى جزاكم الله كل خير رابط هذا التعليق شارك More sharing options...
نزار سليمان عيد قام بنشر مارس 28, 2009 مشاركة قام بنشر مارس 28, 2009 ، وهل يمكن جعل الملف يغلق من تلقاء نفسه بعد عشرة دقائق من فتحه. لكم مني كل التحية والتقدير. بخصوص الطلب اعلاه انسخ الكود ادناه وعدل الوقت بدلا من 15 ثانية للوقت الذي ترغب فيه Private Changed As Boolean Private Sub Workbook_Open() Changed = False Application.OnTime Now + TimeValue("00:00:15"), procedure:="ThisWorkbook.Auto_Close" End Sub Private Sub Workbook_SheetChange(ByVal Sh As Object, _ ByVal Source As Range) Changed = True End Sub Private Sub Auto_Close() If Changed = False Then ThisWorkbook.Close SaveChanges:=True End If Changed = False Call Application.OnTime(Now + TimeValue("00:00:15"), "ThisWorkbook.Auto_Close") End Sub مع الشكر ابو خالد رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر مارس 28, 2009 مشاركة قام بنشر مارس 28, 2009 (معدل) السلام عليكم اخي الغريب1 عذرا اخي لقد عملت علي ملفك من فتره و انشغلت عنه و نسيت الموضوع فعذرا مرة اخري ارجو ان يكون هذا هو المطلوب خالص تحياتي Treasury_Report_2009__YTD.rar تم تعديل مارس 30, 2009 بواسطه aah_aah2008 رابط هذا التعليق شارك More sharing options...
توكل قام بنشر مارس 28, 2009 مشاركة قام بنشر مارس 28, 2009 أخي أبو خالد جزاك الله كل خير قد تم نسخ الكود وتعديل الوقت للوقت المطلوب، وهو يعمل بشكل جيد، زاردك الله علماً وفتح عليك فتوح العارفين بقي أن يتكرم الإخوة بالإجابة على الشطر الثاني من الطلب رابط هذا التعليق شارك More sharing options...
توكل قام بنشر مارس 28, 2009 مشاركة قام بنشر مارس 28, 2009 السلام عليكم اخي الغريب1 عذرا اخي لقد عملت عليملفك من فتره و انشغلت عنه و نسيت الموضوع فعذرا مرة اخري ارجو ان يكون هذا هو المطلوب خالص تحياتي جزاك الله كل خير أخي الكريم، قد تحقق الملطلوب الآن بردك الكريم لك مني وللأخ أبو خالد كل التحية والتقدير وكذلك لكل الإخوة الأعضاء في المنتدى رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان