Excel Belgesinden parolayı kaldırma

Dahili destek sağlıyorum ve kullanıcılarımızdan biri yanlışlıkla bir excel dosyasına bir şifre koymayı başardı, kullanıcının belgeye erişebilmesi ve şimdi ne olduğunu bilmek istedim. Excel belgesinden şifre kaldırma önerisi.

Değeri ne olursa olsun, Excel açıldıktan sonra excel'de herhangi bir veri görmeden önce şifre görünür.

Elcomsoft , işi kullandığım her şeyden daha iyi yapabilen Advanced Office Password Recovery adlı oldukça kullanışlı bir program yapıyor.

Muhtemelen bunu denemeden önce kurtarmaya çalıştığınız verilere bir değer katmaya değer, bazen kullanıcının belgeyi sıfırdan yeniden oluşturmasına izin vermek daha ucuzdur (ve onlara değerli bir ders ;-) öğretir). AOPR ücretsiz değildir ve şifreler bazen sadece çok uzun zaman alabilen kaba kuvvetle (olası her harf kombinasyonunu denemekle) çözülebilir.

Böyle bir şey var mı, Excel Password Remover XLA eklentisi, sonra ne var?

EDIT: Düşünmek, belki değil - bu korumalı çalışma sayfalarından / çalışma kitaplarından parolayı kaldırmak için kullanılır.

Parolanın ne olduğunu biliyorsanız, devam edin ve Excel belgesini açın. Ardından Dosya> Farklı Kaydet'e tıklayın. Kaydet düğmesinin solunda, Araçlar etiketli küçük bir açılır menü bulunur. Buna tıklayın ve ardından Genel Seçenekler'e tıklayın. Oradaki şifre girişlerini silin ve Tamam'a tıklayın. Belgeyi kaydedin.

Parolanın ne olduğunu bilmiyorsanız bulmak için VBA'yı kullanabilirsiniz. Bir tahminde bulunmak zorunda kalsaydım, kullanıcınız muhtemelen süper güçlü bir şifre kullanmamıştı, bu yüzden bulmak için kaba kuvvet tipi yöntemini kullanabiliriz. Aşağıdaki kod kaba, ancak bazı kullanıcı belgelerimde zayıf, kayıp bir şifre bulmama yardımcı oldu. 1'den z'ye kadar ASCII karakterleri ile herhangi bir uzunlukta şifreleri kontrol eder. Hemen Pencereden çağırır ve birkaç dakika beklersiniz:

? GetPassword("D:\mywkbk.xlsx")

-

Public Function GetPassword(ByRef sFileName As String) As String
On Error Resume Next
    Dim pw As String
    pw = ""
    Do
        VBA.Err.Clear
        pw = GenerateNextPassword(pw)            
        Application.Workbooks.Open sFileName, False, True, , pw, pw
        VBA.DoEvents
    Loop While VBA.Err.Number = 5408
    GetPassword = pw
End Function

Public Function GenerateNextPassword(ByRef sCurrentPassword As String) As String
    Const MAX_CHAR = 122
    Const MIN_CHAR = 49

    Dim sCurrentPasswordMax As String
    Dim sNewPassword As String
    Dim i As Long

    sCurrentPasswordMax = String(Len(sCurrentPassword), Chr(MAX_CHAR))
    If sCurrentPassword = sCurrentPasswordMax Then
        'do an increment that changes the length
        sNewPassword = String(Len(sCurrentPassword) + 1, Chr(MIN_CHAR))
        Debug.Print Now(); ": "; sNewPassword
    ElseIf Asc(Right(sCurrentPassword, 1)) = MAX_CHAR Then
        'do an increment that changes multiple characters
        sNewPassword = Left(sCurrentPassword, Len(sCurrentPassword) - 1) & Chr(MIN_CHAR)
        For i = Len(sCurrentPassword) - 1 To 1 Step -1
            sNewPassword = Left(sNewPassword, i - 1) & Chr(Asc(Mid(sNewPassword, i, 1)) + 1) & Mid(sNewPassword, i + 1)
            If Asc(Mid(sCurrentPassword, i, 1)) <> MAX_CHAR Then
                Exit For
            End If
        Next i
    Else
        'do an increment on the rightmost character
        sNewPassword = Left(sCurrentPassword, Len(sCurrentPassword) - 1) & Chr(Asc(Right(sCurrentPassword, 1)) + 1)
    End If

    GenerateNextPassword = sNewPassword
End Function

Bu SO makalesinde gösterilen Hook yaklaşımı HER zaman işe yarar.

https://stackoverflow.com/a/27508116/5757159

Onaltılı düzenleyici yok, indirme yok, yükleyici yok. Sadece saf bir VBA çözümü.