Excel ile Crackleme İşlemi Yapma

Sub SifreKirma()
    xlKir
End Sub

Private Function xlKir()
   Dim kitap As Workbook
   Dim sayfa As Worksheet
   Dim metin As String
   Application.ScreenUpdating = False
   Set kitap = ActiveWorkbook
   Set sayfa = ActiveWorkbook.ActiveSheet
   metin = Application.Version
   If Left(metin, 1) <> 8 And Left(metin, 1) <> 9 Then
Beep
MsgBox "Bu eklenti yalnızca XL8 ve XL9\'da çalışır!"
Exit Function
   End If
   Call kitapKodu(kitap)
   For Each sayfa In Worksheets
If sayfa.ProtectContents Then Call sayfaKodu(sayfa)
   Next sayfa
   MsgBox prompt:="Uzun ve zorlu bir işin ardından işlem tamamlandı!", _
Title:="Bitti"
   Application.ScreenUpdating = True
End Function

Private Function sayfaKodu(sayfa As Worksheet)
   On Error Resume Next
   With sayfa
.Protect vbNullString, , , , True
.Range("IV65536").Copy .Range("IV65536")
.Unprotect vbNullString
   End With
End Function

Private Function kitapKodu(kitap As Workbook)
   On Error Resume Next
   With kitap
.Protect vbNullString, True, True
.Unprotect vbNullString
   End With
End Function