Selasa, 08 November 2016

USB Semester Gasal pada SMP se Lombok timur akan dilaksanakan dari tgl 5 s/d 10 Desember 2016 .Bagi Bapak/Ibu yang ingin kisi-kisi USB tsb.bisa download pada LINK INI

Rabu, 20 Januari 2016

CARA MEMBUKA SHEET YG DIPROTECT PADA MS EXCEL

Assalamu'alaikum warohmatullah wabarokatuh

Pada kesempatan kali ini saya mau berbagi dengan anda yang mungkin pernah merasa kesal seperti saya, merasa kesal karena tidak bisa melakukan apa2 pada lembar kerja/work sheet yg kita anggap sangat perlu terutama untuk menyelesaikan tugas2 keseharian kita.
pernah saya menemukan sebuah aplikasi di GOOGLE , sy sangat tertarik dg itu tp ketika saya mulai sedikit memodifikasi sesuai kebutuhan...smuax minta password, disinilah sy merasa kesal.dan dari sini pula sy mencari org pintar utk bs memberikan jimat yg bisa dipakai membuka yg terkunci..heee dan akirnya sy dapat.
Baiklah...ini contoh sheet yg diproteksi
Apabila anda menklik sel/kolom kemudian muncul seperti pada gambar di atas, jangan panik lakukan langakah berikut.
  1. Tutup tulisan yg menjengkelkan itu lalu klik kanan pada sheet yg akan dibuka ( disebelah bawah kiri ( sheet1,sheet2,dstx).
  2. Pilih view code seperti gambar di bawah ini 
  3. Klik view code , maka akan muncul seperti ini.
  4. Lalu pastekan/tempel script berikut ini dengan cara klik kanan pada (book-sheet (code) dan pilih paste,atau dg cara apa aja yg penting script berikut ini nempel...heee ... ini script alias jimat itu .........."Sub InternalPasswords()
    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

  5. Langkah berikutnya..klik"tool" .....pilih macross.. seperti gambar berikut ini 
  6. Setelah anda klik macros....akan muncul seperti gambar ini...klik run...
  7. Langkah paling akhir adalah......menunggu sampe crusor selesai muter2..
  8. Silahkan Buka sheet yang menjengkelkan itu......Selamat Mencobaaaaa