Excel Crack Online Excel and Excel Macro (VBA) Courses Copy Macro 'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 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 Function Report problem with this macro This macro does not work. There's an error in the code. Other You can write your comments about the error in the box below. Report error ALL MACROS Youtube Channel The following macros may be useful for you. Similar Results NoMacro Name 1 excel crack 2 open excel multiuser 3 is there a printer installed 4 Track and Report User Changes in an Excel worksheet or workbook 5 excel operators hk 6 Permission to enter numbers only in the Textbox 7 Calculate the sum of cells with only a certain cell color 8 select characters in textbox with arrow 9 data limitation in textbox (max characters) 10 date subtraction 11 50000 ROWS EXTRACTION FORM TO G-pillar (ejects F2 from E2) 12 font size and thickness of the description 13 toggle button creation and command 14 delete sheet / page & block naming 15 Convert selected cells to uppercase or lowercase with one click 16 Can the characters typed in the inputbox appear as "*****" (password or password characters)? 17 open excel file on network 18 subtract the active cell 1 19 List all character numbers with macro 20 a1 message if more than 10 characters