IP Adresi ile dosyayı kullanıma kapatma

[Ergün GÖKER]

Herkese kolay gelsin
Yapmak istediğim bir çalışma hakkında bir örnek dosya ekledim
Yapmak istediğim kısaca Bir Commandbuton ile IP adresini tespit etmek
tespit ettiğim IP adresi eğer kayıtlarımda mevcutsa dosya kullanıma açık olsun. eğer Otomatik olarak tespit ettiğim IP adresi izin verilmemişse yada IP adresi bunların dışında bir IP ise çalışma sayfamın belirleyeceğim sayfaların belirleyeceğim bölümlerini kullanıma kapatmasını istiyorum. Yardımlarınız için şimdiden teşekkürler

http://s6.dosya.tc/server5/85f07e/IP_Adresi.xls.html

 

[muygun]

Merhaba;
Eki deneyin.
ANASAYFA da belirttiğim noktaları ihtiyaca göre tamamlarsınız. (Bunun için sitede araştırma yaparsanız yeterince örnek bulursunuz.)
İyi çalışmalar.

Link:
http://s3.dosya.tc/server7/mgr5kh/oker03-ip_adresine_gore_sayfada_kisitlama.zip.html

 

[Ergün GÖKER]

Hocam teşekkür ederim ellerine sağlık sitede araştırdım ama benim istediğimi tam olarak karşılamadı. Teşekkür ederim.

 

[Believing]

İyi Geceler Sayın Muygun,

Yukarıdaki konuyu güncellemeniz mümkün müdür?

Saygılarımla,
Ömer Ali ÜZÜMCÜ

 

[Tevfik_Kursun]

Merhaba,
64 Biti desteklemedi,
Saygılarımla

 

[Korhan Ayhan]

Daha önce Haluk beyin paylaştığı IP NO bulma kodunu kullanabilirsiniz.

https://www.excel.web.tr/threads/ip-numarasi.47338/

 

[Asri]

Alternatif olarak,

web sitesinden .txt dosyasındaki ip listesini dizi değişkene aktarıp kullanıcının ip si ile karşılaştırın.
Listede var ise çalışsın yok ise çalışmasın.

Bu şekilde listeyi güncellenebilir yapmış olursunuz ve kullanıcıların IP leri değişse bile listeye ekleme yaptığınızda programları çalışacaktır.

 

[Believing]

Sayın Korhan Ayhan ve Asri,

Tıpkı sizler gibi bilgiyi paşlaşmak kadar güzel ne olabilir ki? Hiç şüphesiz ALLAH razı olsun duasını almanın değeri ölçülemez.
Bu felsefe ile çalıştığım şirkette yaptığım çalışmalarımı paylaşıyor, sizlerden öğrendiklerimle edindiğim tecrübemle çevreme destek oluyorum.
Ancak, yaptığımız çalışmalar iznimiz olmaksızın içindeki veriler ile birlikte şirket dışındaki kişiler ile paylaşılması bizleri sıkıntaya sokuyor. Bu sebep ile çalışmalarımın kontrolümün dışında, izinsiz bir şekilde paylaşılmasını engellemek için yukarıdaki konuyu araştırmaya başladım.
VBA konusunda henüz yeterli seviyede olmadığım için, uygulama konusunda daha detaylı şekilde yardımlarınız bekliyorum.
Mübarek Ramazan bayramınız kutlar, tüm sevdikleriniz ile mutlu bir bayram geçirmenizi dilerim.

Saygılarımla,
Ömer Ali ÜZÜMCÜ

 

[Asri]

Sayın Korhan Ayhan ve Asri,

Tıpkı sizler gibi bilgiyi paşlaşmak kadar güzel ne olabilir ki? Hiç şüphesiz ALLAH razı olsun duasını almanın değeri ölçülemez.
Bu felsefe ile çalıştığım şirkette yaptığım çalışmalarımı paylaşıyor, sizlerden öğrendiklerimle edindiğim tecrübemle çevreme destek oluyorum.
Ancak, yaptığımız çalışmalar iznimiz olmaksızın içindeki veriler ile birlikte şirket dışındaki kişiler ile paylaşılması bizleri sıkıntaya sokuyor. Bu sebep ile çalışmalarımın kontrolümün dışında, izinsiz bir şekilde paylaşılmasını engellemek için yukarıdaki konuyu araştırmaya başladım.
VBA konusunda henüz yeterli seviyede olmadığım için, uygulama konusunda daha detaylı şekilde yardımlarınız bekliyorum.
Mübarek Ramazan bayramınız kutlar, tüm sevdikleriniz ile mutlu bir bayram geçirmenizi dilerim.

