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

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

قام بنشر

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

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

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

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

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

قام بنشر (معدل)

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

اذا كان ذلك

راحع الرابط

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

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

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

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

يحيى حسين

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

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

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information