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

[حمادة عمر]

برجاء ارفاق الملف ... ان امكن ذلك

[metwally1]

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

اخي الكريم حمادة اشكرك على موضوعك الرائع جدا واشكرك اكثر على متابعتك للموضوع و الرد على المقترحات

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

وشكرا جذيلا على الموضوع الرائع

[حمادة عمر]

السلام عليكم

الاخ الكريم / metwally1

 

بارك الله فيك

وجزيل شكري علي كلماتك الجميله جدا

 

بخصوص تعلم عالم الاكواد في الفيجوال بيسك ... لا يوجد احد يمكنه ان يخبرك باي شئ تبدأ

ولكن يتم ذلك مع البحث والاستفسار ... فكلنا قد بدأنا من الصفر ... وما زلنا نتعلم الكثير كل يوم

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

 

معالم على طريق البرمجة بلغة VBA

http://www.officena.net/ib/index.php?showtopic=31559&hl=%D9%85%D8%B9%D8%A7%D9%84%D9%85

 

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

http://www.officena.net/ib/index.php?showtopic=32009&hl=%D9%85%D8%B9%D8%A7%D9%84%D9%85

 

ورابط آخر رااائع بشرح فيديو ممتاز

 

دورة شرح الفيجول بيسك للتطبيقات VBA

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

 

وبالبحث ستجد الكثير والكثير .... واي استفسار او طلب مهما كان صغير او كبيرا ضع له موضوع جديد ... وستجد الجميع معك

وستجد افضل الردود والحلول ( باذن الله )

وسأكون من اول المنتظرين لاولي روائعك التي ستقوم بتصميمها بعد ذلك ( ان شاء الله )

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

[حمادة عمر]

واليك اخي الكريم

رابط لمنجم من الشروحات الراائعة

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

[على عبدالراضى]

السلام عليكم

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

وشكرا وارجوا الرد

[حمادة عمر]

السلام عليكم

الاخ الكريم / على عبد

بارك الله فيك

واسعد جدا بان تكون اول مشاركة لك في المنتدي في موضوع لي

وستسعد جدا ( ان شاء الله ) بانضمامك لاسرة هذا الصرح العملاق

====================

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

حيث لايعمل الماكرو او الفورم الا اذا كان ستوي امان الماكرو منخفض

واليك طريقة تخفيض مستوي الامان ( بالصور ) مع الشرح في كل اصدارات الاوفيس 2003 ، 2007 ، 2010

وستحل المشكلة لديك باذن الله

واي استفسار او طلب ... معك دائما ان شاء الله

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

 

 

طريقة تخفيض مستوى الأمان في كل إصدارات الإكسيل.rar

[metwally1]

السلام عليكم

الاخ الكريم / metwally1

 

بارك الله فيك

وجزيل شكري علي كلماتك الجميله جدا

 

بخصوص تعلم عالم الاكواد في الفيجوال بيسك ... لا يوجد احد يمكنه ان يخبرك باي شئ تبدأ

ولكن يتم ذلك مع البحث والاستفسار ... فكلنا قد بدأنا من الصفر ... وما زلنا نتعلم الكثير كل يوم

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

 

معالم على طريق البرمجة بلغة VBA

http://www.officena.net/ib/index.php?showtopic=31559&hl=%D9%85%D8%B9%D8%A7%D9%84%D9%85

 

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

http://www.officena.net/ib/index.php?showtopic=32009&hl=%D9%85%D8%B9%D8%A7%D9%84%D9%85

 

ورابط آخر رااائع بشرح فيديو ممتاز

 

دورة شرح الفيجول بيسك للتطبيقات VBA

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

 

وبالبحث ستجد الكثير والكثير .... واي استفسار او طلب مهما كان صغير او كبيرا ضع له موضوع جديد ... وستجد الجميع معك

وستجد افضل الردود والحلول ( باذن الله )

وسأكون من اول المنتظرين لاولي روائعك التي ستقوم بتصميمها بعد ذلك ( ان شاء الله )

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

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

[حمادة عمر]

السلام عليكم

الاخ الكريم /http://www.officena....showtopic=41520

[يثرب]

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

 

[حمادة عمر]

السلام عليكم

الاخ الكريم / yathreb

 

بارك الله فيك

وسعدت جدا عندما رأيت ان اول مشاركة لك في المنتدي في موضوع لي

ارجو ان اكوت قد وفقت في الشرح وتوصيل المعلومة

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

 

ولك دعوة خاصة اخي الكريم ... علي الرابط

لتغيير الاسم الي العربية .... برجاء الاطلاع علي الموضوع

http://www.officena....showtopic=41520

[على عبدالراضى]

الاخ واستاذى / حمادة

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

اعتذر عن الاطالة ولكن هدذا الامر مهم جدا لى

وارجو الرد وشكرا

[على عبدالراضى]

الاخ واستاذى / حمادة

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

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

