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 workbook 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 Workbook 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 workbook 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…
Gambar vektor merupakan gambar yang terbentuk bukan dari kumpulan titik melainkan terbentuk dari sejumlah garis dan kurva. Karena gambar jenis vektor ini bukan terdiri dari titik, maka apabila tampilan gambar ini diperbesar tetap tidak akan kehilangan detailnya sehingga kualitas gambarnya tetap baik. Contoh gambar ini adalah teks dan logo. Perangkat lunak yang sering digunakan untuk mengolah gambar jenis
vektor ini adalah CorelDRAW, Freehand.
Monitor biasanya akan menampilkan gambar dalam bentuk piksel, maka semua gambar baik jenis vector maupun bitmap akan ditampilkan dalam bentuk piksel. Gambar ini mengandung unsur matematis seperti arah, ukuran sudut, ketebalan, warna, dan lain sebagainya.
Gambar Bitmap
Tampilan bitmap sering disebut dengan gambar raster yaitu tampilan gambar yang terdiri dari titik-titik atau piksel. Masing-masing piksel ini mempunyai lokasi serta warna tersendiri yang secara keseluruhan membentuk sebuah tampilan gambar pada saat gambar diperbesar. Kehalusan tampilan gambar ini sangat tergantung kepada resolusi serta titik atau piksel yang membentuk gambar tersebut.
Apabila gambar ini diperbesar maka ini kelihatan kotak-kotak, semakin besar tampilan gambar maka semakin besar pula kotak-kotak tersebut, yang sebetulnya merupakan tampilan piksel yang diperbesar. Contoh gambar bitmap antara lain photo, gambar-gambar hasil scanner serta gambar yang dihasilkan dari software grafis seperti Adobe Photoshop, Corel PHOTO-PAINT.
Kelemahan dari gambar jenis bitmap adalah gambar akan menjadi pecah dan terlihat “kotak-kotak” (jagged) apabila gambar tersebut diperbesar atau dicetak menggunakan resolusi yang lebih kecil daripada nilai resolusi aslinya. Format bitmap ini memerlukan ruang penyimpanan data yang lebih besar dibandingkan dengan format vektor.
Gambar bitmap sangat bergantung pada resolusi. Jika gambar diperbesar maka gambar akan tampak kurang halus sehingga mengurangi detailnya. Selain itu gambar bitmap akan mempunyai ukuran file yang lebih besar. Semakin besar resolusi gambar akan semakin besar pula ukuran filenya.
B. Gambar Vektor
Gambar vektor adalah gambar yang dibuat dari unsur garis dan kurva yang disebut vektor. Kumpulan dari beberapa garis dan kurva ini akan membentuk suatu obyek atau gambar.
Gambar vektor tidak tergantung pada resolusi. Kita dapat memperbesar atau memperkecil ukuran gambar tanpa kehilangan detail gambarnya. Disamping itu gambar vektor akan mempunyai ukuran file yang lebih kecil dan dapat diperbesar atau diperkecil bentuknya tanpa merubah ukuran filenya.
Gambar dengan tampilan 100% Gambar dengan tampilan 500%
Contohnya adalah pada gambar di atas. Gambar yang kiri merupakan gambar yang asli sedangkan gambar yang kanan adalah gambar yang sudah diperbesar. Gambar yang kanan masih kelihatan halus walaupun sudah diperbesar 500%. Software yang digunakan untuk membuat gambar vektor antara lain CorelDRAW, Macromedia Freehand, Adobe Illustrator, dan lain-lain