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...

Cara login Wifi.id dan kumpulan username Wifi.id by Arva

WIFI.id HACK KEY by ARVAATHALLAH :3 

152331206276                                     
111341140022
142212102262
172411206916
152603200625
111761100070                       
152631200434                                                                        
172103200395                                 
141410101533                                 
111135100161
111135100155
111135100153
111135100152

For my friend in spentigda 8-5:
Khoif
ian
djona
arsa
andi
sandi
fajar
adib
maulana
brian
hari
sobri
zulvian
micko
ridwan

and don't forget to visit http://www.extremeprogamer.blogspot.com

Thanks to:
Nyit-Nyit
CirebonCyber4rt
AllahSWT
Ortu
My Sister
and etc

[ROM] Lenox Evolution V2 GALAXY Y dan Cara Install

[ROM] Lenox Evolution V2 merupakan custom rom untuk pengguna Galaxy Y GT-S5360, yang saya ketahui bahwa custom rom tersebut hasil karya salah satu member xda.

Kebutuhan:
1. CWM-Madteam-Galaxy-Y.zip, Download, Click Here.
2. ROM LenoxEvoV2-SIGNED.zip, Download, Click Here.

Langkah-Langkah:
1. Copy CWM-Madteam-Galaxy-Y.zip dan ROM LenoxEvoV2-SIGNED.zip, ke root sdcard/Here.
2. Matikan HH anda.
3. Tekan Power + Volume Up + Home secara bersamaan, sampai muncul boot samsung galaxy y gt-s5360, lalu lepaskan.
4. Setelah itu tampilan HH anda akan memasuki mode Android System Recovery.
5. Pada mode Android System Recovery, Pilih apply update from sdcard.
6. Cari file CWM-Madteam-Galaxy-Y.zip
7. Pada mode ClockworkMod Recovery (CWM).
8. Pilih wipe data/factory reset. 
9. Pilih wipe cache/partition. 
10. Pilih mounts and storage, mount system, data, cache (terlihat unmount)
11. Pilih install zip from sdcard
12. Pilih choose zip from sdcard
13. Cari file LenoxEvoV2-SIGNED.zip
14. Pilih Yes-Install.
15. Setelah selesai, reboot system now (Pertama reebot memang agak lama).

Klik untuk lihat Video:

https://www.youtube.com/watch?v=ZNB-AS7smBQ

Screenshoot:

Catatan: ROM Lenox Evolution V2 ini sudah saya test di Samsung Galaxy Y GT-S5360, work 100%...

Perhatian: Saya Tidak bertanggung jawab jika setelah menggunakan tutorial ini ada kesalahan yang menyebabkan smartphone android anda mati/brick/error, karena tutorial ini sudah saya coba 100% berhasil.

Original Thread XDA: http://forum.xda-developers.com/showthread.php?t=2462914