Selasa, 31 Desember 2019
Senin, 11 November 2019
Minggu, 10 November 2019
Cara Mengedit File Word yang Terkunci
Bila Anda mendapatkan file Microsoft Word tidak bisa di edit karena terkunci atau terprotection dan hanya bisa dibaca saja maka Anda harus mengetahui password untuk mengeditnya.Bagaimana jika password untuk mengedit file tersebut juga tidak ada? Nah bila Anda menemukan hal seperti ini, mungkin trik berikut dapat Anda coba.
Caranya:
1. Buka file doc tersebut
2. Lalu save as ke format Rich text formt (*.rtf)
3. Kemudian buka kembali file tersebut dengan opsi "open with" ke "wordpad" bawaan Windows
4. Nah sekarang filenya sudah dapat di edit kembali
5. Setelah itu Anda dapat save as lagi ke ekstensi doc.
Selamat mencoba...
Cara Agar Suara di Winamp Terdengar Jernih
Jika Winamp Anda masih terdengar kurang keras dan tidak jernih maka sebaiknya diatur kedalam Fast Layer 3 EQ.
Caranya:
Buka Winamp Anda (dalam tutorial ini saya menggunakan Winamp v5.572)
Lalu klik Option dan klik Preferences…
Setelah terbuka Winamp Preferences, klik Input pada sub menu Plug-ins dan sorot pada Nullsoft MPEG Audio Decorder 4.9 [in_mp3.dll] dan klik Configure
Maka akan terbuka jendela MPEG Audio Decirder Settings dan klik Decorder lalu pada sub menu Equalizer ceklist (centang) pada Fast Layer 3 EQ dan klik OK.
Setelah diaktifkan Equalizer ke Fast Layer 3 EQ, maka Anda dapat merasakan perbedaan kekuatan bass & treble Winamp yang akan lebih mantap dan jernih suaranya.
Selamat mencoba…
Cara Membuka Workbook yang Terproteksi
Mengunci Workbook dalam Excel berguna untuk melindungi konten data yang terdapat dalam setiap sheet tersebut agar tidak bisa diubah atau dimodifikasi orang lain.Pada postingan tentang Cara Membuka Worksheet Yang Terproteksi menjelaskan bagaimana membuka kembali worksheet yang terkunci jika Anda lupa pasword nya dan kali ini menjelaskan tentang membuka pasword untuk lembar kerja secara keseluruhannya.
Sekarang bagaimanakah jika password yang digunakan untuk mengunci worksheet tersebut lupa atau tidak ingat, sehingga file tersebut tidak bisa dimodifikasi atau dipakai sama sekali.
Nah untuk membuka workbook Excel yang terkunci, ada cara untuk membuka password tersebut, ikuti langkah-langkah sebagai berikut:
Buka File Excel dimana Worksheet tersebut diproteksi.
Lalu buka Visual Basic (Alt+F11), dan klik Insert dan klik Module.
Kemudian copy-kan syntax VBA berikut ini ke dalam Module tersebut:
Public Sub AllInternalPasswords()
' Breaks worksheet and workbook structure passwords. Bob McCormick
' probably originator of base code algorithm modified for coverage
' of workbook structure / windows passwords and for multiple passwords
'
' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)
' Modified 2003-Apr-04 by JEM: All msgs to constants, and
' eliminate one Exit Sub (Version 1.1.1)
' Reveals hashed passwords NOT original passwords
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _
"Adapted from Bob McCormick base code by" & _
"Norman Harker and JE McGimpsey"
Const HEADER As String = "AllInternalPasswords User Message"
Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04"
Const REPBACK As String = DBLSPACE & "Please report failure " & _
"to the microsoft.public.excel.programming newsgroup."
Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _
"now be free of all password protection, so make sure you:" & _
DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _
DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _
DBLSPACE & "Also, remember that the password was " & _
"put there for a reason. Don't stuff up crucial formulas " & _
"or data." & DBLSPACE & "Access and use of some data " & _
"may be an offense. If in doubt, don't."
Const MSGNOPWORDS1 As String = "There were no passwords on " & _
"sheets, or workbook structure or windows." & AUTHORS & VERSION
Const MSGNOPWORDS2 As String = "There was no protection to " & _
"workbook structure or windows." & DBLSPACE & _
"Proceeding to unprotect sheets." & AUTHORS & VERSION
Const MSGTAKETIME As String = "After pressing OK button this " & _
"will take some time." & DBLSPACE & "Amount of time " & _
"depends on how many different passwords, the " & _
"passwords, and your computer's specification." & DBLSPACE & _
"Just be patient! Make me a coffee!" & AUTHORS & VERSION
Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _
"Structure or Windows Password set." & DBLSPACE & _
"The password found was: " & DBLSPACE & "$$" & DBLSPACE & _
"Note it down for potential future use in other workbooks by " & _
"the same person who set this password." & DBLSPACE & _
"Now to check and clear other passwords." & AUTHORS & VERSION
Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _
"password set." & DBLSPACE & "The password found was: " & _
DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _
"future use in other workbooks by same person who " & _
"set this password." & DBLSPACE & "Now to check and clear " & _
"other passwords." & AUTHORS & VERSION
Const MSGONLYONE As String = "Only structure / windows " & _
"protected with the password that was just found." & _
ALLCLEAR & AUTHORS & VERSION & REPBACK
Dim w1 As Worksheet, w2 As Worksheet
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
Dim PWord1 As String
Dim ShTag As Boolean, WinTag As Boolean
Application.ScreenUpdating = False
With ActiveWorkbook
WinTag = .ProtectStructure Or .ProtectWindows
End With
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or w1.ProtectContents
Next w1
If Not ShTag And Not WinTag Then
MsgBox MSGNOPWORDS1, vbInformation, HEADER
Exit Sub
End If
MsgBox MSGTAKETIME, vbInformation, HEADER
If Not WinTag Then
MsgBox MSGNOPWORDS2, vbInformation, HEADER
Else
On Error Resume Next
Do 'dummy do loop
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
With 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)
If .ProtectStructure = False And _
.ProtectWindows = False Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND1, _
"$$", PWord1), vbInformation, HEADER
Exit Do 'Bypass all for...nexts
End If
End With
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
If WinTag And Not ShTag Then
MsgBox MSGONLYONE, vbInformation, HEADER
Exit Sub
End If
On Error Resume Next
For Each w1 In Worksheets
'Attempt clearance with PWord1
w1.Unprotect PWord1
Next w1
On Error GoTo 0
ShTag = False
For Each w1 In Worksheets
'Checks for all clear ShTag triggered to 1 if not.
ShTag = ShTag Or w1.ProtectContents
Next w1
If ShTag Then
For Each w1 In Worksheets
With w1
If .ProtectContents Then
On Error Resume Next
Do 'Dummy do loop
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
.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 Not .ProtectContents Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND2, _
"$$", PWord1), vbInformation, HEADER
'leverage finding Pword by trying on other sheets
For Each w2 In Worksheets
w2.Unprotect PWord1
Next w2
Exit Do 'Bypass all for...nexts
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
End With
Next w1
End If
MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER
End Sub
Setelah itu aktifkan Tools dan klik Macros, setelah terbuka jendela Macros aktifkan AllInternalPasswords dan klik Run
Biarkan system bekerja beberapa saat dan akan muncul pesan sebagai berikut:
Laluklik OK dan tutup program Visual Basic, maka worksheet yang tadinya terkunci dapat dimodifikasi atau ditulis lagi.
DISCLAIMER:
Harap dicatat bahwa melanggar proteksi password dapat melanggar hukum atau peraturan tentang hak privasi seseorang, dalam hal ini segala tutorial dan tulisan ini semata untuk kepentingan pembelajaran dan bukan untuk tindak kejahatan yang melanggar hukum, dan segala akibat yang ditimbulkan darinya merupakan tanggung jawab pengguna.
Sumber: http://mcgimpsey.com/excel/removepwords.html
Semoga bermanfaat…
Cara Membuka Worksheet yang Terproteksi
Mengunci cells atau sheet di dalam Excel berguna untuk mengamankan data yang terdapat dalam cells tersebut agar tidak bisa diubah atau dimodifikasi orang lain, atau agar mencegah terhapusnya data secara tidak sengaja.Sekarang bagaimanakah jika password yang digunakan untuk mengunci cell atau sheet tersebut lupa atau tidak ingat, sehingga file tersebut tidak bisa dimodifikasi atau dipakai lagi.
Nah untuk membuka file Excel yang terkunci, ada cara untuk membuka password tersebut, ikuti langkah-langkah sebagai berikut:
Buka File Excel dimana Worksheet tersebut ada sheet atau cell yang terproteksi.
Lalu buka Visual Basic (Alt+F11), dan klik Insert dan klik Module.
Kemudian copy-kan syntax VBA berikut ini ke dalam Module tersebut:
Sub UnprotectSheet()
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 "Password Crack Yang Sudah Termodifikasi Adalah : " & 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
Setelah itu aktifkan Tools dan klik Macros, setelah terbuka jendela Macros aktifkan UnprotectSheet dan klik Run
Biarkan system bekerja beberapa saat dan akan muncul pesan sebagai berikut:
Lalu tutup program Visual Basic, maka Sheet yang tadinya terkunci dapat dimodifikasi atau ditulis lagi.
Selamat mencoba semoga bermanfaat…
Cara Mengamankan Akun Gmail Anda
Banyak netter yang membuat email tetapi setelah terdaftar lalu tidak pernah menggunakan bahkan mengelola e-mailnya lagi.
Apakah Anda seorang pengguna akun Gmail?, mulai saat ini penting bagi Anda untuk menjaga keamanan akun Gmail Anda. Terlebih lagi, akhir-akhir ini tengah marak hacking akun.
Tujuan orang-orang tak bertanggungjawab meng-hack akun Anda adalah untuk mendapatkan data sensitif Anda. Oleh karena itu, penting bagi Anda untuk meningkatkan keamanan akun Gmail Anda.
Langkah-langkah pengamanannya adalah:
1. Gunakan Password yang kuat
Anda harus selalu menggunakan password yang kuat untuk menghindari kemungkinan akun Gmail Anda di-hack. Pilihlah password yang unik untuk akun Gmail Anda, utamakan kombinasi huruf besar, huruf kecil, angka dan simbol. Untuk membuat password yang kuat dapat Anda lihat langkah-langkahnya disini.
2. Gunakan Verifikasi Dua Langkah
Verifikasi ganda (2-step verification) akan menambahkan lapisan keamanan pada akun Google Anda, dimana Anda mendaftarkan nomor ponsel Anda pada Google sehingga Google bisa mengirimkan sandi verifikasi ke ponsel Anda. Bila Anda sudah memilikinya, maka bila seseorang berhasil menebak atau mencuri password Anda, maka ia masih akan kesulitan untuk masuk ke akun Anda karena mereka tidak memiliki nomor ponsel Anda.
Langkah-langkahnya sebagai berikut:
Masuk ke Gmail
Lalu klik gambar foto Anda,lalu pilih Account
Status verifikasi 2 (dua) langkah masih OFF, klik edit (penyiapan)
Klik mulai penyiapan
Masukkan nomer handphone anda (primary)
Kirim kode verifikasi,dan tunggu sesaat ada sms masuk di handphone Anda
Masukkan kode nya lalu klik Verifikasi
Klik Berikutnya
klik Berikutnya lagi
Mulai saat ini, jika Anda login ke akun gmail Anda, maka akan diminta untuk memasukkan kode rahasia yang dikirim ke handphone Anda melalui pesan singkat sms.
Selamat mencoba…
Cara Mematikan Video yang Berjalan Otomatis di Facebook
Saat ini Facebook merupakan jaringan raksasa dalam media sosial yang belum terkalahkan oleh media sosial lainnya, bahkan saat ini sudah memiliki pengguna lebih dari 1,44 miliar hingga tahun 2015.Beberapa hari yang lalu Facebook telah menambah video yang telah disimpan pada timeline akan dapat berjalan secara otomatis tanpa perlu penggunanya melakukan klik terhadap video tersebut.
Tentu saja, tidak semua orang menyukai video dapat berjalan otomatis. Biasanya, salah satu alasannya adalah karena video tersebut akan memakan bandwidth internet yang cukup besar ketika berjalan secara otomatis. Apalagi jika pengguna internet yang menggunakan modem USB yang memiliki kuota yang pas-pasan.
Karena tidak semua pengguna bisa mengakses secara cepat video tersebut maka untuk mematikan fungsi autoplay dari video di Facebook ini cukup mudah.
Caranya adalah:
Klik tooltip atau menu berlambang panah kecil pada bagian kanan atas.
Selanjutnya memilih menu Settings atau Pengaturan.
Ketika muncul halaman Settings maka pengguna Facebook dapat memilih menu Video.
Dalam menu tersebut akan terdapat dua pilihan yang terdiri kualitas dan pemutaran
Untuk menghentikan video yang berjalan otomatis maka kamu dapat memilih Autoplay Video dan merubah menjadi Mati atau Off.
Sedangkan Video Default Quality ini bertugas agar video yang ditampilkan di timeline bisa secara otomatis HD. Namun pengguna Facebook dapat mengganti dengan memilih SD apabila tidak ingin video yang dijalankan di Facebook dengan kualitas HD muncul.
Semoga bermanfaat,....
Cara Mengatur Perataan Teks pada Excel 2010
Pengaturan Teks (Alignment) pada workbook di Excel juga dapat dilakukan seperti halnya didokumen Word, namun memang memiliki keterbatas.Berikut ini contoh pengaturan alignment teks pada sheet atau cell di Excel
Buka workbook lalu untuk mengatur perataan teks Anda dapat mengklik tooltip pada Alignment di tab Home atau dengan menekan Ctrl+1.
Maka akan tampil jendela Format Cells
Pada pengaturan Text alignment pada radio Horizontal terdapat pilihan:
General, Left (Indent), Center, Right (Indent), Fill, Justify, Center Across Selection, Distributed (Indent)
Berikut contoh pemakainnya:
Untuk Center Across Selection dapat dipakai beberapa cell tanpa harus cell tersebut di Merge cells
Pada pengaturan Text alignment pada radio Vertical terdapat pilihan:
Top, Center, Bottom, Justify, Distributed
Berikut contoh pemakainnya:
Catatan:
Agar semua cell dapat diperlakukan sama misalnya agar semua teks dalam satu sheet sama menggunakan Justify, maka blok semua cell dalam satu sheet dengan menekan Ctrl+A atau mengklik pertemuan judul kolom dam judul baris lalu atur menjadi Justify lalu OK.
Selamat mencoba...
Cara Membuat Warna Baris Data Berselang-seling pada Excel
Jadi deretan urutan barisnya mudah dikenali dalam pembacaannya. Hal ini dapat mempermudah apabila data tiap baris terdapat data yang banyak serta terdiri beberapa angka yang hampir mirip. Seperti contoh daftar siswa berikut ini:
Langkah-langkah membuatnya sebagai berikut:
Buka data Excel Anda yang akan dibuat warna pada baris data berselang-seling.
Sorot seluruh range yang berisi data yang akan diberi warna berselang-seling.
Lalu pada menu Home pilih Conditional Formating
Pada dialog yang terbuka pilih New Rule.
Pada dialog box berikutnya pilih "Use a formula to determine whichcells to format"
Pada formula bar ketikkan formula berikut :
=MOD(ROW();2)<>0
Lalu klik tombol Format untuk membuka dialog format cell nya.
Pilih menu Fill dan tentukan kondisi warna selang yang di inginkan. Dalam contoh saya pilih warna orange muda, lalu klik OK
Maka akan tampak satu sample format kondisi warna yang disetting tadi, seperti tampak pada gambar ,
Klik OK untuk mengkonfirmasi dan menutup dialog.
Warna baris data tersebut tidak akan hilang atau terhapus saat Anda menghapus isi data pada range tersebut. Juga saat anda menyisipkan baris baru ataupun menghapus sebagian baris datanya.
Selamat mencoba...
Cara Menyembunyikan Tab Sheet pada Microsoft Excel
Jika anda ingin menyembuyikan semua tab sheet tersebut, maka ada sebuah cara yang bisa Anda lakukan,
Langkah-langkahnya sebagai berikut:
Tekan Microsoft Office Button di pojok kiri atas (jika memakai Office 2010 klik File), lalu pilih Excel Options (pada office 2010 klik Options).
Pada kotak dialog yang muncul pilih kategori Advanced serta pada bagian jendela sebelah kanan tepatnya pada bagian Display Options for this workbook, kemudian hilangkan tanda centang/checklist pada Show sheet tabs
Lalu tekan OK untuk melihat hasilnya.
Saat Show sheet tabs masih di ceklist
Saat Show sheet tabs sudah dihilangkan tanda ceklistnya.
Selamat mencoba...
Langganan:
Postingan (Atom)