Κλειδωθήκατε στο Excel;
Ξεχάσατε τον κωδικό για ένα φύλλο του Excel; Με λίγο VBA κώδικα είναι πιθανό να καταφέρετε να αποκτήσετε ξανά πρόσβαση στο φύλλο σας!
Ανοίξτε τον κώδικα VBA του Excel, εισάγετε ένα νέο module και αντιγράψτε τον κώδικα:
Sub UnprotectIT()
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 Password found: & 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
Next: Next: Next: Next: Next: Next
End Sub
Επιλέξτε το φύλλο που θέλετε να ξεκλειδώσετε και τρέξτε τον παραπάνω κώδικα. Όσο λιγότερους χαρακτήρες είχε ο κωδικός σας, τόσο πιο γρήγορα θα ξεκλειδωθεί το φύλλο σας.
Το παραπάνω παρέχεται και σαν εφαρμογή σε περίπτωση που δεν είστε εξοικειωμένοι με την VBA.
Ανοίξτε τον κώδικα VBA του Excel, εισάγετε ένα νέο module και αντιγράψτε τον κώδικα:
Sub UnprotectIT()
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 Password found: & 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
Next: Next: Next: Next: Next: Next
End Sub
Επιλέξτε το φύλλο που θέλετε να ξεκλειδώσετε και τρέξτε τον παραπάνω κώδικα. Όσο λιγότερους χαρακτήρες είχε ο κωδικός σας, τόσο πιο γρήγορα θα ξεκλειδωθεί το φύλλο σας.
Το παραπάνω παρέχεται και σαν εφαρμογή σε περίπτωση που δεν είστε εξοικειωμένοι με την VBA.
Τιμή εφαρμογής: €30,00 + Φ.Π.Α. 24%