Dosyanın belli IP'lerde açılması Hk.

[ismailyardimci]

Merhaba Arkadaşlar,

Benim sıkıntım, şirkette maliyet dosyası hazırladım ama bu dosyanın başka şirketlere gitmemesi lazım. Bu durumu önlmek için aklıma şöyle bişi geldi. Dosyanın şirkete ait olan IP lerde, açılması veya mac adresine göre açılması gibi yazılmış bildiğiniz bir kod varmı veya bana bir öneriniz varmı.

Saygılarımla,

 

[Ömer]

Merhaba,

ThisWorkbook sayfasına kopyalayınız..

Private Sub Workbook_Open()
If Environ("UserDomain") <> "[COLOR=red]Bu Kısma Domain Adresini Yazınız[/COLOR]" Then
    MsgBox "[COLOR=blue]XXX ŞİRKETİ SINIRLARI DIŞINA ÇIKTINIZ....[/COLOR]"
    ActiveWorkbook.Close Savechanges:=False
    Application.Quit
End If
End Sub

.

 

[ismailyardimci]

Hocam ilgi ve alakanıza çok teşekkür ederim.

Saygılar,