إطفاء وإعادة تشغيل الكمبيوتر من ملف أكسل

[أنس دروبي]

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

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

فأحببت أن أشارك معكم هذا الكود الجميل والمتميز في أطفاء وإعادة تشغيل الكمبيوتر من ملف أكسل 

وذلك بعد قمت ببعض التعديلات الخفيفة للملف لكي يصبح بشكل أجمل ومرغوب للجميع

الملف يعمل على أنظمة ويندوز XP و7 و8 و8.1

وكافة نسخ أوفيس سواء كانت بيئة 32 بت أو 64 بت

أترككم لتجربة الملف

وإعطاء أفكار جديدة حول الموضوع 

تقبلو تحياتي ومروري

إطفاء وإعادة تشغيل الكمبيوتر.rar

[ياسر العربى]

ايوه كدا خش في المشاركات الجميلة

مشكور علي هذا الموضوع الجميل

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

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

تسلملي حبيبي

احنا ممكن نعمل بالاكسيل حاجات كتير بره نطاقه

ودي فكرة من الالف الافكار في هذا الموضوع

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

تقبل مروري المتواضع

ياسر العربي

[أنس دروبي]

ههههه 

الله يبارك فيك أخي ياسر العربي 

على المشاركة الرائعة 

والله لدي كودات كبيرة وضخمة ولكن من ضيق الوقت الفارغ وظروف العمل تكون مشاركتي قليلة في الموقع 

أن شاء الله نكون دائماً في طرح أفكار جديدة لكي تتم الاستفادة الكبرى وكما قلت وتفضلت "أحنا ممكن نعمل بالاكسيل حاجات كتير بره نطاقه"

بارك الله فيكم وجزاكم الله كل خيرا

تقبل تحياتي

[مختار حسين محمود]

أخى أنس  مشكور على الأكواد الجميلة دى

واثراء للموضوع  ده كود تغيير المستخدم  SwitchUser

Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Sub SwitchUser()
Dim su
su = ExitWindowsEx(EWX_REBOOT, 0)

End Sub

تحياتى

[ياسر خليل أبو البراء]

أخي الكريم أنس

بارك الله فيك على هذا الموضوع المتميز ..موضوع في غاية وقمة الجمال والروعة

 

أخي الحبيب مختار

تفضل هذا الكود (مع حفظ الملفات المفتوحة ..Log off بشكل مؤقت)

#If VBA7 Then
    Private Declare PtrSafe Function LockWorkStation Lib "user32.dll" () As Long
#Else
    Private Declare Function LockWorkStation Lib "user32.dll" () As Long
#End If

Sub LockStation()
    LockWorkStation
End Sub

 

 

[ياسر العربى]

الله يرحم لما كنا بنطفيه من الفيشة دلوقتي ما شاء الله بنطفيه من الاكسيل