طلب مساعدة لاصلاح برنامج

[عمر عبد الرحمن]

البرنامج منقول من المنتدى اوفيسنا قمت بالتعديل عليه بما يناسب طبيعة عملي لكن هناك خلل في الكود الذي ستدعي الصفحة "sheet1"مثلا .الرجاء مساعدتي من فضلكم وشكرا.اخوكم عمر.اسم المستخدم salma وكلمة السر5050

Book2.rar

تم تعديل يونيو 1, 2014 بواسطه omarphoto1

[ياسين ( أبو وسام )]

الباسورد لا يعمل

[عمر عبد الرحمن]

• Members-1عذرا اخي لقد تم وضع اسم المستخدم salma وكلمة السر5050

[عمر عبد الرحمن]

البرنامج منقول من المنتدى اوفيسنا قمت بالتعديل عليه بما يناسب طبيعة عملي لكن هناك خلل في الكود الذي ستدعي الصفحة "sheet1"مثلا .الرجاء مساعدتي من فضلكم وشكرا.اخوكم عمر.اسم المستخدم salma وكلمة السر5050

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

[شوقي ربيع]

السلام عليكم

استبدل الاكوادورم لديك بهاته الاكواد 

Option Explicit

Sub VisSh(shNm As String)
Dim S As Worksheet
Sheets(shNm).Visible = True
For Each S In Worksheets
If S.Name <> Sheets(shNm).Name Then Sheets(S.Name).Visible = xlSheetVeryHidden
Next
End Sub


Private Sub CommandButton1_Click()
VisSh ("Sheet1")
Unload Me
End Sub

Private Sub CommandButton2_Click()
VisSh ("Sheet2")
Unload Me
End Sub

Private Sub CommandButton3_Click()
VisSh ("Sheet3")
Unload Me
End Sub

[عمر عبد الرحمن]

البرنامج منقول من المنتدى اوفيسنا قمت بالتعديل عليه بما يناسب طبيعة عملي لكن هناك خلل في الكود الذي ستدعي الصفحة "sheet1"مثلا .الرجاء مساعدتي من فضلكم وشكرا.اخوكم عمر.اسم المستخدم salma وكلمة السر5050

 

شكرا الاخ شوقي ربيع لي طلب 

اريد الانتقال من الفورم الى صفحة في اكسل والعودة عن طريق زر تحكم

Book222.rar

[شوقي ربيع]

انشاء زر في الصفحة من المطور واربطه بهذا الماكرو

Sub sho()
UserForm2.Show
End Sub

الكود السابق لستدهاء الفورم الثاني

[ا بو سليمان]

شوقي   ربيع 

 

ما بين الشوق و الربيع  تجد  الورود ذات الرائحة العطره  وكذلك عطاء الا خ المبدع    شوقي ربيع 

تم تعديل يونيو 3, 2014 بواسطه زمزم