محتاج تعديل علي الفورم

[2saad]

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

عندي شيت به فورم 1 وفورم2

فورم 1 به شاشة دخول للورك بوك ( الباسورد واليوزر نيم رقم 1 )

محتاح كود يجعل فورم2 يفتح مباشرة بعد فورم 1

وفورم 2 به مجموعة كومنت بوتن بعدد أوراق العمل

محتاج لما اضغط علي اي كومنت بوتن يفت ورقة العمل الخاصة به ويخفي باقي أوراق العمل .محمد.xls

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

[أبومروان]

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

اتفضل استاذ @2saad لعله المطلوب

وهذا كود اظهار الفورم

اقتباس

UserForm2.Show

 

هذا كود اظهار الصفحه والاخفاء

Private Sub CommandButton4_Click()
Sheets("a").Visible = True
Sheets("n").Visible = False
Sheets("k").Visible = False
Sheets("l").Visible = False
Sheets("m").Visible = False
Sheets("i").Visible = False
Sheets("j").Visible = False
Sheets("b").Visible = False
Sheets("f").Visible = False
Sheets("g").Visible = False
Sheets("h").Visible = False
Sheets("d").Visible = False
Sheets("e").Visible = False
End Sub

 

محمد.xls

[أبومروان]

سيتم تحويل حالة العرض الخاصة بكل صفحة بعد تنفيذ هذا الكود. إذا كانت الصفحة مرئية، فسيتم إخفاءها. وإذا كانت مخفية، فستصبح مرئية. يمكنك ضبط الكود حسب احتياجاتك

Sub ShowHideSheets()
    Dim sht As Worksheet
    For Each sht In ThisWorkbook.Worksheets
        If sht.Visible = True Then
            sht.Visible = False
        Else
            sht.Visible = True
        End If
    Next sht
End Sub

 

 كود فورم 1 به شاشة دخول للورك بوك 

Private Sub CommandButton1_Click()
    ' تحقق من صحة اسم المستخدم وكلمة المرور
    If TextBox1.Value = "اسم المستخدم الصحيح" And TextBox2.Value = "كلمة المرور الصحيحة" Then
        UserForm2.Show ' اعرض UserForm2 إذا كانت بيانات الدخول صحيحة
    Else
        MsgBox "اسم المستخدم أو كلمة المرور غير صحيحة" ' أظهر رسالة خطأ إذا كانت بيانات الدخول غير صحيحة
    End If
End Sub

 

[2saad]

شكرا لرد حضرتك وبارك الله فيك

عند تطبيق الكود يعطينا خطأ في الأكواد

[2saad]

هل من مساعد ؟

 

[أبومروان]

6 ساعات مضت, 2saad said:

شكرا لرد حضرتك وبارك الله فيك

عند تطبيق الكود يعطينا خطأ في الأكواد

اي كود يعطيك خطأ برجاء ارفق صوره من الخطأ للوصول للحل افضل 🌹

[محمد يوسف ابو يوسف]

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

بعد اذن .. اخي .. كريم

 

تفضل محمد.xls

 

[أبومروان]

19 دقائق مضت, محمد يوسف ابو يوسف said:

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

بعد اذن .. اخي .. كريم

 

تفضل محمد.xls

 

سلمت يمينك يا استاذ👌🌹 @محمد يوسف ابو يوسف

[2saad]

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

وكل عام وأنتم طيبون