اذهب الي المحتوي
أوفيسنا

كيفية الحفاظ على كلمات سر الأوراق؟


الردود الموصى بها

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

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

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

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

شاكرا لكم حُسن تعاونكم

رابط هذا التعليق
شارك

هل تقصد ان يتم اغلاق الاكسل بعد وقت محدد

اذا كان ذلك

راحع الرابط

http://www.officena.net/ib/index.php?showtopic=13113

بارك الله فيك اخي الكريم

ابو احمد

وشكرا لتعاونكم الطيب.

بالنسبة للطلب ما قصدته اخي الكريم انني وضعت كلمات سر لأوراق ملف ما ، وأحيانا اقوم بالغاء كلمة المرور من أجل تصحيح أو اضافة - وسؤالي هو هل هنالك طريقة تحافظ على الملفات مغلقة بكلمة المرور نفسها عند الخروج من اكسل في حالة انني نسيت اعادة تفعيلها.

تم تعديل بواسطه المتدارك
رابط هذا التعليق
شارك

الاخ المتدارك :

بداية كل الشكر لاستاذنا ابو احمد

اما بالنسبة لطلبك لقد شغلني لفترة ولم توصل لنتيجة

اعتقد ( حسب معلوماتي المتواضعة ) انه من غير الممكن الحفاظ على كلمات المرور نفسها عند اغلاق الاكسل

اذا لم تقم بتغعيلها قبل الاغلاق

ان هذا الامر مهم وهو سؤال بمحله وشغلني كثيرا ... وكانت معظم الاراء ان الامر غير ممكن الا اذا تم التفعيل قبل الاغلاق بطريقة ما

وفقك الله

ياسر الحافظ

تم تعديل بواسطه hyasser
رابط هذا التعليق
شارك

الاخ المتدارك :

بداية كل الشكر لاستاذنا ابو احمد

اما بالنسبة لطلبك لقد شغلني لفترة ولم توصل لنتيجة

اعتقد ( حسب معلوماتي المتواضعة ) انه من غير الممكن الحفاظ على كلمات المرور نفسها عند اغلاق الاكسل

اذا لم تقم بتغعيلها قبل الاغلاق

ان هذا الامر مهم وهو سؤال بمحله وشغلني كثيرا ... وكانت معظم الاراء ان الامر غير ممكن الا اذا تم التفعيل قبل الاغلاق بطريقة ما

وفقك الله

ياسر الحافظ

الأخ الفاضل ياسر الحافظ

أشكرك على متابعتك الكريمة وحرصك على الإفادة.

دمت من الله بخير وعافية

رابط هذا التعليق
شارك

السلام عليكم

الاخ المتدارك

يمكن عمل باسورد معين ويتفعل عند اغلاق المصنف

وعند الحفظ

تفضل

كود عمل الباس عند الاغلاق

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Sheets("ورقة1").Protect Password:="123", UserInterFaceOnly:=True

End Sub

وهذا عند الحفظ بمعنى CTRL+S
Private Sub Workbook_BeforeSave(ByVal SaveUI As Boolean, Cancel As Boolean)

Sheets("ورقة1").Protect Password:="123", UserInterFaceOnly:=True

End Sub

حط الاكواد في ThisWorkbook

والسلام عليكم

رابط هذا التعليق
شارك

السلام عليكم

الاخ المتدارك

يمكن عمل باسورد معين ويتفعل عند اغلاق المصنف

وعند الحفظ

تفضل

كود عمل الباس عند الاغلاق

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Sheets("ورقة1").Protect Password:="123", UserInterFaceOnly:=True

End Sub

وهذا عند الحفظ بمعنى CTRL+S
Private Sub Workbook_BeforeSave(ByVal SaveUI As Boolean, Cancel As Boolean)

Sheets("ورقة1").Protect Password:="123", UserInterFaceOnly:=True

End Sub

حط الاكواد في ThisWorkbook

والسلام عليكم

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

الأخ الكريم alidroos

شكرا وبارك الله فيك على هذا المجهود المبارك.

تحيتي وتقديري

رابط هذا التعليق
شارك

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

أخي يمكنك وضع كود في حدث الصفحة Deactivate

بحيث يقوم الاكسيل بإعادة حماية الصفحة بمجرد مغادرتها

او جرب الفكرة المستخدمة على الرابط التالي :

http://excel4us.com/vb/showthread.php?t=1562

دمت في حفظ الله

رابط هذا التعليق
شارك

الاخ العيدروس - الاستاذ المشرف يحيى حسين :

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

معلومة مفيدة جدا ( ولم اكن اعرفها ) افادكم الله

وفقكم الله

ياسر الحافظ " ابو الحارث "

تم تعديل بواسطه hyasser
رابط هذا التعليق
شارك

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

أخي يمكنك وضع كود في حدث الصفحة Deactivate

بحيث يقوم الاكسيل بإعادة حماية الصفحة بمجرد مغادرتها

او جرب الفكرة المستخدمة على الرابط التالي :

http://excel4us.com/vb/showthread.php?t=1562

دمت في حفظ الله

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

بارك الله فيك اخي الكريم

يحيى حسين

على توجيهك الكريم

حاولت تتبع الرابط المذكور اعلاه لكنه يحتاج الى تسجيل.

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

تحيتي وتقديري

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information