- Katılım
- 5 Aralık 2007
- Mesajlar
- 635
- Excel Vers. ve Dili
- Office 2007
Merhaba arkadaşlar. hazırladığım dosya kullanıldığı bilgisayardaki farklı dosyalarla ilişkili olduğu için , farklı bir bilgisayarda kullanıldığında kullanıcıyı bilgilendirmek amacıyla mesaj veriyor. Bunun için de ekli dosyada kullanılan kodlarla bilgisayar seri no sunu (veya ip nosunu) alıyordum. Ancak office 2010 sürümünde dosya açılırken bu kodların bulunduğu modülde hata veriyor. Orjinal dosaya oldukça yüklü ve çok sayıda sayfadan oluştuğu için eklemiyorum, ancak gerekirse eklerim. Öğrenmek istediğim, hata seri no yu alan bu kodlarda ise nasıl bir değişiklik yapmak gerekiyor. İlgilenen arkadaşlara teşekkür ederim.
Seri no yu alan kodlar;
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 Seri_No()
Dim serino As Long
GetVolumeInformationA "C:\", vbNullString, 0, serino, 0, 0, vbNullString, 0
[A1] = serino
End Sub
Sub auto_open()
Seri_No
End Sub
Seri no yu alan kodlar;
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 Seri_No()
Dim serino As Long
GetVolumeInformationA "C:\", vbNullString, 0, serino, 0, 0, vbNullString, 0
[A1] = serino
End Sub
Sub auto_open()
Seri_No
End Sub