Excel Crackleme İşlemi Makrosu
26 Aralık 2020
27 Aralık 2020
1690
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 | |
|---|---|
| Veri Aralığının En Üstüne Gitme | Ctrl ↑ |
| Sayfayı Hızlı Çoğaltma | Ctrl Sürükle |
| Yakınlaştır Penceresini Açma | Alt M KA |
| İşlem Yapılmış En Üst Hücreye Gitme | Ctrl Home |
| Hücreyi Para Birimi Olarak Biçimlendirme | Ctrl Shift $ |