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

[دغيدى]

لاحظت ضرورة كتابة الحروف الكبيرة والصغيرة (username)

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

الأخ الفاضل دغيدي بارك الله فيك كود جميل ورائع ويقوم بالعملية العكسية في التعرف علي المستخدم

وبالنسبه الحرف الكبيره لأن الويندوز يقوم بتخزين اسم المستخدم كاحرف كبيره

ومعذره في عدم الشرح أفضل لاني في الخارج وبكتب من الموبايل

وان شاء الله في المساء نتحاور أكثر في الأمر

[دغيدى]

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

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

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

الاستاذ / جمال دغيدى المحترم 

استكمالا للكود الذى بداته 

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

وارجو ان ينتفع منه الجميع لان فيه الخياران اما عدم فتح الملف فى جهاز اخر او اعطاء صلاحيات معينه فى حال تغير المستخدم 

ويمكن من خلال الكود تحديد عدد من المستخدمين وتحديد صلاحيتهم ومن دونهم فان الملف لا يفتح 

وان شاء الله تكون من احد الافكار التى يتم بها حمايه مستند الاكسيل 

 

التطبيق4.rar

 

 

[ريان أحمد]

السلام عليكم

 

الملف لا يعمل عندي

أفيس 2003

[ا بو سليمان]

السلام عليكم جميعا 

 

من افضل لا شيا ء عندما تجد حوووووووووووارا  بين   جهاااااااااااابذه العلم    

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

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

اعتذ عن التاخير فى وضع مثال لتعدد المستخدمين  والاستفادة من الحصول على اسم مستخدم الجهاز 

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

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

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

تطبيق 5.rar

Private Sub Workbook_Open()
Dim US As String
US = Environ("username")
Select Case US
    Case Is = "IBRAHIM" 'PUT HERE NAME OF THE USER FOR COMPUTER

        Sheets("Sheet2").Visible = xlSheetVeryHidden
        Sheets("sheet5").Visible = xlSheetVeryHidden
        Sheets("sheet6").Protect
        ActiveWorkbook.Protect

    Case Is = "GAMAL" 'PUT HERE NAME OF THE USER FOR COMPUTER

        Sheets("sheet1").Visible = xlSheetVeryHidden
        Sheets("sheet3").Visible = xlSheetVeryHidden
        Sheets("sheet4").Protect
        ActiveWorkbook.Protect

    Case Is = "AHMED" 'PUT HERE NAME OF THE USER FOR COMPUTER
       Sheets("sheet1").Visible = xlSheetVeryHidden
       Sheets("sheet2").Visible = xlSheetVeryHidden
       Sheets("sheet3").Visible = xlSheetVeryHidden
       Sheets("sheet4").Visible = xlSheetVeryHidden
       Sheets("sheet5").Visible = xlSheetVeryHidden
       ActiveWorkbook.Protect

    Case Else
        MsgBox "  هذة النسخه غير مرخصه يرجى مراجعه مسؤول النظام  "
         With Application
             .DisplayAlerts = False
             .Quit
        End With
    End Select

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim i As Integer
ActiveWorkbook.Unprotect
    For i = 1 To Sheets.Count
        Sheets(i).Visible = xlSheetVisible
        Sheets(i).Unprotect
    Next i

ThisWorkbook.Save

end sub

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

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

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

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

 واى شىء  تحت امرك 

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

الاخ الفاضل zmzm  

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

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

 

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

[دغيدى]

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

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

تتطورت الفكرة لنصل لما نصبوا إليه

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

الاستاذ الفاضل  والاخ الكريم / جمال دغيدي 

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

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

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

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

[Akram Galal]

جزاك الله خيراً يا أ/ ابراهيم

[fwaz]

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