Makroyu Sadece Belirlenen Dosyada Çalıştırma

[mukoli]

Merhabalar makro içeren dosyam var 5 dk arayla çalışan exceli simge duruma küçültdüğümde çalışmaya devam etmesini ve farklı excel kulllanmaya devam etmem lazım. Kısaca makro çalışan dosya etkilenmicek farklı excelleri açıtgımda çözümü varmıdır acaba yardımlarınızı rica ediyorum kolay gelsin

 

[mukoli]

Sub PingSystem()
'----First clear the cells in Row B-----------------
ClearStatusCells
'---------------------------------------------------
Dim strcomputer As String


Application.ScreenUpdating = True
For introw = 2 To Workbooks("Günlük_Ciro.xlsm").Worksheets("Toplam").Cells(65536, 13).End(xlUp).Row
strcomputer = Workbooks("Günlük_Ciro.xlsm").Worksheets("Toplam").Cells(introw, 13).Value
'------------Call ping function and post the output in the adjacent cell-------
If Ping(strcomputer) = True Then

strpingtest = "Online"

Workbooks("Günlük_Ciro.xlsm").Worksheets("Toplam").Cells(introw, 14).Value = strpingtest

Else
Workbooks("Günlük_Ciro.xlsm").Worksheets("Toplam").Cells(introw, 14).Font.Color = RGB(200, 0, 0)
Workbooks("Günlük_Ciro.xlsm").Worksheets("Toplam").Cells(introw, 14).Value = "Offline"
End If

Next
 Application.Run ("Günlük_Ciro.xlsm!Module4.Calistir")
 'Call Calistir
End Sub

Function Ping(strcomputer)

Dim objshell, boolcode
Set objshell = CreateObject("wscript.shell")
boolcode = objshell.Run("ping -n 1 -w 5000 " & strcomputer, 0, True)
If boolcode = 0 Then
Ping = True
Else
Ping = False
End If
End Function

Merhaba makrom budur başka excel açıkken işlem hata veriyor yardımcı olursanız cok sevinirim

 

[mukoli]

varmıdır çözümü acaba örnek dosya ekleyebilirim.