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]

ΠΡΟΣΟΧΗ: αν παραγγείλετε μέσω PayPal, παραλαμβάνετε την εφαρμογή στο email σας ΤΟ ΑΡΓΟΤΕΡΟ ΕΝΤΟΣ 24 ΩΡΩΝ!

Σημείωση: όλες οι αναγραφόμενες τιμές των εφαρμογών δεν περιλαμβάνουν ΦΠΑ 24%



CustomExcelApps.gr - Thomas Biziouras
Υπηρεσίες Πληροφορικής και Διαδικτύου
Ρήγα Φερραίου 10 - Γρεβενά
ΑΡ. ΓΕΜΗ: 159570218000
ΑΦΜ: 122067270 - ΔΟΥ: ΓΡΕΒΕΝΩΝ



| Designed by Colorlib