3 Cara Jitu Mengembalikan Folder yang ter Hidden, Hilang oleh Virus

Beberapa virus mempunyai perilaku yang sama yaitu menyembunyikan file atau folder asli dan menggantinya dengan file virus bernama sama dengan file dan folder yang disembunyikan. perbedaan yang terlihat adalah ekstensi exe pada file atau folder virus dan ukurannya kecil biasanya tidak lebih dari 70 kb. Folder yang diserang biasanya adalah folder yang paling sering diakses seperti My Document dan folder lain yang sering anda buka.

virus mengubah attribut file foder dengan Hidden atau Read-Only, sehingga flashdisk atau hardisk terlihat kosong padahal jika dilihat properties nya seharusnya penuh. lalu bagaimana caranya me restore atau mengembalikan file atau folder yang hilang tersebut kebentuk awal, coba simak Tiga Trik Jitu Dibawah ini :

Cara I :

Bersihkan flashdisk atau hardisk dengan antivirus terupdate , ini ditujukan agar virus pemicu dapat dihapus jangan lupa sebelumnya non aktifkan System Restore ; Klik kanan My computer > Properties > System Restore > Turn off system restore on all drives. Coba download avg untuk virus luar atau Smadav untuk Virus lokal. Hati2 menggunakan antivirus lain kebanyakan antivirus dapat membersihkan virus dengan menghapus file yang terinfeksi dan tidak dapat memperbaiki file dan folder tersebut. jika dengan antivirus belum berhasil menampilkan file folder yang ter hidden dan hilang coba cara 2.

Cara II :

Menampilkan foder-folder yang ter hidden lewat command prompt :
- Klik Start > Run > Ketik cmd lalu enter
- ketik baris perintah ini : d:\attrib -s -h *.* /s /d jika ingin menampilkan data yang ter hidden dan hilang di drive ' d ', tunggu beberapa saat dan lihat drive 'd' di windows explorer.

Cara diatas dapat juga anda buat di notepad dengan membuat batch file
- Buka notepad ketik attrib -s -h *.* /s /d lalu Save as pada drive atau folder yang ter hidden dengan nama tampil.bat type all Files dan Encoding ANSI.
- klik dua kali file tampil.bat tunggu beberapa saat dan lihat drive 'd' di windows explorer
Jika data anda belum kembali jangan putus Asa kita paksa dengan cara III.

Cara III :

Trik ketiga adalah pamungkas kita gunakan Software Recovery Tolls R-Studio. kalau belum punya software nya silahkan Download R-Studio 5.0 Build 952

Software ini bisa mengembalikan data yang sudah terhapus, hilang atau ter format sekalipun, apalagi jika cuma ter hidden, tapi jangan terlalu semangat harus sabar, begini caranya :

- Instal dulu R-Studio 5.0 Build 952
- buka program file R-Studio

Tampilan R-Studio,klik kanan pada drive dan klik open Drive Files

- Klik kanan pada drive yang ingin anda tampilkan folder dan filenya lalu klik Open Drive files
- Tunggu beberapa saat sampai seluruh folder dan file ditampilkan pada folder Root
- Mark (baca: centang ) folder yang anda ingin restore ada baiknya anda restore folder per folder mulai dari subfolder paling dalam dan kecil, ini untuk mengantisipasi kegagalan.
- Klik Kanan Folder yang sudah di mark lalu pilh Recovery Marked

Klik Knan pada folder yang akan direcovery dan klik Recovery Marked

- Selanjutnya anda tentukan Destination Folder (Tempat meletakkan file hasil Recovery) nah disini saya sarankan untuk memilih drive lain misalnya di drive G kalau ada atau di flashdisk anda. ini juga untuk menghindari kegagalan.

Tentukan destination folder pilh drive lain atau flashdisk

- Tunggu beberapa saat dan lihat foder dan file anda sudah kembali kan !!!
- Jika Folder sudah terhapus Klik kanan pada drivenya lalu pilih Scan, setelah itu baru anda restore seperti diatas. selamat mencoba.

Jika 3 cara diatas belum berhasil mungkin data anda benar-benar sudah hilang..

Cara Menampilkan Data Baris Terakhir .End(xlUp) Pada Textbox Excel VBA

Menampilkan data atau mengetahui data pada baris terakhir sebuah database di Microsoft Excel banyak dipakai ketika membuat aplikasi untuk objek Simpan Data. Biasanya sistem atau aloritma akan mencari terlebih dahulu data baris terakhir yang kosong kemudian lakukan algoritma lainnya.

Untuk menampilkan data pada baris terakhir / value biasanya menggunakan .End(xlUp) dan dalam kasus ini kita akan menampilkan data baris terakhir dalam sebuah range. Data tersebut akan ditampilkan pada textbox melalui UserForm..

Untuk contoh saya gunakan pada prosedur UserForm_Initialize maka tuliskan coding berikut ini atau silakan copy paste.

Private Sub UserForm_Initialize()
BarisTerakhir = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Value
TextBox1.Value = BarisTerakhir
End Sub

sumber : http://www.excel-id.com/2016/06/cara-menampilkan-data-baris-terakhir.html

Memunculkan data Pada sebuah Textbox dengan memasukkan kode pada textbox lain

