Makro nun Bilgisayar ismine göre çalışması

[kimfx]

Herkasa merhaba,

Arkadaşlar Makro çalışmadan önce bilgisayarın ismini kontrol edebilirmi Ã?rneğin bilgisayar Programı (AA) ismine kaydedilmiş Makro ismi kontrol edecek (AA) ise çalışacak (AA) değilse çalışmayacak. Böyle bişey yapılabilirmi. Teşekkürler

 

[Kemal Demir]

Sub pcisimkontrol_et()
'istediginiz ismi yazın
If Application.UserName = "excel.web.tr" Then
Application.Run "deneme"
Else
MsgBox ("bay")
End If
End Sub
Sub deneme()
MsgBox ("Pc İsmi Doğrudur")
'Diğer Kodları yazınız
End Sub


Umarım İşinizi Görür.
Ben sadece Makro Calıstır dersen Bu kontrolu yapar diye biliyorum.Ama Eksik Biliyor olabilirim.

 

[kimfx]

Teşekkürler.