MEMBUKA WORKSHEET EXCEL YANG TER-PASSWORD

Salam jumpa kembali.

pada kesempatan kali ini, saya coba share kepada para sahabat yang bermasalah ketika mencoba mengedit suatu file berekstensi *.xls atau akrab disebut dengan file excel. pada Microsoft excel disediakan suatu sistem protection (keamanan) yang memungkinkan para pembuat atau penulis untuk memberikan password agar file yang dia kerjakan tidak dapat diedit atau diubah oleh sembarangan orang. namun sering kali kita memerlukan untuk kita ubah sedikit. atau bisa jadi kita yang memberikan passwordnya tapi kita lupa password yang kita pasang pada file excel tersebut. langsung saja berikut ini saya share langkah-langkahnya.

1. Buka file excel yang terproteksi tersebut

2. File excel yang terproteksi, dapat diidentifikasi dari tampilan Review'nya, disana tertuliskan unprotect sheet

3. saudara tekan keyboard dengan kombinasi tombol Alt + F11, maka akan muncul microsoft visual basic

4. pada tab menu, klik insert lalu pilih module

5. dengan demikian akan muncul kotak dialog module seperti dibawah ini

6. sekarang saudara tinggal copy kode dibawah ini seluruhnya dari Sub InternalPasswords() sampai dengan End Sub dan paste kan di dalam kotak dialog module.

Sub InternalPasswords()

Dim i As Integer, j As Integer, k As Integer

Dim l As Integer, m As Integer, n As Integer

Dim i1 As Integer, i2 As Integer, i3 As Integer

Dim i4 As Integer, i5 As Integer, i6 As Integer

On Error Resume Next

For i = 65 To 66: For j = 65 To 66: For k = 65 To 66

For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66

For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66

For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

ActiveWorkbook.Unprotect Chr(i) & Chr(j) & Chr(k) & _

Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) _

& Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _

Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) _

& Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

If ActiveWorkbook.ProtectStructure = False Then

If ActiveWorkbook.ProtectWindows = False Then

If ActiveSheet.ProtectContents = False Then

Exit Sub

End If

End If

End If

Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

End Sub

7. setelah di paste, maka saudara langsung saja klik tab menu tools lalu klik macros

8. kotak macros segera muncul dan klik run, tunggu beberapa saat sampai proses loading selesai,, biasanya memakan waktu yang cukup panjang juga.

9. apabila proses selesai saudara tinggal tekan F5 atau Ctrl + F5 atau apalah settingan kompter saudara untuk me refresh komputer,, setelah itu tutup microsoft visual basic atau dengan langkah Alt + F11 untuk kembali menampilkan file Excel yang terproteksi tadi,, dan saudara bisa lihat hasilnya.. 

selamat mencoba

Read More

ScreenShot

Untuk mengambil gambar atau suatu tampilan dekstop diperlukan suatu aplikasi yang berfungsi untuk merekam apa saja yang sedang ditampilkan. salah satu cara yang dapat digunakan yaitu dengan menekan tombol PrintScrn/SysRq pada keyboard komputer. namun cara ini biasanya menampilkan seluruh tampilan dekstop, lalu menyimpannya pada suatu folder tertentu. untuk mengambil sebagian kecil gambar dekstop, anda harus mengeditnya dulu dan melakukan Cropping agar bisa mengambil gambar yang dinginkan. maka dari itu dibutuhkan aplikasi yang secara praktis mengambil gambar yang dinginkan tanpa melakukan Cropping terlebih dahulu. maka digunakan sebuah aplikasi untuk mengambil sutau tampilan, yang bernama Greenshot. Aplikasi Greenshot bisa saudara Download disini.

Langkah pertama yang saudara ambil adalah mendownload installer greenshotnya pada link diatas. kemudian instal file tersebut, ikuti perintah yang tampil. ketika selesai penginstalan, untuk menggunakan aplikasi ini, saudara cukup menekan tombol PrintScrn/SysRq pada keyboard, maka akan muncul dragbox greenshotnya, anda tinggal mengarahkan dan men-drag screen yang ingin anda simpan. Screen siap anda pakai tanpa cropping.

Read More

Font for PC

Om Swastyastu Salam Sejahtera

Berbagai macam font untuk mempercantik model tulisan atau ketikan dapat menambah daya tarik tersendiri bagi pemakai. jenis tulisan yang menarik juga banyak digunakan untuk membuat berbagai model desain, poster, iklan, ajakan, dll. berikut saya share beberapa jenis font untuk sudara download dan instal di Kompuer saudara.

download Font

el_font_block, aerosol, agent_orange, amalasuntha, bonzai, floralia, hirosh,

dan untuk "kumpulan font keren" bisa saudara Download Disini.

semoga bermanfaat....!!!

Read More

Padewasaan Wuku Masyarakat Bali

   Agama hindu khususnya hindu di Bali tidak akan dapat terlepas dari wariga, sebab masyarakat beraktifitas selalu memperhitungkan hari baik maupun buruk, itu disebut dengan istilah padewasaan oleh masyarakat Bali.

   Wuku dalam perhitungan padewasaan memegang peranan penting . Masing­-masing wuku umurnya tujuh hari dari hari Minggu sampai dengan Sabtu. Adanya Wuku kiranya juga merupakan simbolis dari benda­benda alam diruang angkasa namun dalam pustaka­ pustaka Hindu khususnya lontar Medangkemulan dimitoskan melalui cerita Watugunung.

Penjelasan Mengenai Wuku dalam Padewasaan dapat di download disini

Read More