سؤال هام في برنامج صلاحيات المستخدمين

[أ/حكيم]

عندما يكون مستوى أمان الماكرو  منخفض يتم فتح الملف بكامل أوراقه في 2003  ويفقد البرنامج ميزة هامة .. هل يمكن التغلب على هذه المشكلة بإخفاء جميع أوراق العمل قبل غلق البرنامج مثلا (هل يمكن التعديل في الكود ) أم هناك حل آخر من عباقرة المنتدى وخاصة الآخوة الأعزاء الذين قاموا بهذا العمل المميز ....

تم تعديل مايو 8, 2013 بواسطه أبو حكيم

[حمادة عمر]

السلام عليكم

الاخ الكريم / أبو حكيم

بارك الله فيك

شاهد الرابط التالي ... ان شاء الله به ما تريد

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

 

واليك ملف كمثال لذلك

قم بعمل الماكرو مرتفع او متوسط .... وجرب الملف

ثم قم بالعكس واجعل مستوي امان الماكرو منخفض وجرب الملف مرة اخري

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

رسالة لتمكين الماكرو.rar

 

[أ/حكيم]

الأخ الأستاذ حمادة عمر شكراً على الرد وفهم السؤال رغم  وجود خطأ في السؤال أعتذر لأني أقصد مستوى عالي للماكرو ولكن كيف يمكن أن أضع الكود ظمن برنامج صلاحيات المستخدمين للحصول على هذه الميزة ضمن مميزات برنامج صلاحيات المستخدمين حيث وخبرتي في vb ضعيفة. حيث يوجد عدد كبير من الأكواد التي يتم تنفيذها عند فتح وغلق الملف في برنامج صلاحيات المستخدمين وقد يحدث تعارض في بعض الأكواد . وعذراً للإطالة .

تم تعديل مايو 9, 2013 بواسطه أبو حكيم

[حمادة عمر]

السلام عليكم

الاخ الكريم / أبو حكيم

بارك الله فيك

اخي الكريم هل تقصد برنامج صلاحيات المستخدمين ... الذي قام بالعمل عليه الاخ / ابراهيم محمد

ام انه برنامج آخر

قم بارفاق الملف ان امكن لوضع الاكواد به كما تريد ... او رابط البرنامج ان كان بالمنتدي ام انك تريد الطريقة فقط

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

[إبراهيم محمد]

الاخ العزيز / ابو حكيم 

قم باضافه ميديول جديد  عن طريق شاشه الفيجوال البيزيك وانت واقف على اى ميديول ثم انقر بالماوس الايمين  واختار ادخال ميديول 

ثم قم بلصق الكود التالى فيه  وقم بالحفظ وسوف يعمل الكود بشكل تلقائى 

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

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

'åÐÇ ÇáßæÏ  ááÊÛáÈ Úáì ãÔßáå ãÓÊæì ÇáÇãÇä ááãÇßÑæ  æÇÌÈÇÑ ÇáãÓÊÎÏã Úáì ÊÎÝíÖ ãÓÊæì ÇáÇãÇä  ÚäÏ ÊÔÛíá
' åÐÇ ÇáÈÑäÇãÌ
Public xx As Integer
Public x As Integer
Sub Auto_Open()
kh_wVisible True
UserForm1.Show
End Sub

Sub Auto_Close()
Dim i As Integer
kh_wVisible False
ThisWorkbook.Close Not CBool(ThisWorkbook.Saved)
End Sub
Sub kh_wVisible(ibol As Boolean)
Dim nBook As String
nBook = ThisWorkbook.Name
With Windows(nBook)
    If .Visible = Not ibol Then .Visible = ibol
End With
End Sub

[إبراهيم محمد]

معذرة  رابط الموضوع 

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

[حمادة عمر]

الاخ / ابراهيم محمد

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

[إبراهيم محمد]

الاستاذ الكبير والاخ العزيز / حمادة عمر 

جزاك الله خيرا  ومعذرة لدخولى فى الموضوع  فما اردت الا ان تعم الفائدة وانتم الخير والبركه ومنكم نتعلم المزيد 

[حمادة عمر]

السلام عليكم

الاخ الحبيب / ابراهيم محمد

بارك الله فيك

ودخولك لاي موضوع اخي الحبيب يشرفه

وهدفنا جميعا ان تعم الفائدة .... فهذا ما يميز هذا المنتدي ويميز اعضاؤه المتحابون

ووجود حلول كثيرة في نفس الموضوع يجعله اكثر ثراءا ... لتعم الفائدة لكل من يبحث عن هذا الموضوع

وكلنا هنا نتعلم ونعلم من بعضنا البعض

تقبل تحياتي وشكري

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

[أ/حكيم]

الأخوة الأعزاء الرابط الذي وضعه الأستاذ إبراهيم محمد هو المقصود ... و الميديول  المرفق في المشاركة يحتويان على Sub Auto_Open  و  Sub Auto_Close

الموجودان في الميديول2 في البرنامج فهل سيكون هناك تعارض أم يجب حذف الميديول2 من برنامج صلاحيات المستخدمين  أرجو الافادة وأعذروني على الاطالة ....

تم تعديل مايو 9, 2013 بواسطه أبو حكيم

[إبراهيم محمد]

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

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

[أ/حكيم]

شكراُ للأستاذ ابراهيم هذا عند فتح الملف في أكسيل 2007 ولكني فتحت البرنامج في أكسيل 2003 وكان مستوى الأمان عالي وقد فتح البرنامج دون أن يطلب تمكين الماكرو أو عدم تمكينة و ظهرت كافة الأوراق بما في ذلك المطلوب إخفاءهاوبذلك يمكن فتح الملف بسهولة عندما يكون مستوى الأمان عالي في أكسيل2003 لذا أتقد أن الحل لهذة المشكلة ( وقد أكون على خطأ ) أن يتم التعديل بحيث يتم إخفاء جميع الأوراق عدا الورقة1 عند غلق المستند و إعادة إظهارها حسب صلاحيات المستخدم عند فتح الملف ولك جزيل الشكر .

تم تعديل مايو 10, 2013 بواسطه أبو حكيم

[أ/حكيم]

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

[إبراهيم محمد]

الاخ العزيز / ابو حكيم 

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

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