Selamat Pagi...Ketemu lagi dengan saya, oke langsung saja ya, kemaren iseng-iseng buat proyek berbasis Database menggunakan Userform excel,pagi ini kita akan membahas bagaimana memunculkan data pada sebuah textbox dengan hannya mengetikkan kode dari data tersebut, oke langsung aja ya

1. Pertama kita buka dulu Excel nya
2. Buat Userform nya dengan cara Alt + F11, Insert >> Userform
3. Buatlah dua buah textbox, dimana Textbox pertama merupakan tempak kita mengetikkan kode sebuah data dan akan muncul otomatis isi dari data yang akan kita munculkan tadi
4. Tinggal memberika rumus Macronya saja...
   
   
   Private Sub TextBox1_Change()
       'ambil nomor urut yang ada pada textbox1
       nomorurut = Me.TextBox1.Value
      
       'cari nomor urut pada database sheet 1
       With Worksheets("sheet1").Range("a2:a1000")
           Set C = .find(nomorurut, LookIn:=xlValues)
          
           'jika ditemukan, maka lihat barisnya.
           'selanjutnya pindahkan nomor urut dari sheet1 ke TextBox2.
           'jika tidak ditemukan, munculkan pesan.
           If Not C Is Nothing Then
               Baris = C.Row
               Me.TextBox2.Value = Worksheets("sheet1").Cells(Baris, 2).Value      
           Else
               MsgBox "Maaf, data tidak ditemukan.."
           End If
       End With
   End Sub 

cukup sekian dulu, semoga bermamfaat

tautan :
1.  Memunculkan data Pada sebuah Textbox dengan memasukkan kode pada textbox lain
2.  Penggunaan SpinButton pada Userform...
3.  Penjumlahan antara dua buah TextBox
4.  Cara Membuat Pemisah Ribuan pada TextBox Excel
5.  Membuat tombol cetak di Worksheets Excel

Penggunaan SpinButton pada Userform...

Selamat Pagi...Ketemu lagi dengan saya, oke langsung saja ya, kemaren iseng-iseng buat proyek berbasis Database menggunakan Userform excel, udah berhari-hari nyari cara penggunaan dan VBA SpinButton di mbah google, hasilnya gak ketemu, tapi ane gak habis akal, akhirnya dicoba kolaborasiin berbagai vba dengan SpinButton dan akhirnya BISA........., oke kita langsung aja ya gan....

1. Pertama kita buka dulu Excel nya
2. Buat Userform nya dengan cara Alt + F11, Insert >> Userform
3. Buat sebuah textbox dan pasang SpinButton disamping TextBox tadi seperti gambar dibawah ini,
   
   
   
    
   
   
   
   
   
   
   
   
   Tinggal memberika rumus Macronya saja...
   
   
   Private Sub SpinButton1_Change()
   TextBox1.Value = SpinButton1.Value
       'ambil nomor urut yang ada pada textbox1
       nomorurut = Me.TextBox1.Value
      
       'cari nomor urut pada database sheet 1
       With Worksheets("sheet1").Range("a2:a1000")
           Set C = .find(nomorurut, LookIn:=xlValues)
          
           'jika ditemukan, maka lihat barisnya.
           'selanjutnya pindahkan nomor urut dari sheet1 ke TextBox2.
           'jika tidak ditemukan, munculkan pesan.
           If Not C Is Nothing Then
               Baris = C.Row
               Me.TextBox2.Value = Worksheets("sheet1").Cells(Baris, 2).Value
               Me.TextBox3.Value = Worksheets("sheet1").Cells(Baris, 3).Value
               Me.TextBox4.Value = Worksheets("sheet1").Cells(Baris,4).Value
               Me.TextBox5.Value = Worksheets("sheet1").Cells(Baris, 5).Value
             
           Else
               MsgBox "Maaf, data tidak ditemukan.."
           End If
       End With
   End Sub 
   
   
   dalam rumus diatas merupakan data dari database yang kita tampilkan pada sebuah userform yang sudah kita buat sedemikian rupa sehingga tinggal menekan tombol spinbutton tersebut maka akan muncul data yang akan kita tampilkan.....

Penjumlahan antara dua buah TextBox

Kemaren ada proyek iseng-iseng buat aplikasi lagi yang bisa menunjang pekerjaan dikantor pake VBA, dimana ada kolom penjumlahan dua buah textbox, setelah beberapa hari nyari refrensi di mbah google akhirnya nemu juga, lupa dari mana sumbernya, kita langsung aja ya,

1. langkah pertama buka dulu excel nya
2. Kita buat dulu form nya dengan masuk ke menu VBA dengan cara menekan Alt + F11K
3. Kita  buat form nya dengan cara Insert >> Form
4. Buat tiga buah textbox dimana data yang ada pada textbox satu dan dua yang akan kita jumlahkan dan hasilnya akan muncul di textbox ketiga, kita masukkan rumus macro nya 

Private Sub TextBox2_change()
If TextBox1.Value = "" Or TextBox2.Value = "" Then
Exit Sub
End If
TextBox3.Value = Format(CDbl(TextBox1.Value) * CDbl(TextBox2.Value), "#,##0")
End Sub

dari rumus VBA diatas akan menghasilkan  nilai pada TextBox3  dalam bentuk nilai mata uang.
sekian dulu tips untuk Penjumlahan dua buah TextBox.
Salam...