Makronun tek bilgisayarda çalışması

[dumanibo]

Yazdığım makronun (pc adına göre vs.) sadece kullandığım bilgisayarda çalışmasını sağlamak istiyorum. Bir kaç deneme yaptım ama olmadı.

Bunun için nasıl bir kod yazmam gerekir acaba?

 

[hamitcan]

Sub nn()
    If Environ("computername") <> "aa" Then 'Bilgisayar isminizi yazın
        MsgBox "Bu makro sadece aa isimli bilgisayarda çalışır "
    Else
        MsgBox "makro çalışdı"
    End If
End Sub

 

[dumanibo]

teşekkür ederim sn. hamitcan. Bu işime yaradı gerçekten.

 

[uzmanamele]

merhaba

alternatif olsun.

Sub fso()
Dim fso As Object
Rem izin verilen kullanıcı için hard disk seri no kontrol et
Set fso = CreateObject("Scripting.FileSystemObject")
serino = fso.GetDrive("C:\").SerialNumber
If serino <> "12345678" Then
MsgBox "ııh, ısrar etme çalışmayacağım"
ThisWorkbook.Close
End If
End Sub

 

[dumanibo]

Teşekkür ederim Sn. uzmanamele. Verdiğiniz örnek de işime yaradı.

 

[baydeniro]

Sayın uzmanamele, sayın hamitcan bu harika kodlar için çok teşekkürler.

 

[oguzka]

Bilgisayarımı açar açmaz açtım excel.web.tr sitemi. Bugün neler öğreneceğim derken ilk bu sayfa gözüme çarptı. Ben buna, güne güzel bir kodla başlamak derim Uzmanlarıma teşekkürler...

 

[Necdet]

Merhaba,

Eğer bir network altında çalışıyor ve yazdığınız programın sadece çalıştığınız kurumda (işletmede) çalışmasını isterseniz, Sayın Hamitcan'ın kodlarındaki computername 'i USERDOMAIN olarak değiştirip kullanabilirsiniz.