Cara membobol / membuka password dokumen excel yang diprotect

Hai Sobat EPG, kali ini saya akan posting tentang Cara membobol / membuka dokumen excel yang di protect , Sesuai pengalaman saya sendiri, saya pernah mendapat tugas untuk mengerjakan di Ms Excel, saat itu guru saya memprotect (memberi password) file / dokumen tsb. Berbagai cara telah saya lakukan namun tidak ada yang berhasil, ada cara yang berhasil yakni meng-copy file / dokumen tsb ke blank document baru, tapi cara tersebut salah / kurang tepat, nah lebih tepatnya lagi jika anda membobolnya... Disini saya sedikit sharing bagaimana cara membobol dokumen yang di protect, oke langsung saja,

Berikut contoh gambar file yang di protect oleh guru saya :

Nah, berikut cara mengatasinya :) Cekidot :

1) Pertama-tama, buka file excel anda yang diprotect 

2) Lalu, tekan tombol alt + f11 pada keyboard anda, seperti pada gambar berikut :

3) Bila sudah menekan tombol alt + f11, maka akan muncul visual basic seperti berikut :

4) Lalu klik 2x pada sheet yang ingin dibuka, misal saya tadi menekan tombol alt + f11 di sheet 4, berarti yang anda klik 2x harus sheet 4 tersebut, maka akan nampak seperti berikut jika sudah di klik 2x :

5) Nah, setelah itu anda masukkan kode html dibawah ini :

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

Seperti gambar berikut :

5) Lalu klik run, dan lihat hasilnya :)

Sekian dari postingan saya yang cukup panjang ini, apabila ada yang kurang jelas, bisa ditanyakan lewat komentar, Terima kasih.

Arva,

Cara mengembalikan performa android seperti semula / dioptimalkan dengan Greenify

Hai sobat EPG, kali ini saya akan posting tentang Cara mengembalikan performa android seperti semula/dioptimalkan. Anda ingin mengoptimalkan andrioid anda? Aplikasi yg satu ini sangat berguna jika anda benar2 ingin mengoptimalkan/mengembalikan performa android seperti awal anda beli.. Aplikasi yg satu ini bernama Greenify.

Oke langsung saja, berikut langkah2 menginstal dan mengaktifkan aplikasi tsb :

1. Pastikan hp sudah diroot
2. Download Greenify disini
3. Ekstrak ke sdcard ( didalamnya ada 3 file)
4. Pertama instal Xposed Installer
5. Kemudian instal Greenify donation 2.3 key
6. lalu instal Greenify
7. Buka Xposed Installer, pilih framework  lalu pencet install/update
8. Klik Reboot


Nah, gimana perubahan sebelum dan sesudahnya.. :D

Oke sekian dan Terima Kasih ^^

How to fix Windows Defender turned off by group Policy on Windows 8

Hi, today i will share to you about How to fix Windows Defender turned off by group Policy, there have a easy and simple step to fix your windows defender who was turned off by group police..

Okay..
-First, go to Start Menu and search regedit
-And then, you was in 'Registry Editor'
-Then, go to HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\Windows Defender
-You find the value 'DisableAntiSpyware'
-Right Click and 'Delete Value'
-Finish and your windows defender will turned on again ^_^

Credit :
http://www.howtogeek.com/forum/topic/windows-defender-turned-off-by-group-policy-more-help-please

Thanks, and don't forget to visit EPG's Blog.. I will share all my knowledge to you :D

Regard,

Arva Athallah
Admin...

Download Cheat Point Blank spesial tahun baru 1 Januari 2014

Download Cit:

Click Here

Fitur :

-Anti Banned ID = Auto On

-Wallhack = INSERT On/Off ( Ketika di dalam pertandingan / saat sudah main )

-Skill = F11 On/Off

-No Respawn Time = F11 On/Off

-Quick Change = F11 On/Off

Cara Pemakaian:

-Extract cheat yang sudah agan download, letakkan di folder apa aja

-Buka cheat

-Ada notice klik ok

-Muncul injeknya

-Buka PB, kemudian start

-Happy cheating :P

Oke.. Sekian dulu ya postingan saya, sekian dan terimakasih :)

• Skill = F11 On/Off
• HP Up = F11 On/Off
• Cit Pangkat Terbaru = F11 On/Off

Download cheat lostsaga 1 Januari 2014 Spesial Tahun Baru [WORK+JAMU]

Hai sobat EPG, sayang sekali gw jarang posting karena lagi sibuk sama game yang satu ini.. bagi yang bosen main game online dan susah untuk nge-kill lawan, ane punya cheat game online untuk kalian sobat.. Oke langsung aja :

Fitur:

-Anti Hit (New after MT 31 Des)

-Anti Skill (Tested by me)

Cara Pakai:

-Buka Perx Injector kesayangan anda

-Buka lostsaga

-Copykan LS edit sobat ke folder ls sobat

-Login Lostsaga.. dan Nikmatilah cheatnya hehehe :D

Download .dll nya disini :

Click Here

Bagi yang belum punya injektor lostsaga nya bisa didownload disini :

Click Here

Sekian dan terimakasih ya sobat.. apabila cheat tersebut tidak work atau ada yg kurang memuaskan bisa ditulis di komentar..