Artikel ini merupakan kelanjutan dari artikel sebelumnya yang berjudul Kesalahan Besar pada Aplikasi Raport K13 SD Revisi 2019 yang dikunci dengan Password. Supaya tidak gagal paham saya jelaskan kembali sedikit saja.
Pada postingan Kesalahan Besar pada Aplikasi Raport K13 SD Revisi 2019 yang dikunci dengan Password , admin menjabarkan bagaimana mengamankan Aplikasi Raport K13 SD Revisi 2019 bagi kreator aplikasi tersebut. Sebagaimana diketahui kalau umumnya Aplikasi Raport K13 SD Revisi 2019 dibuat dengan Microsoft Excel dalam format standar, .xlsx. Format ini kurang aman karena mudah sekali dimodifikasi.
Admin sudah membuktikan bahwa kurang dari 5 menit untuk bisa membuka password Aplikasi Raport K13 SD Revisi yang dikunci dengan Password. Pada postingan kali ini, anda pun yang membaca postingan ini juga bisa melakukannya hanya dalam waktu kurang dari 5 Menit.Untuk itu, pada postingan Kesalahan Besar pada Aplikasi Raport K13 SD Revisi 2019 yang dikunci dengan Password admin sudah jelaskan tahapan-tahapannya ya. Silahkan disimak aja.
Sebagai kelanjutan dari postingan tersebut, mungkin ada yang bertanya bagaimana membuka Password Aplikasi Raport K13 SD Revisi 2019 yang Terkunci. Simak penjelasannya di postingan ini.
Daftar isi
Sebagai pendahuluan, seperti yang sudah admin sampaikan sebelumnya. Akhir-akhir ini banyak beredar Aplikasi Raport K13 SD Revisi. Mungkin bapak/ibu sudah memilikinya. Bagaimana tidak, sebentar lagi kita akan memasuki masa pembagian raport semester 2 lagi. Penilaian K13 kalau gak pakai aplikasi kan ribet, yaa.
Namun sayangnya, Aplikasi Raport K13 SD Revisi yang sudah kita download ternyata gak gratis sepenuhnya. Aplikasi Raport K13 SD Revisi tersebut tidak bisa diubah karena sudah diberi password. Kalau ngasi aplikasi ya disertai dengan penjelasan pengaturannya supaya aplikasi tersebut tidak cuma memenuhi memori komputer saja tapi langsung bisa dipakai. Sehingga membawa manfaat buat semuanya.
Buat anda yang belum maupun sudah memiliki Aplikasi Raport K13 SD Revisi yang berisi Password, admin punya kabar gembira, hehehe. Kita akan belajar bagaimana membuka Password Aplikasi Raport K13 SD Revisi 2019 yang Terkunci kurang dari 5 Menit.
Prasyarat Aplikasi Aplikasi Raport K13 SD Revisi 2019 yang dapat dimodifikasi
Ada syarat-syarat Kurang dari 5 Menit Untuk Membuka Password Aplikasi Raport K13 SD Revisi 2019 yang Terkunci yang bisa dibuka.
a). Aplikasi mempunyai format standar seperti .xlsx atau sejenisnya.
b). Aplikasi belum mempunyai VBA Project yang diproteksi.
Langkah-Langkah Membuka Password Aplikasi Raport K13 SD Revisi yang Terkunci
Jika kedua hal di atas terpenuhi, maka langkah-langkah berikut bisa dilakukan untuk membuka Password Aplikasi Raport K13 SD Revisi 2019 yang Terkunci.
1. Buka Aplikasi Raport K13 SD Revisi 2019 yang Terkunci
2. Aktifkan Tab Developer Microsoft Excel jika belum aktif.
3. Klik Tab Developer, Pilih Visual Basic.
4. Klik Menu Insert, Pilih Module.
5. Dalam jendela editor Module1, copy paste kode di bawah ini ke dalam Module1.
Kode Visual Basic Microsoft Excel
'Copy-Paste Code di bawah ini ke Module1 anda. Tekan F5 atau Klik Tab "Run" Pilih Run untuk Menjalankan Code. Klik "OK" dan tunggu hingga selesai.
Sub Password()
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & "re-edit oleh www.supervba.com"
Const HEADER As String = "Internal Password Remover"
Const VERSION As String = vbNewLine & "version 2.0"
Const REPBACK As String = DBLSPACE & "Please report failure to admin@www.supervba.com"
Const ALLCLEAR As String = DBLSPACE & "The workbook should be cleared, thank you for your patience"
Const MSGNOPWORDS1 As String = "There were no passwords on your worksheet" & AUTHORS & VERSION
Const MSGNOPWORDS2 As String = "Please wait while the code working ...." & DBLSPACE
Const MSGTAKETIME As String = "After pressing OK button this " & "will " & _
"take some time." & DBLSPACE & "Amount of time " & "depends on how many " & _
"different passwords on your workbook "
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
w1.Unprotect PWord1
Next w1
On Error GoTo 0
ShTag = False
For Each w1 In Worksheets
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
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
Sub Password()
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & "re-edit oleh www.supervba.com"
Const HEADER As String = "Internal Password Remover"
Const VERSION As String = vbNewLine & "version 2.0"
Const REPBACK As String = DBLSPACE & "Please report failure to admin@www.supervba.com"
Const ALLCLEAR As String = DBLSPACE & "The workbook should be cleared, thank you for your patience"
Const MSGNOPWORDS1 As String = "There were no passwords on your worksheet" & AUTHORS & VERSION
Const MSGNOPWORDS2 As String = "Please wait while the code working ...." & DBLSPACE
Const MSGTAKETIME As String = "After pressing OK button this " & "will " & _
"take some time." & DBLSPACE & "Amount of time " & "depends on how many " & _
"different passwords on your workbook "
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
w1.Unprotect PWord1
Next w1
On Error GoTo 0
ShTag = False
For Each w1 In Worksheets
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
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
6. Jalankan kode VBA dengan tekan tombol F5. Bisa juga dengan cara klik Run, Pilih Run.
7). Ikuti petunjuk pada jendela proses yang terbuka. Pilih OK.
8). Kurang dari 5 Menit anda akan menerima notifikasi bahwa password pada aplikasi raport sudah berhasil dibersihkan.
9). Kembali ke Jendela Visual Basic Editor tadi. Klik File, Pilih Remove Module1.
10). Pada jendela munculan, pilih No untuk tidak menyimpan backup dari Module1.
11). Terakhir, Klik Save atau Save As untuk mengakhiri semua tahapan di atas.
Kembali ke halaman utama Powerpoint, Aplikasi raport sudah siap untuk diperbarui sesuai kebutuhan.
Kalau anda mencoba menerapkan tutorial ini pada aplikasi-aplikasi serupa lainnya, maka bisa memakan waktu lebih dari 5 Menit. Ini tergantung dari kerumitan cara aplikasi tersebut diproteksi. Semakin sedikit password yang dipasang maka semakin cepat pula password aplikasi tersebut dibuka.
Demikian artikel tentang Cara Membuka Password Aplikasi Raport K13 SD Revisi 2019 yang Terkunci yang bisa anda tempuh dalam waktu kurang dari 5 Menit.
7). Ikuti petunjuk pada jendela proses yang terbuka. Pilih OK.
8). Kurang dari 5 Menit anda akan menerima notifikasi bahwa password pada aplikasi raport sudah berhasil dibersihkan.
9). Kembali ke Jendela Visual Basic Editor tadi. Klik File, Pilih Remove Module1.
10). Pada jendela munculan, pilih No untuk tidak menyimpan backup dari Module1.
11). Terakhir, Klik Save atau Save As untuk mengakhiri semua tahapan di atas.
Kembali ke halaman utama Powerpoint, Aplikasi raport sudah siap untuk diperbarui sesuai kebutuhan.
Kalau anda mencoba menerapkan tutorial ini pada aplikasi-aplikasi serupa lainnya, maka bisa memakan waktu lebih dari 5 Menit. Ini tergantung dari kerumitan cara aplikasi tersebut diproteksi. Semakin sedikit password yang dipasang maka semakin cepat pula password aplikasi tersebut dibuka.
Kesimpulan
Informasi ini ditujukan untuk membantu bapak/ibu guru yang membutuhkan aplikasi penilaian (Raport) K13 yang sesuai dengan kebutuhan. Jika bapak/ibu sudah berhasil menerapkan tutorial ini maka gunakan aplikasi tersebut untuk konsumsi pribadi. Aplikasi yang sudah diperbarui supaya tidak disebarluaskan dengan tujuan komersial. Admin pun tidak menyebarluaskan aplikasi dari pihak lain yang memiliki hak cipta (tanpa ijin) melainkan aplikasi admin sendiri.
Demikian artikel tentang Cara Membuka Password Aplikasi Raport K13 SD Revisi 2019 yang Terkunci yang bisa anda tempuh dalam waktu kurang dari 5 Menit.