Baska Bilgisayarda Calismama

[baydeniro]

Arkadaslar hazirlanan bir excel dosyasinin sadece belli bir bilgisayarda calismasi nasil saglanabilir. Ornegin, bilgisayar IP numarasi veya Register numarasi gibi ozellikleri kullanarak ekteki dosyaya boyle bir kontrol koymak olanagi var mi ?

 

[ileriexcel]

Declare Function GetVolumeInformationA Lib "kernel32" _
(ByVal lpRootPathName As String, _
ByVal lpVolumeNameBuffer As String, _
ByVal nVolumeNameSize As Long, _
lpVolumeSerialNumber As Long, _
lpMaximumComponentLength As Long, _
lpFileSystemFlags As Long, _
ByVal lpFileSystemNameBuffer As String, _
ByVal nFileSystemNameSize As Long) As Long

Sub SeriNumarasi()
Dim SerialNumber As Long
GetVolumeInformationA "C:\", vbNullString, 0, SerialNumber, _
0, 0, vbNullString, 0
Range("L1") = SerialNumber
End Sub


Sub auto_open()
Call SeriNumarasi
If Range("L1") = Range("L2") Then
Range("a1").Select
Exit Sub
End If
MsgBox "üzgünüm programı kullanamazsınız "
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
Kodu olduğu gibi bir modüle kopyalayınız.
kod otomatik olarak L1 hücresine harddisk serinosunu yazar L2 hücresine aynı noyu kendiniz giriniz kod iki hücre birbirinle eşleşiyorsa kitap açılır aksi halde kapanır(hücre adreslerini kendinize göre değiştiriniz.)

 

[tufan03]

ileriexcel nasıl yapılacağı ile ilgili biraz açıklama yaparmısınız.

 

[baydeniro]

Aktivasyon

Sayın ileriexcel bu kodu nasıl aktive edeceğiz ?

 

[baydeniro]

Yardım

Sayın ileriexcel yeteneksizliğimi mazur görün lütfen. Yazdıklarınızı uyguladım ancak neden bilmiyorum uygulama çalışmadı. Ekteki dosyada KOD ve benim bilgisayarın Register numarası (Control Panel > System > General > Registered to numarası) yazılıdır. Acaba windows versiyon farklılığından dolayı mı olmuyor !!! İlginize teşekkürler.

 

[ileriexcel]

®

Kodu sayfa kod bölümüne almışsınız modül içinde olmalı.

 

[baydeniro]

Teşekkür

Sayın ileriexcel ilginize teşekkür ederim. KOD'u anladım, çalışıyor. Şu konuları da açıklarsanız memnun olurum.
1) KOD'un bulduğu Serial Number ile benim bilgisayarda beliren IP numaraları farklı çıkıyor.
2) Dosyayı kuracağım bilgisayarın IP numarasını veya KOD'un kontrol ettiği numarayı önceden nasıl bulurum.

Çok teşekkürler...

 

[baydeniro]

Teşekkür

Sayın ileriexcel yazdığınız kodu nasıl kullanacağım konusunu çözdüm. Artık kod ile ilgili sorum kalmadı. Ancak hala bu Serial number'ın neyin numarası olduğunu ve bu numarayı Windows > Control Panel altındaki menülerde nerde bulabileceğimi merak ediyorum. İyi çalışmalar.

 

[kecevik]

teşekürler.çok işime yaradı

 

[Seyit Tiken]

Bence aşağıdaki kodta aynı işi görür.

Sub Düğme1_Tıklat()
If Range("A1") = Range("A2") Then
Range("A3").Select
Exit Sub
End If
MsgBox "üzgünüm programı kullanamazsınız "
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

 

[kecevik]

Bence aşağıdaki kodta aynı işi görür.

Sub Düğme1_Tıklat()
If Range("A1") = Range("A2") Then
Range("A3").Select
Exit Sub
End If
MsgBox "üzgünüm programı kullanamazsınız "
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

haklısın. aynen iş görüyor.tşk