ليفتح باسم المستخدم وكلمة السر ولايفتح على صفحة الاكسيل . 

وارجو الرد وشكرا

[حمادة عمر]

اولا اخي الكريم ... ماهو اصدار الاكسيل علي الجهاز الآخر ؟؟

[حمادة عمر]

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

[على عبدالراضى]

 الاستاذ / حمادة

انا متشكر على الاهتما م والرد

اما عن نوع الاكسيل على الجهازين هو 2010

اما عن طريق النسخ نعم فقت بالنسخ جيدا على الفلاشة

وشكرا لكم

[حمادة عمر]

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

يجب أن تعرف أنه يجب عليك تخفيض الأمان علي أي جهاز تقوم بنقل الملفات أليه ... قم بتخفيض الأمان للأكسيل علي الجهاز الآخر

و لا يوجد أخي طريقة معينة لنقل مثل هذه الملفات ... فالنسخ و النقل لها يتم كما يتم لأي ملف آخر

ولكن جرب أن تقوم بنقل الملف مضغوط ثم قم بفك الضغط علي الجهاز الآخر

وفي انتظار ردك ...

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

[hamad abu mohammad]

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

[حمادة عمر]

السلام عليكم

الاخ الكريم / hamad abu mohammad

 

بارك الله فيك

كم اسعدني ذلك .. انني افيد شخص ما

مرور طيب وكريم من اخ كريم

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

[على عبدالراضى]

الاستاذ والاخ الفاضل / حمادة

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

[حمادة عمر]

السلام عليكم

الاخ الكريم / على عبد

بارك الله فيك

الحمد لله ان توصلت لما تريد

وجعلنا الله عند حسن الظن دائما

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

[على عبدالراضى]

الاخ الفاضل / حمادة

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

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

ثانيا احب المساعدة منك فى هذا الملف حيث اننى تعلمت من احد الاخوة فى المنتدى هذاالكود

Private Sub CommandButton1_Click()
If TextBox1 = Sheets("الرصد").Range("cf1").Text Then
MsgBox "كلمة السر صحيحة و سينفذ ما طلبت", vbOKOnly, "حسنــــــــــا"
  Cells.Select
    Selection.EntireColumn.Hidden = False
    Rows("10:359").Select
    Selection.Sort Key1:=Range("b10"), Order1:=xlAscending, Header:=xlNo, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
        End
        Else
        MsgBox " العمل غير مشروع      .....   كلمة السر خطأ  " & Chr(13) & "   حاول مرة أخرى   ", vbOKOnly + vbMsgBoxRtlReading + vbMsgBoxRight, "عفــــــــوا"
        End
        End If
End Sub

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

صورة.rar

واشكرك للمرة الاف

على الاهتمام والرد

 

 

[حمادة عمر]

السلام عليكم

الاخ الكريم / على عبدالراضى

قم بارفاق الملف حتي لو به مثال

لو ان البيانات الموجودة في برنامجك سرية مثلا

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

ويجب معرفة باقي الارتباطات الخاصة بالكود

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

[على عبدالراضى]

الاخ /حمادة

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

الملف ليس بة معلومات سرية ولكن يحتوى على العديد من اوراق الاكسيل وكلما حولت رفعة يخبرنى الموقع بان المساحة المحددة لى 1000 كيلو

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

الملف المرفق

1.rar

[حمادة عمر]

السلام عليكم

الاخ الكريم / على عبدالراضى

بارك الله فيك

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

الرقم السري للدخول  :   1

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

فتم التعديل الطفيف علي الكود المرسل منكم ليكون كما يلي :

Private Sub CommandButton1_Click()
If TextBox1 = Sheets("æÑÞÉ1").Range("I1").Text Then
MsgBox "ßáãÉ ÇáÓÑ ÕÍíÍÉ æ íÊã ÊäÝíÐ ØáÈß", vbOKOnly, "ÔßÜÜÑÇ"
Sheets("æÑÞÉ1").Select
   Cells.Select
    Selection.EntireColumn.Hidden = False
    Rows("9:120").Select
    Selection.Sort Key1:=Range("I9"), Order1:=xlAscending, Header:=xlNo, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
        End
        Else
        MsgBox "ßáãÉ ÇáÓÑ ÎØÇ  " & Chr(13) & "  ÍÇæá ãÑÉ ÇÎÑì   ", vbOKOnly + vbMsgBoxRtlReading + vbMsgBoxRight, "ÚÝæÇ"
       Application.Quit
      '  End
        End If
End Sub

واليك المف المرفق

وفي انتظار ردك ... وطلباتك

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

 

1++.rar

 

[على عبدالراضى]

الاخ /حمادة

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

وشكرا جزيل خيراعلى المجهود والله يجز اللسان عن الشكر ومدى استحمالك لكثرة طلباتي المتعددة وزادك الله من علمة وشكرا مرة ثانية وثالثة ورابع ............... الى اخرة