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 جزاك الله خيرا احسنت تم تجربة كل جزئية فى الكود فهو يعمل بكفاءة شكرا لك وبارك الله فيك اخوك سعد عابد
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.