Do usunięcia hasła z arkusza wystarczy otworzyć w Excelu edytor makr (Alt+F11), wstawić nowy moduł i wkleić poniższy kod:

Sub PasswordBreaker()
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
On Error Resume Next
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If ActiveSheet.ProtectContents = False Then
MsgBox "One usable password is " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
ActiveWorkbook.Sheets(1).Select
Range("a1").FormulaR1C1 = Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
End Sub
Następnie należy uruchomić stworzone makro i odblokować schowane arkusze, kolumny, rzędy lub komórki.
Wyświetlanie ukrytego arkusza
- Na karcie Narzędzia główne w grupie Komórki kliknij przycisk Formatowanie.
- W obszarze Widoczność kliknij pozycję Ukryj i odkryj, a następnie kliknij pozycję Odkryj arkusz.
- W polu Odkryj arkusz kliknij dwukrotnie nazwę ukrytego arkusza, który chcesz wyświetlić.
[!NOTE] Można odkryć tylko pojedynczy arkusz naraz.
[!WARNING] Jeśli arkusze zostały ukryte za pomocą kodu języka Visual Basic for Applications (VBA) przez przypisanie właściwości
xlSheetVeryHidden, ukrytych arkuszy nie można wyświetlać, używając polecenia Odkryj. Jeśli używasz skoroszytu zawierającego makra VBA i napotkasz problemy z ukrytymi arkuszami, skontaktuj się z autorem skoroszytu.


