Excel Crackleme İşlemi Makrosu
26 Aralık 2020
27 Aralık 2020
1640
Excel Crackleme İşlemi Makrosu isimli kodu kullanarak Excel'de Crack işleminin nasıl yapılacağını öğrenebilirsiniz.
Sub Passwortknacken()
xlCrack
End Sub
Private Function xlCrack()
Dim wkb As Workbook
Dim wks As Worksheet
Dim txt As String
Application.ScreenUpdating = False
Set wkb = ActiveWorkbook
Set wks = ActiveWorkbook.ActiveSheet
txt = Application.Version
If Left(txt, 1) <> 8 And Left(txt, 1) <> 9 Then
Beep
MsgBox "Das AddIn ist nur unter XL8 und XL9 lauffähig!"
Exit Function
End If
Call wkbEncode(wkb)
For Each wks In Worksheets
If wks.ProtectContents Then Call wksEncode(wks)
Next wks
MsgBox prompt:="Der Job wurde nach langer, harter Arbeit erledigt!", _
Title:="Fertig"
Application.ScreenUpdating = True
End Function
Private Function wksEncode(wks As Worksheet)
On Error Resume Next
With wks
.Protect vbNullString, , , , True
.Range("IV65536").Copy .Range("IV65536")
.Unprotect vbNullString
End With
End Function
Private Function wkbEncode(wkb As Workbook)
On Error Resume Next
With wkb
.Protect vbNullString, True, True
.Unprotect vbNullString
End With
End FunctionGerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
- Araç çubuklarından Insert -> Module yazısına tıklayın.
- Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
- Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
Kod örnek amaçlıdır. F8 ile adım adım içeriklerini inceleyebilirsiniz.
Etiketler :
| YARARLI KISAYOLLAR | |
|---|---|
| Hücreyi Sayı Olarak Biçimlendirme | Ctrl Shift ! |
| Bugünün Tarihini Yazma | Ctrl Shift ; |
| Önceki Sayfaya Gitmek | Ctrl Page Up |
| Ortası Çizgili Yazdırma | Ctrl 5 |
| Aktif Pencereyi Kapatma | Ctrl W |