- Yasaklandı
- #1
sadece benim pc imde çalışacak excel dosyasını nasıl yapılabilir ve 1yıl sonra bu dosya kendisini silsin bunun için ne bilmem gerekiyor .
Dim myWMI As Object, myobj As Object, itm
Set myWMI = GetObject("winmgmts:\\.\root\cimv2")
Set myobj = myWMI.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each itm In myobj
getmyip = itm.IPAddress(0)
Next
if getmyip<>192.198.0.0 then
ActiveWorkbook.Close SaveChanges:=False
End if
bu konuda bana yardımcı olabilecek varmı? wp insta tel verebilirim ama ciddi anlamda yardımı dokunacak birisi lazım
iyi günlerrrrrr...
Dim myWMI As Object, myobj As Object, itm
Set myWMI = GetObject("winmgmts:\\.\root\cimv2")
Set myobj = myWMI.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each itm In myobj
getmyip = itm.IPAddress(0)
Next
if getmyip<>192.198.0.0 then
ActiveWorkbook.Close SaveChanges:=False
End if
bu konuda bana yardımcı olabilecek varmı? wp insta tel verebilirim ama ciddi anlamda yardımı dokunacak birisi lazım
iyi günlerrrrrr...