طلب حل مشكلة دمج الأكواد

[محمد غنيمي]

الأخوة أعضاء المنتدي الكرام أرجو منكم مساعدتي في الربط بين الكودين مرفق ملف لتعديل الاكواد به

 

الكود الأول :

Private Sub Workbook_Open()

Application.DisplayFormulaBar = False
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)"

Sheets("MyDate").Range("E3:IT3").ClearContents
For I = 2 To Sheets.Count
Sheets("MyDate").Cells(3, I + 3) = Sheets(I).Name
Next

End Sub

 

الكود الثاني

 

Option Explicit

Private Const MAX_USES As Long = 3

Private Sub Workbook_Open()

    Dim lNumberOfUses As Long
   
    On Error Resume Next
   
    lNumberOfUses = Evaluate("NumberOfUses")
   
    If Err.Number = 13 Then
        Me.Names.Add "NumberOfUses", 1, False
        Me.Save
        Exit Sub
    End If
   
    Me.Names.Add "NumberOfUses", Evaluate("NumberOfUses") + 1, False
    Me.Save
    If Evaluate("NumberOfUses") > MAX_USES Then Kill_Myself

End Sub

Private Sub Kill_Myself()
   
    With Me
        .Saved = True
        .ChangeFileAccess xlReadOnly
        Kill .FullName
        .Close False
    End With
   
End Sub

 

 

اقفال.rar