Membuka sheet terkunci sangat diperlukan ketika kita akan menelusuri permasalahan kesalahan rumus atau error data, ini berdasarkan pengalaman saya bersama teman-teman yang sedang mengerjakan aplikasi raport.
Kendala pertama kita selalu kepingin terburu-buru dalam menyelesaikan pekerjaan tersebut tanpa membaca aturan atau petunjuk penggunaan aplikasi itu sendiri. sehingga raport yang kita kerjakan tidak sesuai dengan yang kita harapkan.Saya memang bukan user dari aplikasi tersebut, namun banyak teman-teman bertanya tentang masalah dari penggunaan aplikasi tersebut.
Ketika menenukan kendala saya belum bisa memberikan solusi karena aplikasi itu buatan orang lain. yang paling tahu permasalahannya tentunya si pembuat aplikasi itu. namun saya mencoba memberikan trik untuk menelusuri permasalah yaitu dengan membuka kunci sheet excelnya. setelah kuncinya terbuka tinggal dikaji rumus dan link dari pada rumus itu.
Alhamdulillah dengan menggunakan kunci ajaib pembuka sheet terkunci permasalahan tentang aplikasi raport semua bisa terkendali.
Berikut adalah langkah-langkah untuk membuka sheet yang dikunci rapat-rapat oleh pembuat aplikasi excel :
- Klik tab developer atau dengan menekan keyboard alt + F11. sehingga tampil jendela dialog visual basic
- kemudian klik insert module dan copykan saja kode berikut :
Sub bukasheet()
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
|
Setelah itu kita tinggal klik run. insya allah sekarang sheet yang terkunci sudah bisa terbuka, setelah terbuka tinggal telusuri permasalahan link dan rumus yang ada.
contoh pengalaman saya ketika teman saya menayakan kenapa deskripsi yang tidak muncul. setelah saya kaji ternyata dengan membaca rumus bahwa deskripsi akan muncul apabila no induk tidak kosong.
Nah itulah cara untuk membuka sheet yang terkunci.
0 komentar: