كود اضافة لكود فورم الشاشة الافتتاحية

مصطفى كمال متولى · يونيو 8, 2013

Private Sub Workbook_Open()

On Error Resume Next

UserForm2.Show

End Sub

اريد اضافة لهذا الكود كود اخر يفتح الورقة رقم 1 بصفة دائمة الملف به اكثر من 10ورقات

مصطفى كمال متولى · يونيو 9, 2013

هل هذا الكود صحيح

Private Sub Workbook_Open()

On Error Resume Next

UserForm2.Show

If ActiveSheet.CodeName <> "ورقة1" Then

ورقة1.Select

End If

End Sub

مصطفى كمال متولى · يونيو 9, 2013

تم العثور على الكود المطلوب وتم التطبيق بنجاح وشكرا

Private Sub Workbook_Open()

On Error Resume Next

UserForm2.Show

If ActiveSheet.CodeName <> "ورقة1" Then

ورقة1.Select

End If

End Sub

تم تعديل يونيو 9, 2013 بواسطه مصطفى كامل

**ضاحي الغريب** · يونيو 9, 2013

أخي الفاضل // مصطفي

فقط اضف السطر التالي

للكود الاول لديك

sheet1.Activate
أو حسب النسخة لديك عربي او انجليزي
ورقة1.Activate

Private Sub Workbook_Open()
On Error Resume Next
UserForm2.Show
sheet1.Activate
End Sub

مصطفى كمال متولى · يونيو 9, 2013

الردود الموصى بها