مصطفى كمال متولى قام بنشر يونيو 8, 2013 قام بنشر يونيو 8, 2013 Private Sub Workbook_Open() On Error Resume Next UserForm2.Show End Sub اريد اضافة لهذا الكود كود اخر يفتح الورقة رقم 1 بصفة دائمة الملف به اكثر من 10ورقات
مصطفى كمال متولى قام بنشر يونيو 9, 2013 الكاتب قام بنشر يونيو 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 (معدل) تم العثور على الكود المطلوب وتم التطبيق بنجاح وشكرا 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 قام بنشر يونيو 9, 2013 أخي الفاضل // مصطفي فقط اضف السطر التالي للكود الاول لديك sheet1.Activate أو حسب النسخة لديك عربي او انجليزي ورقة1.Activate Private Sub Workbook_Open() On Error Resume Next UserForm2.Show sheet1.Activate End Sub 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.