فورم يفتح صفحة الأكسل بكلمة مرور

[almhb]

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

طلب بسيط لفورم يفتح صفحة الأكسل بكلمة مرور.rar

[يوسف عطا]

تفضل يا أخى هذا الكود من أعمال أحد أعمدة المنتدى الأخ الغالى خبور خير

غير كلمة السر الموجودة فى السطر 11 من (جو) إلى أى كلمة أو رقم تريده

Private Sub Worksheet_Activate()

On Error Resume Next

Dim XX As String, S As String

Dim K As Integer, N As Integer

Me.Columns.Hidden = True

For K = 1 To 3

    XX = InputBox(Prompt:="فضلا ادخل كلمة المرور", Title:="المحاولة رقم:" & K)

    If XX = "" Then

	    Sheets("Main").Select

	    Exit Sub

    ElseIf XX <> "جو" Then

	    N = 3 - K

	    If N = 0 Then S = "" Else S = "متبقي عدد " & N & " محاولة"

	    MsgBox "كلمة المرور ليست صحيحة" & Chr(13) & Chr(13) & S, vbCritical + vbMsgBoxRtlReading + vbMsgBoxRight, "عفواً"

    Else

	    Exit For

    End If

Next K

If K = 4 Then

    Sheets("Main").Select

    Exit Sub

Else

    Me.Columns.Hidden = False

Columns("u:IU").EntireColumn.Hidden = True

End If

On Error GoTo 0

End Sub

[basem said]

استاذن استاذ / يوسف

باضافة اقتراح اخر وذلك للافادة ليس اكثر من ذلك

وهذة الاكود منقولة للافادة

كلمة السر 123

طلب بسيط لفورم يفتح صفحة الأكسل بكلمة مرور.rar

تم تعديل نوفمبر 15, 2011 بواسطه باسم سعيد

[يوسف عطا]

إثراء الموضوع بمزيد من الوسائل شئ جميل يا استاذ باسم

دمت بكل ود

[abouelhassan]

شكر وتقدير وشديدواحترام اخوانى

[مجدى يونس]

الاخ العزيز

البرنامج + الشرح معلش الشرح مستعجل لان الوقت متأخر كلمة السر 123

مجدى يونس

صندوق لجدول الضرب.rar

طلب بسيط لفورم يفتح صفحة الأكسل بكلمة مرور.rar

[prosseseur]

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

لدي سؤال فقط كيف يمكننا تغيير كلمة السر ؟

مودتي وتقديري لكم.

[احمد حمور-ابوعبدالله]

جرب هذا

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

[مجدى يونس]

الاخ الفاضل انظر الفيديو

مجدى يونس

تغيير كلمة السر.rar

[almhb]

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

[مجدى يونس]

الاخ العزيز

طريقة سحب الفورم من اكسل 1 على سبيل المثال الى اكسل 2 بعد السحب احفظ اكسل 2 واقفل اكسل 1 الموجود به الفورم الاصلى وجرب الشرح بالفديو

مجدى يونس

نقل الفورم.rar

[جوده]

الاخوه الافاضل مشرفى القسم

تحيه طيبه

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

لكم منى كل احترام وتقدير

[almhb]

شكرا ً أعزائي الكرام ( يوسف عطا و وباسم سعيد و مجدي يونس ,وجميع الأخوة ) لردودكم فقد استفدت منها كثيرا في موضوع طلب بسيط من أهل الخبرة ، وحاولت أن أمشي على شرح الأستاذ مجدي للفديو ما ضبط معي ،

الرجاء توضيح لي الطريقة ، المطلوب والملفين في الملف المرفق مع جزيل شكري وتقديري وجمعة مباركة منتظر ردكم

[عبدالله المجرب]

تم إضافة الحل في الملف المرفق

===

تم دمج الموضوعين (ونرجو عدم فتح موضوع جديد ما دام السابق نشط)

[يوسف عطا]

يتم تغيير الباس وورد بعد الدخول على الموديول او الكود وتغيير الباس من داخله

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

والله اعلم

[almhb]

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

[عبدالله المجرب]

السلام عليكم

تفضل الشرح المرفق

الشرح.rar

[أبو أنس حاجب]

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

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

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

أبو أنس

[أبو أنس حاجب]

السلام عليكم ..

عفوا اقصد زر دخول

أبوأنس

[عبدالله المجرب]

السلام عليكم

اخي ابو انس

جرب استبدل الكود في اليوزر فورم (الخاص بزر الدخول)

بهذا

Private Sub CommandButton1_Click()

If TextBox1.Text = "" Then MsgBox "لم تدخل الرقم السري", vbOKOnly, "تنبيه": Exit Sub

If TextBox1.Text = 123 Then

Application.Visible = True

ورقة1.Activate

Me.Hide

UserForm1.Hide


MsgBox "مرحبا بيك فى برنامج جدول الضرب تصميم منتدى اوفسينا  "

Else

MsgBox "ليس لديك صلاحيات لاستخدام هذا الامر"

TextBox1.Text = ""

Me.TextBox1.SetFocus

End If

End Sub

[أبو أنس حاجب]

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

ابا احمد (عبد الله المجرب)

عافاك الله وحفظك ونسلك ومن تحب الى يوم الدين وفي الآخرة من الفائزين,

أبو أنس

[edkawy]

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

[abouelhassan]

شكر وتقدير وفائق الاحترام

استاذنا

عبدالله المجرب (ابو احمد)

احترامى

[hussein chechen]

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

[احمد فضيله]

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