excelin başka makinada çalışmaması

[zırzır]

Arkadaşlar hazırladığım excel kitapçığının başka bir makinada çalışmaması için ne yapabilirim.

 

[metinozlu]

kullandığınız bilgisayarın sistem nosunu kullandığınız excel kitabının autu_open modülüne bağlarsanız programınız diğer bilgisayarda makrolar ile açılmaz.

 

[zırzır]

Sayın metinozlu,küçük bir örnekle belirtirmisiniz.

 

[metinozlu]

makro bilginiz var mı?

 

[zırzır]

Sayın metinozlu,her hangi bir seri numarası ile açılış makrosunu yazabilirmisiniz.

 

[metinozlu]

makrolu kod ektedir.

 

[dEdE]

Merhaba,
Aşağıdaki kodları inceleyiniz. İlk çalıştığında msgbox penceresinde verdiği hata kodu aslında disk seri no dur. Onu not alın ve daha sonra kodların içinde renkli olarak belirttiğim yere yazın. İsterseniz çalışmasını engelleyebilir, isterseniz deneme süresi verebilirsiniz. Güle güle kullanın.

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 Auto_Open()
 Dim i As Integer
 Dim j As Integer
 Dim SerialNumber As Long
 Application.ScreenUpdating = False
 Application.EnableCancelKey = xlDisabled
 'Şifre Bölümü
    GetVolumeInformationA "C:\", vbNullString, 0, _
    SerialNumber, 0, 0, vbNullString, 0
        If SerialNumber <> [B][COLOR="Blue"]xxxxxxxxx [/COLOR][/B]Then
        MsgBox "Kopya Program Kullanıyorsunuz...", vbCritical, "D i k k a t . . . !"
        MsgBox "           Lütfen 0 xxxxxxxx  no.lu telefondan dEdE'yi arayınız..                                                                   Hata Kodu : " & SerialNumber, vbInformation, "Bilgi İçin"
            ActiveWorkbook.Close
        End If
Application.EnableCancelKey = xlDisabled
'Deneme süresi verme bölümü
Worksheets("Sayfa1").Range("A1") = Worksheets("Sayfa1").Range("A1") + 1
If Worksheets("Sayfa1").Range("A1").Value > 5 Then
 MsgBox "Deneme Süreniz Doldu. Lütfen 0 xxxxxxxxx no.lu telefondan dEde'yi arayınız.. ", vbCritical, "ÜZGÜNÜM"
auto_close
End If
End Sub

Sub auto_close()
Application.ScreenUpdating = True
ActiveWorkbook.Save
Application.Quit
End Sub

 

[dEdE]

Merhaba,
Sayın özlü saniye farkıyla önde

 

[zırzır]

Sayın metinozlu,yolladığınız excel kitapçığını açtığım anda bir uyarı çıkıyor ve tıkladığım zaman
sayfa kapanıyor.

 

[zırzır]

Sayın dEdE,yukarıdaki kodu modüle yapıştırdım ama bir sorun var galiba kod çalışmadı.

 

[metinozlu]

çıkan kodu not alın makroyu devre dışı bırakın ve kod sayfasına geçin not aldığınız sistem noyu kod sayfasındaki ilgili yere yazın ,kaydedip kapatın ve tekrar açın,yada çıkan numarayı bize bildirin

 

[dEdE]

Merhaba,
Kod hatası düzeltildi.

 

[zırzır]

Sayın metinozlu,kod sayfasına ulaşamıyorum,uyarıyı sildiğim zaman excel sayfası otomatik kapanıyor

 

[zırzır]

Sayın dEdE,exceli açtığımda aşağıdaki uyarı çıktı

"Worksheets("Giriş").Range("A1") = Worksheets("Giriş").Range("A1") + 1"

 

[BG]

Arkadaşlar hazırladığım excel kitapçığının başka bir makinada çalışmaması için ne yapabilirim.

Bir alternatifte benden olsun,

Haluk Bey'e ait bir dosyayı arşivimden buldum, CPUID2.xls dosyasında bazı düzenlemeler yaptım, öncelikle "donanım bilgileri.xls" dosyasını çalıştırın, buradaki "İŞLEMCİ" butonuna tıklayın, msgbox'da karşınıza çıkan CPUID yi bir yere not edin, daha sonra CPUID2.xls dosyasını makroları devre dışı bırakarak çalıştırın B2 hücresine; not ettiğiniz CPUID'yi yazın ve dosyanızı kaydedin, daha sonra CPUID2.xls dosyasını makroları etkinleştirerek açın, eğer farklı bir bilgisayarda bu dosyayı (CPUID2.xls) açmak isterseniz dosyanın açılmayacağını görebilirsiniz. dosyalar ektedir, iyi çalışmalar dilerim.

 

[dEdE]

Merhaba,
Koddaki Giriş sözcüğünü Sayfa1 olarak değiştirin.

 

[zırzır]

Sayın dEdE,kodu çalıştırdım ancak sistem nosunu bilerek hatalı girdim exceli açtığımda sistem nosu
hatalı uyarısı verip iç sayfayı kapatıyor.Numaraya müdahale edemiyorum.

 

[dEdE]

Makro güvenlik düzeyini Çok Yüksek olarak ayarlayın, numarayı yazdıktan sonra tekrar eski haline getirin.

 

[zırzır]

Arkadaşlar hepinizin programlarından faydalandım.Teşekkür ederim.İyi akşamlar.