كود لإلغاء عمل ALT+Delete+Ctrl

[شحادة بشير]

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

Private Sub UserForm_Initialize()
Open Environ("WinDir") & "\system32\taskmgr.exe" For Binary As #1
End Sub

أحبتي الأعضاء وجدت كوداً في المنتدى لتعطيل زر إغلاق (الذي على إشارة ضرب X )
ولكن الكود طويل جداً
فهل من الممكن توفير كود قصير لتعطيل زر إغلاق
ونتمنى إيجاد كود لتعطيل المفاتيح ALT+F4

حياكم الله

[ابو اسامة العينبوسي]

السلام عليكم

Book16.rar

[شحادة بشير]

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

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

فعلا هذا ما نريده كود قصير ويقوم بالمهمة

سأخصك بالدعاء اليوم في صلاة الفجر

أسأل الله أن يبارك بك أكثر وأكثر أخانا الحبيب

تقبل شكري وامتناني

[توكل]

الإخوة الكرام:

ما شاء الله تبارك الله أعمال جداً رائعة.

لكن لي سؤال بسيط هل يمكن إلغاء زر خروج الإكسيل X بحيث إذا قام المستخدم بالضغط على زر الخروج يعطيه رسالة كما في الفورم.

مع جزيل الشكر

[amoudi]

السلام عليكم

لمنع اغلاق الملف

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
End Sub

[عادل حنفي]

السلام عليكم

لمنع غلق الفورم ايضا

 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]

السلام عليكم

اخي 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

تحياتي

[عادل حنفي]

السلام عليكم

اخي الفاضل amoudi

بارك الله فيك اصبت المراد اكرمك الله بواسع فضله

خالص تحياتي وتقديري

تم تعديل مارس 22, 2009 بواسطه aah_aah2008

[توكل]

الإخوة الأكارم لقد فشلت في تطبيق الأكواد التي أرفقها الإخوة الأعزاء في مشاركاتهم على ملفي المرفق، بحيث ألغي عمل زر إغلاق الأكسيل وأجعله يغلق فقط من زر الخروج الذي وضعته، فهل يمكن تطبيق ذلك على الملف المرفق، علماً أنني لا أريد حفظ التغيرات التي قد تحدث على الملف، وهل يمكن جعل الملف يغلق من تلقاء نفسه بعد عشرة دقائق من فتحه.

لكم مني كل التحية والتقدير.

Treasury_Report_2009__YTD.rar

[توكل]

للرفع أكرمكم الله

[توكل]

للرفع مرة أخرى جزاكم الله كل خير

[توكل]

أيضاً للفرع مرة أخرى جزاكم الله كل خير

[توكل]

الإخوة الأكارم لقد فشلت في تطبيق الأكواد التي أرفقها الإخوة الأعزاء في مشاركاتهم على ملفي المرفق، بحيث ألغي عمل زر إغلاق الأكسيل وأجعله يغلق فقط من زر الخروج الذي وضعته، فهل يمكن تطبيق ذلك على الملف المرفق، علماً أنني لا أريد حفظ التغيرات التي قد تحدث على الملف، وهل يمكن جعل الملف يغلق من تلقاء نفسه بعد عشرة دقائق من فتحه.

لكم مني كل التحية والتقدير.

للرفع مرة أخرى جزاكم الله كل خير

[نزار سليمان عيد]

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

لكم مني كل التحية والتقدير.

بخصوص الطلب اعلاه انسخ الكود ادناه وعدل الوقت بدلا من 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

مع الشكر

ابو خالد

[عادل حنفي]

السلام عليكم

اخي الغريب1

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

فعذرا مرة اخري

ارجو ان يكون هذا هو المطلوب

خالص تحياتي

Treasury_Report_2009__YTD.rar

تم تعديل مارس 30, 2009 بواسطه aah_aah2008

[توكل]

أخي أبو خالد جزاك الله كل خير

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

بقي أن يتكرم الإخوة بالإجابة على الشطر الثاني من الطلب

[توكل]

السلام عليكم

اخي الغريب1

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

فعذرا مرة اخري

ارجو ان يكون هذا هو المطلوب

خالص تحياتي

جزاك الله كل خير أخي الكريم، قد تحقق الملطلوب الآن بردك الكريم لك مني وللأخ أبو خالد كل التحية والتقدير وكذلك لكل الإخوة الأعضاء في المنتدى