Full width home advertisement

Post Page Advertisement [Top]



Ξεχάσατε τον κωδικό για ένα φύλλο του 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. Αν ενδιαφέρεστε για αυτή την εφαρμογή, κάντε click εδώ για να επικοινωνήσετε μαζί μας 

Bottom Ad [Post Page]