APLIKASI RAPORT MID KURIKULUM 2013

 PENAMPAKAN LAYAR DEPAN APLIKASI RAPORT MID KURIKULUM 2013

Berawal dari kegundah gulanaan para guru dalam memberikan penilaian siswa pada kurikulum 2013 yang begitu kompleks. mulai dari K -1 sampai K-4 lalu nilai nya dikonversi ke Huruf Seperti Perguruan tinggi setelah itu memberikan pendeskripsian terhadap pencapaian nilai yang di dapat siswa. yaaaaaaaaaaaaaaa begitulah kompleksnya pada penilaian kurikulum 2013 saat sekarang ini. Saya sebagai guru matematika di sekolah beserta Bapak Agus Siswanto, S.Pd beliau merupakan guru MATEMATIKA saya juga dahulu, mencoba membantu guru-guru yang lain ( Pada Umumnya Guru Saya Juga waktu SMP Dulu, hhhhahahah, itung - itung pengabdian di kampung halaman) agar lebih mudah dalam melakukan pengolahan nilai siswa. Sebelumnya sih sudah ada aplikasi berbasis web yang kami rancang bersama team ICT SMPN 1 RANAH PESISIR http://sisfo.smpn1ranahpesisir.sch.id   seperti gambar di bawah ini. Namun dikhususkan untuk pengolahan nilai KTSP

Karena waktu mendesak kerangka desain aplikasinya belum terbayang. Coba - Coba Googleing. ketemu subuah aplikasi yang dari excell, Namun belum sesuain dengan kebutuhan para guru di sekolah. berniat untuk memodifikasi aplikasi tersebut. eh ngk taunya di kasih password. mungkin orang tersebut ngk ikhlas kali ya memberikan aplikasinya. eehmmm saatnya putar otak, keingat waktu kuliah dulu jamannya  jaman ngoprek,dibuka lagi dech file lama, alhamdulilah ketemu code - code yang dibutuhkan untuk memborbardir Password Microsoft Excell dengan menggunakan Bahasa VBA. ya seperti dibawah ini lah codenya.

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 Cracked by ori grata 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

jadi code yang berwana merah diatas yang saya pakai untuk memborbardir passwordnya. Lain Kali Akan Saya coba buatkan Tutorial memborbardir Password Microsoft Excelll Alias Membuka Paksa file Excell yang di password.
Setelah berhasil passwordnya saya buka paksa, saatnya memodifikasi sesuai kebutuhan sekolah, Alhamdulilah Modifikasi Sesuai Kebutuhan Selesai dikerjakan. Bagi yang Ingin mendownloadnya

                                                                KLIK DISINI

                                                           Password: smpn1ranah

 kalau ada permintaan macro-enable di aplikasinya di centang aja iya.


artikel Selanjutnya Cara Membuka Aplikasi Di atas Klik disini

Bagi teman - teman yang merasa aplikasinya kurang berikan aja masukannya di komentar ya...