Şifreli dosyayı makro ile açtığımda şifre yanlış hatası

[bmutlu966]

Arkadaşlar selam,

Aşağıdaki kod ile şifreli bir dosyayı açıyorum.

Workbooks.Open Filename:="C:\\deneme\sifreli.xlsx", Password:="1111"

Şifre doğruysa dosyayı açıyor ancak şifre doğru değilse aşağıdaki hatayı alıyorum. Bu hatayı

On Error Resume Next

kodu ile geçebiliyorum aslında.



Ancak ben kodlarda bir döngü kullanarak klasörde birden fazla sifreli dosyayı açıyorum. Bunlardan hangilerinin şifrelerinin yanlış olduğunu nasıl bir kod ile öğrenebilirim.
Aşağıdaki kodu şifre yanlışsa şunu yap gibi nasıl değiştirebilirim.

Workbooks.Open Filename:="C:\\deneme\sifreli.xlsx", Password:="1111"

 

[Ömer]

Merhaba,

Örnek bir döngü: kitap1,kitap2,kitap3 dosyaları için. Siz kendinize göre uyarlarsınız.

Sub deneme()
    Dim i As Integer, deg As String
    On Error Resume Next
    For i = 1 To 3
        Workbooks.Open Filename:="C:\\deneme\kitap" & i & ".xlsx", Password:="1111"
        If Err.Number > 0 Then
            deg = deg & vbLf & "kitap" & i
        End If
    Next i
    If deg <> "" Then MsgBox "Şifresi Yanlış Olan Dosyalar:" & vbLf & deg
End Sub

 

[muratboz06]

https://www.get-digital-help.com/wp-content/uploads/2013/08/List-password-protected-workbooks.xlsm adresindeki dosyayı indiriniz.
Modulde yer alan makro kodundaki Workbooks.Open Filename:=myfolder & Value, Password:="zzzzzzzzzzzz" satırını kendinize göre değiştiriniz.
Selecet a folder yazan command butonu tıklayınız ve excel dosyalarının olduğu klasörü seçiniz. C sütununda Yes yazanın solundaki dosyalar şifrelidir ve şifresi sizin yazacağınız şifreden farklıdır.

Kaynak: https://www.get-digital-help.com/find-out-if-excel-files-in-a-folder-are-password-protected/

 

[bmutlu966]

@Ömer çok teşekkürler. Kodlarını istediğim gibi uyarladım. Böylelikle hataları Err.Number ile kontrol etmeyi de öğrenmiş oldum.

 

[bmutlu966]

https://www.get-digital-help.com/wp-content/uploads/2013/08/List-password-protected-workbooks.xlsm adresindeki dosyayı indiriniz.
Modulde yer alan makro kodundaki Workbooks.Open Filename:=myfolder & Value, Password:="zzzzzzzzzzzz" satırını kendinize göre değiştiriniz.
Selecet a folder yazan command butonu tıklayınız ve excel dosyalarının olduğu klasörü seçiniz. C sütununda Yes yazanın solundaki dosyalar şifrelidir ve şifresi sizin yazacağınız şifreden farklıdır.

Kaynak: https://www.get-digital-help.com/find-out-if-excel-files-in-a-folder-are-password-protected/

@muratboz06 Çok teşekkürler. Kodalarını inceledim. Aynı yöntemle hallettim. Emeğine sağlık.