saad abed قام بنشر سبتمبر 30, 2011 قام بنشر سبتمبر 30, 2011 Private Sub Workbook_Open() .xls" thenمرتبات سعد If ActiveWorkbook.NAME = " Sheets("الترحيل").Select UserForm5.Show Else ActiveWorkbook.Close SaveChanges:=False End If End Sub اخوانى الاعضاء الكود يمنع تغيير الاسم ويظهر فورم الدخول ويجعل ورقة الترحيل هى البداية المطلوب اضافة شرط وهو انتهاء الملف عند تاريخ معين فى نفس الكود وشرحة صيغة التاريخ يوم شهر سنة مثلا شكرا لكم اخوكم سعد عابد
الـعيدروس قام بنشر سبتمبر 30, 2011 قام بنشر سبتمبر 30, 2011 السلام عليكم الاخ الفاضل سعد عابد ربما يكون هكذا Private Sub Workbook_Open() If Date >= VBA.DateSerial(2011, 9, 20) Then MsgBox "انتهت مدة البرنامج ", vbExclamation, "O_EXE" ThisWorkbook.Save Application.Quit Exit Sub Else If ActiveWorkbook.Name = "مرتبات سعد.xls" Then Sheets("الترحيل").Select UserForm5.Show Else ActiveWorkbook.Close SaveChanges:=False End If End If End Sub
الـعيدروس قام بنشر سبتمبر 30, 2011 قام بنشر سبتمبر 30, 2011 اخي سعد تقصد انتهاء العمل اي يعني تذكير فقط ام يغلق البرنامج ربما اكون فهمت طلبك خطاء
saad abed قام بنشر سبتمبر 30, 2011 الكاتب قام بنشر سبتمبر 30, 2011 اخى alidroos جزاك الله خيرا احسنت تم تجربة كل جزئية فى الكود فهو يعمل بكفاءة شكرا لك وبارك الله فيك اخوك سعد عابد
الردود الموصى بها
انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد
يجب ان تكون عضوا لدينا لتتمكن من التعليق
انشئ حساب جديد
سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .
سجل حساب جديدتسجيل دخول
هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.
سجل دخولك الان