كيف نشغل الكودين مع بعض

[محمد عبد القادر]

 كيف نشغل الكودين مع بعض

كودين.xlsx

[Ali Mohamed Ali]

يمكنك استخدام الكود هكذا فى حدث 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

 

[محمد عبد القادر]

شكرا اخي الحبيب بارك الله فيكم