مساعدة في عمل شاشة دخول بكلمة السر

[عبدالواحد احمد]

السلام عليكم ورحمة الله  الأخوة الكرام أعضاء وزوار منتدانا الكريم

 

عيدكم مبارك سعيد وكل عام وانتم بالف خير

 

طلب عمل شاشة دوخو تفتح بي كلمة السر دونا اسم المستخدم

بعد شرح في المرفيق الملف

MAYAM.zip

[عبد العزيز البسكري]

السلام عليكم

محاولة بسيطة ربما تفي بالغرض

كلمة المرور :123456 

تحياتي / عبد العزيز البسكري

MAYAM.rar

[عبدالواحد احمد]

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

[عبد العزيز البسكري]

تفضل سيدي الكريم نفس الملف و بنفس كلمة المرور طريقة أخرى عن طريق الأنبتْ بوكس :

MAYAM 2.rar

[ياسر خليل أبو البراء]

بارك الله فيك أخي العزيز عبد العزيز 

حلول رائعة من شخص متميز

وكل عام وأنت وجميع الأخوة بالمنتدى بخير ..

تقبل الله منا ومنكم

[عبد العزيز البسكري]

 

بارك الله فيك أخي العزيز عبد العزيز 

حلول رائعة من شخص متميز

وكل عام وأنت وجميع الأخوة بالمنتدى بخير ..

تقبل الله منا ومنكم

 

ألف شكر سيدي و أستاذي الغالي ياسر خليل أبو البراء

عيد فطر مبارك كل عام و أنت  وجميع أفراد أسرتك الطيّبة بمليون خير .. ينعاد علينا و على جميع أسرة منتدى أوفيسنا وكل  المسلمين بالخير و اليُمن و البركات

تقبّل الله منا و منكم

عقبال مئة سنة

أخوك / عبد العزيز البسكري

[عبدالواحد احمد]

جزاك الله كل خير أخي الكريم عبد العزيز البسكري

لدية مشكلة  يوجد لدي كود في  workdook

لتغيير لغة الكتابة الى اللغه العربيه

متال الكود شاشة دوخول ولي هاديحدوت خطاء في الملف عند دوخول

الكود

الاخ محمدي عبد السميع

 

http://www.officena.net/ib/index.php?showtopic=41708&hl=&fromsearch=1

تم تعديل يوليو 17, 2015 بواسطه abdalwahd

[ياسر خليل أبو البراء]

لو فهمت طلبك جرب تضع هذا السطر في الأول

UserForm1.Show

أي أن هذا السطر يسبق السطر الذي يقوم بتغيير لغة الإدخال

[عبدالواحد احمد]

جزاك الله كل خير أخي الكريم ممكن لو سمحت ان تشرح لي اكتر جزاك الله خير

تم تعديل يوليو 17, 2015 بواسطه abdalwahd

[ياسر خليل أبو البراء]

هل مشكلتك كما خمنت في التعامل مع لغة الإدخال أم ماذا؟

حيث أنك لم توضح المطلوب هنا بشكل جيد قم بتوضيح المشكلة جيداً لتحصل على شرح لطريقة حل المشكلة

[عبدالواحد احمد]

اخي ياسر حول ان تفتح الملف وستارة المشكلة

MAYAM 2.zip

[عبد العزيز البسكري]

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

عيد مبارك

كود الأستاذ محمدي عبد السميع لتغيير الكتابة للغة العربية :

Private Sub Workbook_Open()
hosami "00000401", 1
End Sub

وهذا الكود الموجود في الملف لكلمة المرور :

Private Sub Workbook_Open()
Dim pwd As String:  pwd = "123456"
Cells(Rows.Count, Columns.Count).Activate
    If Application.InputBox("برجاء إدخال كلمة المرور للدخول للبرنامج", "كلمة المرور", "") <> pwd Then
        Sheets("شاشة دخول").Activate
        MsgBox "الباسورد غير صحيحة ", 0, "كلمة المرور"
        Application.DisplayAlerts = False
        ThisWorkbook.Close
        Application.Quit
        Exit Sub
    Else
        MsgBox "مرحباً بك", 32, "دخول ناجح"
        Range("A1").Activate
    End If
    Feuil1.Activate
    hosami "00000401", 1
End Sub

عليك سيدي الفاضل أن تضع بين عينيك دائما و أبدًا أنه لا يمكن في THISWORKBOOK كتابة الأجزاء الملونة بالآحمر مرتين أو ثلاثة أو أربعة..مثلا عندك كوديْن أو ثلاثة طبعا كلها سوف تبدأ بنفس الأجزاء الملونة بالأحمر

ما عليك فعله هو أخد عبارة PRIVATE SUB WORKBOOK OPENوتكتبها أعلى الكود وتأخذ عبارة END SUB و تضعها أسفل الكود وتقوم بجمع كل أكوادك التي سوف تضعها في ال THISWORKBOOK بدون هذه الأجزاء الملونة بالآحمر شاهد الصورة والجزء الخاص بتغيير اللغة العربية باللون بالأخضر أين هو

تحياتي / عبد العزيز البسكري

MAYAM 3.rar

[عبدالواحد احمد]

جزاك الله كل خير أخي الكريم عبد العزيز البسكري عيد مبارك

 

لما اريد ان افتح الملف بي يظهار هد الرسلة

تم تعديل يوليو 17, 2015 بواسطه abdalwahd

[ياسر خليل أبو البراء]

الاخ الكريم عبد الواحد

لقد أشار إليك الأخ الغالي عبد العزيز إلى الخطأ أو المشكلة .. هل قمت بتطبيق ما قاله

عموماً جرب الملف التالي .. الملف يعمل بشكل جيد معي

إذا كان هناك رسالة خطأ لا تنقر End بل انقر كلمة Debug وشوف السطر الملون باللون الأصفر وقلنا عليه لربما نستطيع أن نفيدك

MAYAM 2.rar

[عبد العزيز البسكري]

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

[عبدالواحد احمد]

كل عام وأنتم بي الف خير بمناسبة عيد الفطر المبارك

 

جزيتم خيراً إخواني الكرام على تساع صادر تلبية طلباتنا

[ياسر خليل أبو البراء]

أخي الكريم عبد الواحد

يرجى تغيير اسم الظهور للغة العربية

 

هل تم حل المشكلة تماماً أم أنه ما زالت المشكلة عالقة؟

[عبدالواحد احمد]

نعم اخي الغالي ياسرلقد تم حل المشكلة تماماً بارك الله فيك

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

[ياسر خليل أبو البراء]

لا تنسى أن تضغط على كلمة "أعجبني هذا" على المشاركات التي أعجبتك بالفعل

 

ولا تنسى أن تقوم بتغيير اسم الظهور للغة العربية

تقبل الله منا ومنكم وعساكم من عوادة .. يلا تحية بزيادة