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").valueWassalam, Kid. 2013/1/30 PRAZT <[email protected]> > ** > > > Bisa lewat tlp maupun Email**** > > ** ** > > **** > > PRAZTMATH ™**** > > ** ** > > *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 ™**** > > **** > > *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:\").SerialNumber) > 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 ™**** > > **** > > **** > > ** ** > > **** > > >
<<image005.jpg>>
<<image001.jpg>>
<<image006.jpg>>
