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

[Yasser M mohamed]

ارجو الدعم في كود  لمسح اسم المستخدم وكلمة المرور بعد الخروج من الملف لعدم معرفة الشخص التالي لبيانات الدخول بنفس اسم المستخدم 

مرفق الملف 

Login.xlsx

[أ / محمد صالح]

يمكنك استعمال هذا الكود في حدث قبل إغلاق الملف

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Introduction").Range("G10") = ""
Sheets("Introduction").Range("G12") = ""
ThisWorkbook.Save
End Sub

وينبغي حفظ الملف بامتداد يسمح بالأكواد مثل xlsb

بالتوفيق

[Yasser M mohamed]

استاذنا العزيز محمد صالح

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

 

[أ / محمد صالح]

هل تقصد إغلاق الاكسل كله إذا لم يكن هناك مصنفات مفتوحة غير هذا المصنف؟ 

[Yasser M mohamed]

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

شكرآ لك علي مجهودتك 

[أ / محمد صالح]

المطلوب الثاني غير متعلق بالموضوع 

ويمكنك التوصل اليه بالبحث 

https://www.officena.net/ib/search/?q=إغلاق الاكسل بعد فترة&updated_after=any&sortby=relevancy&search_and_or=and

بالتوفيق