Merhaba arkadaşlar,
forumda epey bi aradım ama excelde macro bilgim pek olmadığından yapmayı başaramadım.
şimdi aşağıdaki kodla bilgisayarın bağlı bulunduğu ağ adını alıyorum
--------------------------------------
Declare Function nom_ordi Lib "kernel32" Alias "GetComputerNameA" (ByVal lbbuffer As String, nsize As Long) As Long
Sub nom_de_l_ordinateur()
Dim ag As String
ag = Space(50)
Call nom_ordi(ag, 51)
MsgBox Left(ag, InStr(1, ag, Chr(0)) - 1)
End Sub
--------------------------------------
burada bana "IBM" diye sonuc veriyor.
şimdi benim yapmak istediğim
eğer burdan çıkan sonuc "IBM" e eşit değilse excel kapansın ve dosyam açılmasın. "IBM" e eşit ise excel işlemine devam etsin.
Yardımlarınız için şimdiden çok teşekkür ederim. Umarım başlığı doğru yere açmışımdır.
Saygılar.
forumda epey bi aradım ama excelde macro bilgim pek olmadığından yapmayı başaramadım.
şimdi aşağıdaki kodla bilgisayarın bağlı bulunduğu ağ adını alıyorum
--------------------------------------
Declare Function nom_ordi Lib "kernel32" Alias "GetComputerNameA" (ByVal lbbuffer As String, nsize As Long) As Long
Sub nom_de_l_ordinateur()
Dim ag As String
ag = Space(50)
Call nom_ordi(ag, 51)
MsgBox Left(ag, InStr(1, ag, Chr(0)) - 1)
End Sub
--------------------------------------
burada bana "IBM" diye sonuc veriyor.
şimdi benim yapmak istediğim
eğer burdan çıkan sonuc "IBM" e eşit değilse excel kapansın ve dosyam açılmasın. "IBM" e eşit ise excel işlemine devam etsin.
Yardımlarınız için şimdiden çok teşekkür ederim. Umarım başlığı doğru yere açmışımdır.
Saygılar.