محمد عبد القادر قام بنشر يناير 31, 2020 مشاركة قام بنشر يناير 31, 2020 كيف نشغل الكودين مع بعض كودين.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة Ali Mohamed Ali قام بنشر يناير 31, 2020 أفضل إجابة مشاركة قام بنشر يناير 31, 2020 يمكنك استخدام الكود هكذا فى حدث ThisWorkBook 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 = 5 Then MsgBox "Used for 5 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 If Date >= DateValue("26/6/2021") Or Sheets("Sheet1").Range("S1") >= Date Then Sheets("Sheet1").Range("S1") = Date MsgBox " expire انتهت صلاحية الملف " ThisWorkbook.Save Application.Quit End If End Sub 2 رابط هذا التعليق شارك More sharing options...
محمد عبد القادر قام بنشر يناير 31, 2020 الكاتب مشاركة قام بنشر يناير 31, 2020 شكرا اخي الحبيب بارك الله فيكم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان