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 اخوانى الاعضاء الكود يمنع تغيير الاسم ويظهر فورم الدخول ويجعل ورقة الترحيل هى البداية المطلوب اضافة شرط وهو انتهاء الملف عند تاريخ معين فى نفس الكود وشرحة صيغة التاريخ يوم شهر سنة مثلا شكرا لكم اخوكم سعد عابد رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر سبتمبر 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 رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر سبتمبر 30, 2011 مشاركة قام بنشر سبتمبر 30, 2011 اخي سعد تقصد انتهاء العمل اي يعني تذكير فقط ام يغلق البرنامج ربما اكون فهمت طلبك خطاء رابط هذا التعليق شارك More sharing options...
saad abed قام بنشر سبتمبر 30, 2011 الكاتب مشاركة قام بنشر سبتمبر 30, 2011 اخى alidroos جزاك الله خيرا احسنت تم تجربة كل جزئية فى الكود فهو يعمل بكفاءة شكرا لك وبارك الله فيك اخوك سعد عابد رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر سبتمبر 30, 2011 مشاركة قام بنشر سبتمبر 30, 2011 الحمد لله انه الطلب وفقك الله اخي سعد رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر أكتوبر 1, 2011 مشاركة قام بنشر أكتوبر 1, 2011 شكرا على الملف الرائع رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.