Semua tentang Tekinkom

Archive for November, 2012

Saran untuk menggunakan komputer secara nyaman (materi K3)

  • Atur tinggi kursi; kaki anda seharusnya datar terhadap lantai dan bagian bawah pinggang anda terdukung secara merata pada kursi. Jika kaki anda tidak menyentuh lantai, gunakan pendukung kaki atau alas kaki. Hindari titik tekanan terpusat pada belakang lutut atau titik tertentu pada apaha bawah.
  • Ruang di bawah meja seharusnya cukup luas dari penghalang sehingga kaki anda bebas bergerak dan tidak tertahan, anda dapat bergerak cukup dekat dengan produk atau benda-benda sekitar yang sering anda raih.
  • Atur penahan punggung (sandaran): seharusnya penahan punggung mengikuti lekuk tubuh anda dan memberikan kenyamanan pada punggung anda.
  • Atur penahan lengan pada kursi: Seharusnya penahan lengan sejajar dengan keyboard dan secara nyaman mendukung lengan anda dan membuat membuat pundak dapat rileks.
  • Saat menggunakan keyboard seharusnya letaknya di tengah-tengah di depan anda.
  • Keyboard dan peralatan penunjuk (mouse) seharusnya dekat dengan lengan anda. Keyboard seharusnya datar sehingga pergelangan tangan anda datar saat mengetik.
  • Bekerjalah dengan pundak yang rileks.
  • Saat mengetik, jaga agar pergelangan tangan lurus dan telapak tangan beristirahat di atas bantalan.
  • Layar seharusnya diatur agar gambar tampak jelas.
  • Hindari pantulan cahaya secara langsung ke maata anda atau monitor komputer.
  • Jaga kepala anda, menghadap ke depan dan seimbang pada tulang punggung.
  • Atur besar font pada tulisan sehingga nyaman untuk dilihat.
  • Istirahatkan mata anda dengan cara melihat benda yang jauh.

Cara Membuka Sheet Excel yang Di-protect

 

1. Buka file Excel (xls atau xlsx)

2. Arahkan ke sheet yang akan kita bongkar passwordnya

3. Untuk excel 2007 tekan alt+F11 (developer ->visual basic) –> keluar jendela Microsoft visual basic. kemudian pilih insert -> module, kemudian copy-paste kode dibawah ini  ke jendela module

Sub PasswordBreaker()
‘Author unknown but submitted by brettdj of
www.experts-exchange.com
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
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 ActiveSheet.ProtectContents = False Then
MsgBox “One usable password is ” & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
ActiveWorkbook.Sheets(1).Select
Range(“a1”).FormulaR1C1 = Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next: Next:Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub

4. Save module  kemudian close -> kembali ke work sheet.

5. Pada toolbar excel pilih tab view -> macros -> view macros

6. Pada macro dengan nama PasswordBreaker. klik run dan tunggu beberapa saat.

SELAMAT…password anda telah hilang, sheet menjadi unprotect.

semoga bermanfaat…….

Awan Tag