الفدعاني قام بنشر يوليو 13, 2004 قام بنشر يوليو 13, 2004 السلام عليكم ورحمة الله هل يمكن التعديل على الكود على ان يعطي رسالة عند نهاية المدة( يعني رسالة واحدة ) عند الانتهاء التي تم تحديد عدد فتح الملف Private Sub Workbook_Open() ActiveWorkbook.Sheets(1).Select Range("a1").Activate Dim aa As Byte If IsNull(Range("b65535").Value) Then Range("b65535").Value = 1 End If aa = Range("b65535").Value If aa = 10 Then MsgBox "Used for 10 times , no more use is allowed !!" Application.ActiveWorkbook.Close Exit Sub Else Dim bb As String bb = Str(aa + 1) MsgBox "This File was used " & bb & " Times " End If Range("b65535").Value = aa + 1 Application.ActiveWorkbook.Save End Sub
الفدعاني قام بنشر يوليو 15, 2004 الكاتب قام بنشر يوليو 15, 2004 هنا شرح التخلص من الرسالة اضغط ولكن المطلوب رسالة واحدة عند انتهاء مدة فتح الملف ان يخبرك انتهاء المدة المقررة للفتح؟ شاكر للجميع
محمد طاهر عرفه قام بنشر يوليو 15, 2004 قام بنشر يوليو 15, 2004 قم بحذف الجزء التالي Else Dim bb As String bb = Str(aa + 1) MsgBox "This File was used " & bb & " Times "
الردود الموصى بها