Saygılarımla,
Ömer Ali ÜZÜMCÜ

Merhaba,

Eğer böyle bir endişeniz ve sıkıntınız var ise VBA ya şifre tanımlamanız ve IP kısıtı koymanız sadece kısmen bir güvenlik olur. Biraz araştıran biri bu korulamaları rahatlıkla aşacaktır. Öncelikli koruma işleminiz kodlara erişimin engellenmesi olmalıdır. Bu işlem için de @Zeki Gürsoy un Excel koruma programını satın almanızı öneririm.

Kodları koruyamadıktan sonra kodlara ekleyeceğiniz hiç bir önlem yeterli olmayacaktır.

İkinci aşamada internete bağlantı zorunluluğu IP kontrolü sağlanabilir. Bunun ile ilgili bir çalışma yaptığımda paylaşırım.

Saygılarımla.

 

[Asri]

Merhaba

Örnek kodları aşağıdaki şekilde düzenledim.

Web siteme bir kaç ip ekledim.
111.11.11.11
222.22.22.22
333.33.33.33

Bu satır internet IP adresini tespit eder. Bunun yerine adslip="111.11.11.11" yazıp doğrulamayı test edebilirsiniz.
adslip = GetMyPublicIP

Sizin internet IP adresiniz ile program doğrulamayı geçemeyecektir.

Excel VBA / Tools/ References de Microsfot HMTL Object Library seçili olmalı.

Dim hata, buldu As Boolean
Dim veriler
Dim adslip As String


Sub ipkontrol()
    Download_File "http://www.asriakdeniz.com/deneme/ipler.txt"
    If buldu Then
       MsgBox ("Lisans doğrulandı.")
    Else
       MsgBox ("Lisans doğrulanamadı.")
    End If
End Sub


Function Download_File(ByVal vWebFile As String) As Boolean
'https://www.ozgrid.com/forum/forum/help-forums/excel-general/86714-vba-read-text-file-from-a-url
Dim oXMLHTTP As Object, I As Long, vFF As Long, oResp() As Byte

'You can also set a ref. to Microsoft XML, and Dim oXMLHTTP as MSXML2.XMLHTTP
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.Open "GET", vWebFile, False 'Open socket to get the website
oXMLHTTP.send 'send request

'Wait for request to finish
Do While oXMLHTTP.readyState <> 4
DoEvents
Loop

veri = oXMLHTTP.responseText
veriler = Split(veri, Chr(10))
adslip = GetMyPublicIP
buldu = False
For I = LBound(veriler) To UBound(veriler)
   If veriler(I) = adslip Then
      buldu = True
      Exit For
   End If
 Next I

'Clear memory
Set oXMLHTTP = Nothing
End Function

'----------------------------------------------------------------------------
'This module contains 3 functions for determing the public IP, the local IP
'and the MAC address of the computer that runs those functions.
'Written By:    Christos Samaras
'Date:          22/11/2014
'E-mail:        xristos.samaras@gmail.com
'Site:          http://www.myengineeringworld.net
'----------------------------------------------------------------------------
Function GetMyPublicIP() As String
Dim HttpRequest As Object
On Error Resume Next
'Create the XMLHttpRequest object.
Set HttpRequest = CreateObject("MSXML2.XMLHTTP")
'Check if the object was created.
If Err.Number <> 0 Then
'Return error message.
GetMyPublicIP = "Hata"
'Release the object and exit.
Set HttpRequest = Nothing
Exit Function
End If
On Error GoTo 0
'Create the request - no special parameters required.
HttpRequest.Open "GET", "http://myip.dnsomatic.com", False
'Send the request to the site.
HttpRequest.send
'Return the result of the request (the IP string).
GetMyPublicIP = HttpRequest.responseText
End Function

 

[Believing]

Sayın Asri,

Söylemek istediğim kununun tercümanı olmuşsunuz.
Sn.zeki beyin programını da incelemiştim.
Sizinden belittiğiniz üzere destek verdiğiniz kodları bu program ile korumak isabetli olacaktır.
Konuya gösterdiğiniz ilgi ve çözüm öneriniz için size çok teşekkür ederim.
ALLAH sizden ve sevdiklerinizden razı olsun.
Mübarek ramazan bayramınız size ve sevdikleriniz için hayırlara vesile olsun. İnşallah.

Saygılarımla.
Ömer Ali ÜZÜMCÜ

 

[Asri]

Umarım işinize yarar. Bu kodlar taslak niteliğindedir. Asıl yapılması gereken iplerin web sitesindeki dosya içinde şifrelenmiş olması ve karşılaştırma yapılırken şifrenin çözülmesi gibi geliştirmeler yapılabilir.