Saya sudah ketik codenya seperti ini Mr.Kid: Private Sub UserForm_Initialize()
'-- mengisi List seriak HDD
txtSerial.Text = Sheets("sheet1").Range("a6").Value
End Sub
Terus bagaimana codenya supaya UserForm tersebut muncul otomatis saat fil
dibuka (jika pada sheet1 cell i16 tidak sama dengan cell h16) serta jika
pada sheet1 cell i16 sama dengan cell h16 maka UserForm tersebut tidak
muncul lagi ?
PRAZTMATH T
From: [email protected] [mailto:[email protected]]
On Behalf Of Mr. Kid
Sent: 30 Januari 2013 14:55
To: [email protected]
Subject: Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan VBA
Excel
buat event initialize userform dan isi dengan :
(asumsi nama textbox adalah txtSerial dan sumbernya dari sheet bernama
sheet1 di cell a6)
txtserial.text=sheets("sheet1").range("a6").value
Wassalam,
Kid.
2013/1/30 PRAZT <[email protected]>
Bisa lewat tlp maupun Email
PRAZTMATH T
From: [email protected] [mailto:[email protected]]
On Behalf Of Mr. Kid
Sent: 30 Januari 2013 14:19
To: [email protected]
Subject: Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan VBA
Excel
User dapat nilai JM-2B2B4D-8H14N-6F8H untuk diketikkan ke userform darimana
?
Wassalam,
Kid.
2013/1/30 PRAZT <[email protected]>
Tambah puyeng mr.Kid hehehehe.....
Apakah bisa dikasih contoh file lampiran Mr. Kid?
Dan sekalian mau minta solusi pada file terlampir
PRAZTMATH T
From: [email protected] [mailto:[email protected]]
On Behalf Of Mr. Kid
Sent: 29 Januari 2013 23:04
To: [email protected]
Subject: Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan VBA
Excel
Jika nomor seri yang dimaksud adalah volume serial number, maka bisa
menggunakan :
Hex(CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber)
hasilnya adalah sebuah string susunan bilangan hexadecimal volume serial
number drive (bukan serial number hardware harddisk)
Hasil tersebut bisa disimpan dimana saja yang memungkinkan.
Misal dalam sebuah variabel string seperti :
dim sSerial as string
sSerial=Hex(CreateObject("Scripting.FileSystemObject").GetDrive("C:\").Seria
lNumber)
Jika akan dibandingkan dengan suatu nilai, bisa diletakkan dalam suatu
proses kondisi seperti :
IF sSerial = "ABCD1235" then
msgbox "Seri drive C: Anda sesuai dan boleh mengakses data"
else
msgbox "Seri drive C: Anda tidak mendapat hak akses terhadap data
dalam file ini"
thisworkbook.close false
endif
Harddisk Volume Serial Number akan berubah ketika drive tersebut diformat.
Andai akan mengambil serial number hardware harddisk, bisa menggunakan wmi
class seperti berikut :
Dim objWMIService As Object, colDisks As Object, objLoop As Object
Set objWMIService =
GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colDisks = objWMIService.ExecQuery("Select * from
Win32_PhysicalMedia")
For Each objLoop In colDisks
If InStr(objLoop.Tag & "|", "PHYSICALDRIVE0|") <> 0 Then
Debug.Print objLoop.Tag & " | " & Trim$(objLoop.serialnumber)
End If
Next objLoop
Bagian yang merah adalah harddisk yang akan diambil serial numbernya, yaitu
harddisk pertama yang terpasang
Bagian yang biru adalah contoh cara mengambil nilai properti yang tersedia.
Bagian Trim$(objLoop.serialnumber) adalah untuk mendapatkan teks serial
number hardware harddisk
Untuk mengambil data serial number harddisk pertama yang terpasang pada
contoh di atas, bagian yang biru seluruhnya diganti menjadi :
msgbox Trim$(objLoop.serialnumber)
Jika akan disimpan ke sebuah variabel :
Dim objWMIService As Object, colDisks As Object, objLoop As Object,
sSerial as string
Set objWMIService =
GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colDisks = objWMIService.ExecQuery("Select * from
Win32_PhysicalMedia")
For Each objLoop In colDisks
If InStr(objLoop.Tag & "|", "PHYSICALDRIVE0|") <> 0 Then
sserial=Trim$(objLoop.serialnumber)
End If
Next objLoop
Jika dalam komputer tersebut banyak terpasang harddisk maupun cdrom atau
tape disk, beri Exit For setelah baris sserial=Trim$(objLoop.serialnumber)
saat sebelum baris EndIF.
Serial number hardware akan berubah jika hardware diganti dengan hardware
harddisk lainnya.
Wassalam,
Kid.
2013/1/29 PRAZT <[email protected]>
Dear all master...
Saya ingin mendapatkan nomor hardisk yang ingin saya letakkan pada sheet1,
cell A1, setiap kali file excel dibuka pada hardisk yang berbeda maka
otomatis pada sheet1, cell A1 juga otomatis berubah sesuai hardisk yang di
pakai..
Saya mendapatkan code CBAnya dari milis tetangga seperti di bawah :
MsgBox
CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber
Berhubung saya masih tabu dengan VBA maka saya ingin minta bantuan pada para
master bagaimana cara penggunaan code tersebut?
Atau mungkin ada contoh lain yang bisa membantu saya.
PRAZTMATH T
<<image003.jpg>>
<<image004.jpg>>
<<image005.jpg>>
