شحادة بشير قام بنشر مارس 10, 2008 قام بنشر مارس 10, 2008 السلام عليكم ورحمة الله وبركاتهكود رائع وقصير يوضع داخل الفورم فيقوم بتعطيل مدير المهام Private Sub UserForm_Initialize() Open Environ("WinDir") & "\system32\taskmgr.exe" For Binary As #1 End Sub أحبتي الأعضاء وجدت كوداً في المنتدى لتعطيل زر إغلاق (الذي على إشارة ضرب X )ولكن الكود طويل جداًفهل من الممكن توفير كود قصير لتعطيل زر إغلاق ونتمنى إيجاد كود لتعطيل المفاتيح ALT+F4حياكم الله
شحادة بشير قام بنشر مارس 11, 2008 الكاتب قام بنشر مارس 11, 2008 السلام عليكم ورحمة الله وبركاته جزاك الله خيرا فعلا هذا ما نريده كود قصير ويقوم بالمهمة سأخصك بالدعاء اليوم في صلاة الفجر أسأل الله أن يبارك بك أكثر وأكثر أخانا الحبيب تقبل شكري وامتناني
توكل قام بنشر مارس 17, 2009 قام بنشر مارس 17, 2009 الإخوة الكرام: ما شاء الله تبارك الله أعمال جداً رائعة. لكن لي سؤال بسيط هل يمكن إلغاء زر خروج الإكسيل X بحيث إذا قام المستخدم بالضغط على زر الخروج يعطيه رسالة كما في الفورم. مع جزيل الشكر
amoudi قام بنشر مارس 17, 2009 قام بنشر مارس 17, 2009 السلام عليكم لمنع اغلاق الملف Private Sub Workbook_BeforeClose(Cancel As Boolean) Cancel = True End Sub
عادل حنفي قام بنشر مارس 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
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 تحياتي
عادل حنفي قام بنشر مارس 21, 2009 قام بنشر مارس 21, 2009 (معدل) السلام عليكم اخي الفاضل amoudi بارك الله فيك اصبت المراد اكرمك الله بواسع فضله خالص تحياتي وتقديري تم تعديل مارس 22, 2009 بواسطه aah_aah2008
توكل قام بنشر مارس 22, 2009 قام بنشر مارس 22, 2009 الإخوة الأكارم لقد فشلت في تطبيق الأكواد التي أرفقها الإخوة الأعزاء في مشاركاتهم على ملفي المرفق، بحيث ألغي عمل زر إغلاق الأكسيل وأجعله يغلق فقط من زر الخروج الذي وضعته، فهل يمكن تطبيق ذلك على الملف المرفق، علماً أنني لا أريد حفظ التغيرات التي قد تحدث على الملف، وهل يمكن جعل الملف يغلق من تلقاء نفسه بعد عشرة دقائق من فتحه. لكم مني كل التحية والتقدير. Treasury_Report_2009__YTD.rar
توكل قام بنشر مارس 28, 2009 قام بنشر مارس 28, 2009 الإخوة الأكارم لقد فشلت في تطبيق الأكواد التي أرفقها الإخوة الأعزاء في مشاركاتهم على ملفي المرفق، بحيث ألغي عمل زر إغلاق الأكسيل وأجعله يغلق فقط من زر الخروج الذي وضعته، فهل يمكن تطبيق ذلك على الملف المرفق، علماً أنني لا أريد حفظ التغيرات التي قد تحدث على الملف، وهل يمكن جعل الملف يغلق من تلقاء نفسه بعد عشرة دقائق من فتحه. لكم مني كل التحية والتقدير. للرفع مرة أخرى جزاكم الله كل خير
نزار سليمان عيد قام بنشر مارس 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 مع الشكر ابو خالد
عادل حنفي قام بنشر مارس 28, 2009 قام بنشر مارس 28, 2009 (معدل) السلام عليكم اخي الغريب1 عذرا اخي لقد عملت علي ملفك من فتره و انشغلت عنه و نسيت الموضوع فعذرا مرة اخري ارجو ان يكون هذا هو المطلوب خالص تحياتي Treasury_Report_2009__YTD.rar تم تعديل مارس 30, 2009 بواسطه aah_aah2008
توكل قام بنشر مارس 28, 2009 قام بنشر مارس 28, 2009 أخي أبو خالد جزاك الله كل خير قد تم نسخ الكود وتعديل الوقت للوقت المطلوب، وهو يعمل بشكل جيد، زاردك الله علماً وفتح عليك فتوح العارفين بقي أن يتكرم الإخوة بالإجابة على الشطر الثاني من الطلب
توكل قام بنشر مارس 28, 2009 قام بنشر مارس 28, 2009 السلام عليكم اخي الغريب1 عذرا اخي لقد عملت عليملفك من فتره و انشغلت عنه و نسيت الموضوع فعذرا مرة اخري ارجو ان يكون هذا هو المطلوب خالص تحياتي جزاك الله كل خير أخي الكريم، قد تحقق الملطلوب الآن بردك الكريم لك مني وللأخ أبو خالد كل التحية والتقدير وكذلك لكل الإخوة الأعضاء في المنتدى
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.