هل يوجد كود يمنع فتح ملف الاكسل فى تاريخ محدد الا من خلال باسوورو

[إبراهيم ابوليله]

الاخوه الافاضل

تحيه طيبه وبعد

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

بمعنى انه مثلا فى 1/12013 عند فتح ملف الاكسل يتطلب باسوورد

[عبدالله المجرب]

فقط في هذا التاريخ ام ابتداء من هذا التاريخ

[أبو حنــــين]

السلام عليكم

بعد اذن اخي عبد الله

هذا مثل على عدم فتح البرنامج ابتذاءا من تاريخ يحدده المستخدم

مثال.rar

[إبراهيم ابوليله]

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

[إبراهيم ابوليله]

ولكن هل يمكن عمل هذا

دون الاعتماد على خلايا الاكسل

بمعنى انه هل يمكن كتابه التاريخ فى الكود وكذلك كلمه المرور

[أبو حنــــين]

تفضل اخي

كلمة المرور.rar

[إبراهيم ابوليله]

الخ ابو حنين

مشكورا لك

ولكننى وضعت الكود فى هذا الشيت ولم يعمل

ارجو توضيح الخطأPAY HOTEL-12.rar

[أبو حنــــين]

تفضل اخي الكريم

و لا تنسى كلمة المرور 1234

و الخطأ كان في تسمية الورقة

نسخة.rar

[إبراهيم ابوليله]

الاخ ابو حنين

شكرا على الرد

ولكن فى سياق الموضوع ذاته هل يمكن عمل ذلك بدون استخدام محرر الاكواد

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

دون الحاجه الى كود

[عبدالله المجرب]

الاخ ابو حنين

شكرا على الرد

ولكن فى سياق الموضوع ذاته هل يمكن عمل ذلك بدون استخدام محرر الاكواد

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

دون الحاجه الى كود

لا اعتقد

[أبو حنــــين]

مرحبا

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

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

و الحل الامثل هو حماية الملف بكلمة مرور + حماية محرر الـ VBA بكلمة مرور معقدة و بهذا تظمن نوعا ما الحماية

على الاقل لغير المحترفين

[إبراهيم ابوليله]

الخ ابوحنين

كلام جميل ومتزن

ولكن هل لو تم تغير حفظ الملف ليصبح امتداده ليس به ماكرو

هل سيبقى الزمن محدد

اى انه بعد هذا التاريخ سيتطلب برده الرقم السرى للدخول ام لا

واذا كانت الاجابه بانه فى حاله حفظ الملف بدون ماكرو سيتم وقف الكود وبذلك بعد هذا التاريخ المحدد داخل الكود سيتم فتح

الملف دون تطلب الرقم السرى

فهل هناك كود او ماشابه ذلك يوقف الملف اذا تم حفظه بدون ماكرو

او هناك كود يحول المعادلات على الاقل الى ارقام وقيم فى حاله حفظ الملف بدون ماكرو

[أبو حنــــين]

السلام عليكم

حسب ما فهمت من كلامك انك تريد حفظ الملف مع حذف كل الاكواد و الدوال و المحافظة على البيانات فقط الموجودة في الملف

ان كان كذلك فالملف يفتح دون المطالبة بكلمة المرور

بكل صراحة لم افهم ما الذي تريد الوصول اليه

ان كنت تريد الحماية الكاملة ، فهناك كود يحمي الملف بحيث لا يفتح إلا في الحاسوب الذي تحدده حيث هذا الكود له علاقة بالرقم التسلسلي للقرص المحلي في الحاسوب مثلا القرص C

ربما لو شرحت لي اكثر كان اوفر للوقت حتى و ان لم اتوصل الى الحل فهناك من الخبراء في هذا المنتدى من يجد الطريقة

[إبراهيم ابوليله]

الاخ ابوحنين

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

انا اقصد ان فايل الاكسيل اذا تم حفظه على انه ملف اكسل ماكرو (يعنى بذلك نرى علامه الماكرو مرسومه على ملف الاكسل من الخارج)

هل هناك شيئ يمنع حفظه كملف اكسل عداى بدون ماكرو

او لو تم حفظ الملف بدون ماكرو يتم تحويل المعادلات الى قيم

[بوحماد]

مشكوررررررررررررر

[ابو عمر2010]

la;,,,,,,,,,,,,,,,,,,,,,,

[khaledplayer]

مشكورين الله يبارك فيكم فكره حلوة

[عادل ابوزيد]

• الاخ العزيز واستاذى ابو حنين
  
• هل يمكن عدم اظهار الكتابة الخاصة بالباسوورد
  
• مع جزيل احترام وتقديرى
  

[أبو حنــــين]

السلام عليكم

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

كلمة المرور.rar

[محمود ربيع]

بارك الله فيكم يا عباقرة

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

موضوع مقيد جدا

جزاكم جميعا كل خير

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الساده الافاضل

موضوع مهم جدا للجميع

ولكن عند تغير التاريخ كما هو موضح

 

If Date > "01-01-2015" Then

 

ما زال الملف يطلب كلمه السر

لماذا ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

ارجو الرد للافاده

كلمة المرور1.rar

[أبو حنــــين]

استعمل هذا التغيير

Private Sub Workbook_Open()
Dim M, pasword
pasword = "1234"

If Date > #1/1/2015# Then

M = MsgBox("ان كانت لديك كلمة المرور فاضغظ على نعم", vbCritical + vbYesNo, "تأكيد")
If M = vbNo Then
Application.Quit
Else
If M = vbYes Then
If pasword = InputBox("ادخل كلمة المرور هنا", "كلمة المرور") Then
   ورقة1.Select
   Exit Sub
GoTo 1
Else
MsgBox "ليس لديك الحق لفتح البرنامج", vbCritical, "خطأ"
Application.Quit
End If: End If: End If: End If
1 End Sub

[۩◊۩ أبو حنين ۩◊۩]

اخى العزبز

الملف تم ضبطه.... سلمت بداك

ولاكن عند تطبيقه على المرفق

http://www.gulfup.com/?Ub5zsa

وعند فتح الملف .... تظهر

ان كانت لديك كلمة المرور فاضغظ على نعم

عند الضغط على no

يظهر لى هل انت تريد حفظ الملف ... ويوجد ثلاث اختيارات

save     don't save     cancel

عند اختيار cancel ....يتم الدخول الى الملف ...

فما الحل  

حرصا على التعلم

ارجو توضيح الفرق بين

 

If Date > #1/1/2015# Then

If Date > "01-01-2015" Then

 

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

تم تعديل يناير 9, 2014 بواسطه ۩◊۩ أبو حنين ۩◊۩

[۩◊۩ أبو حنين ۩◊۩]

اخى العزبز

الملف تم ضبطه.... سلمت بداك

ولاكن عند تطبيقه على المرفق

http://www.gulfup.com/?Ub5zsa

وعند فتح الملف .... تظهر

ان كانت لديك كلمة المرور فاضغظ على نعم

عند الضغط على no

يظهر لى هل انت تريد حفظ الملف ... ويوجد ثلاث اختيارات

save     don't save     cancel

عند اختيار cancel ....يتم الدخول الى الملف ...

فما الحل  

حرصا على التعلم

ارجو توضيح الفرق بين

 

If Date > #1/1/2015# Then

If Date > "01-01-2015" Then

 

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