كود مختصر للحصول على اسم المستخدم للجهاز

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

Dim US As String
US = Environ("UserName")
MsgBox US
 

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

اليكم هذا الكود المختصر  فى معرفه اسم المستخدم للجهاز 

ويمكن استخدامه لتحديد صلاحيات الملف تلقائيا بمجرد ان يتم تشغيله من جهاز الى اخر  او يمكن استخدامه كما تشاء 

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

[عبدالله باقشير]

السلام عليكم

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

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

[أبو عبد الملك السوفي]

السلام علكم

شكر الله سعيك بوركت أخي

[دغيدى]

أخى الكريم

أكمل الكود

بعدم الفتح فى حالة عدم تطابق اسم المستخدم للجهاز مع اسم محدد داخل الكود ( لعدم نقل الملف)

 

[حمادة عمر]

السلام عليكم

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

بارك الله فيك

اهلا وسهلا بك من جديد ... كل مرة تطول فيها غيبتك عنا .. لعل المانع خيرا باذن الله

اصبحت اخي الكريم متخصصا في تحديد صلاحيات المستخدمين ..

والاجمل انك تحب افادة الجميع بكل ما لديك

تقبل خالص تحياتي

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

[احمد فضيله]

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

الاستاذ الفاضل / ابراهيم محمد

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

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

السلام عليكم

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

و هذا تطبيق لما ذكره اخي جمال

 

التطبيق.rar

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

الاستاذ الفاضل  والعالم الجليل / الاستاذ عبد الله باقشير  

ان مرورك الكريم على هذة المشاركه المتواضعه لهو شرف كبير  

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

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

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

الاخ الفاضل  / 

عبد السلام زاوي

جزاك الله خيرا وشكرا لمرورك الكريم وكلماتك الطيبه 

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

الاستاذ الفاضل / دغيدي   

اشكر لك مرورك الكريم

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

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

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

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

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

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

بارك الله فيك و زادك من فضله 

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

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

الاخ الفاضل  / احمد فضيله  

اشكر لك مرورك الكريم وكلماتك الطيبه  

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

[ريان أحمد]

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

 

 ونحن ننتظر ملفك بفارغ الصبر

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

الاستاذ الجليل / ابو حنين 

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

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

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

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

التطبيق2.rar

 

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

الاخ الفاضل / ريان احمد  

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

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

السلام عليكم

اخي الأستاذ إبراهيم

عمل رائع و فكرة طيبة و كنت قد اتجزت برنامجا بنفس الفكرة تقريبا لكن لا يعتمد على اسم المستخدم بل على رقم القرص لمنع نقل الملف الى مكان آخر

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

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

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

ولكن المشكله واجهتنى فى اصدار 2003 ان هذا الكود لا يعمل مع هذا الاصدار ولكنه يعمل مع 2007 وما فوق 

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

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

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

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

التطبيق3.rar

[دغيدى]

أخى الكريم

الملف لا يعمل عندى (  office 2013)

اسم الجهاز Gamal

برجاء تعديله

[حمادة باشا]

الأستاذ/ إبراهيم محمد

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

جزاكم الله كل خير علي هذة الفكرة الجميلة

تقبل تحياتي

 

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

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

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

الكود الجميل

واجمل ما فيه البساطه والسهوله

اخى واستاذنا ابو حنين

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

بارك الله فيك

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

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

الاستاذ الفاضل  / دغيدي 

اليك نسختين من البرنامج  

احدهما باسم GAMAL  والثانيه  فارغه من اول تشغيل سيتم ادراج اسم الجهاز فى او خليه من الصفحه الاولى بعدها لا يفتح الا بتطابق هذا الاسم مع اسم الجهاز 

التطبيق3 - GAMAL.rar

 

التطبيق3.rar

 

[الـعيدروس]

السلام عليكم

الاخ الفاضل ابراهيم محمد

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

تقبل مروري

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

الاستاذ الفاضل / العيدروس 

يشرفنى ويسعدني مرورك الكريم  

وجزاك الله خيرا على كلماتك الطيبه 

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

[دغيدى]

أخى الكريم / ابراهيم محمد

شكرا لكم

لوحظ أن If US = "IBRAHIM" Then    موجود بالكود 

برجاء شرح الكود وما دور موديول 1

[دغيدى]

Private Sub Workbook_Open()
Dim US As String
Dim i As Integer
US = Environ("username")
    If US <> "Gamal" Then ' PUT HERE NAME OF THE USER FOR COMPUTER
        Sheets("ورقة2").Visible = xlSheetVeryHidden
        Sheets("ورقة3").Visible = xlSheetVeryHidden
    Else
        For i = 1 To Sheets.Count
        Sheets(i).Visible = xlSheetVisible
      Next
    End If

End Sub

 

ما رأيك اخى الكريم

فى هذه الحالة لو لم يكن اسم الجهاز مطابقا للكود سوف يخفى الشيتات الحددة