Yeni bir Paket Programlama dersi makalesi ile birlikteyiz.

Ofis 2007 ve üzeri versiyonlarda Excel programı ile oluşturulan çalışma kitapları xlsx uzantılı olarak kaydediliyor. Daha önceki versiyonlarda ise uzantı xls idi. Yeni ofis dosyaları aslında birbirinden bağımsız çok sayıda XML dosyalarının sıkıştırılması ile oluşturuluyor. Aslında her çalışma sayfası bir XML dosyası olarak ayrı ayrı oluşturuluyor, sonra Excel bunları sıkıştırıp tek dosya gibi gösteriyor.

Vba şifresi verilmiş bir Excel dosyasının winrar ile açtığımda birden fazla klasör ve dosyalarla karşılaştığımda doğrusu dehşete düştüm. Aşağıda winrar ile açılmış olan Excel dosyasının içeriği görülmektedir.

Yazdığımız makrolar ve oluşturduğumuz vba şifreleri ise bu sıkıştırılmış dosyada bulunan  XL klasöründeki vbaProject.bin dosyasının içinde tutuluyor. vbaProject.bin dosyasını winrar ile Excel çalışma kitabından çıkarttıktan sonra bu dosyaya aşağıda verilen macroyu uygulayın.

Private Sub CommandButton1_Click()

Dim x As Byte

Dim y As Byte

Dim z As Byte

Dim fd As FileDialog

Dim filePath

On Error GoTo Hata

Set fd = Application.FileDialog(msoFileDialogFilePicker)

    With fd

        .AllowMultiSelect = False

        .InitialView = msoFileDialogViewWebView

        .InitialFileName = ThisWorkbook.Path & "\"

        .Filters.Clear

        .Filters.Add "Excel Files", "*.xls, *.xla"

        If .Show = -1 Then filePath = fd.SelectedItems(1)

    End With

Set fd = Nothing

DoEvents

Close #1

Open filePath For Random As #1 Len = 1

i = 1

 Do Until EOF(1)

    Get #1, i, x

    If x = 68 Then

        Get #1, i + 1, y

        If y = 80 Then

            Get #1, i + 2, z

            If z = 66 Then

                Put #1, i + 2, CByte(0)

                MsgBox "VBA şifresi sıfırlandı"

                Close #1

               Exit Sub

            End If

        End If

    End If

    i = i + 1

 Loop

MsgBox "VBA şifresi bulunamadı"

Close #1

Exit Sub

Hata:

MsgBox "Şu hata oluştu: " & Err.Description

Close #1

End Sub

Daha sonra değiştirilmiş vbaProject.bin dosyasını yine winrar kullanarak Excel dosyasının içerisine tekrar koyunuz. Excel dosyasını çalıştırdığınızda hata verecek. Evet diyerek devam ediniz. Şifrenin sıfırlandığını görürsünüz.