Birden fazla excele aynı anda şifre koymak

[u.L.a.s]

Merhabalar

Bir excel için Encrypt With Password ile şifre koyabiliyoruz.

Peki diyelimki bir klasör içerisinde 100 tane excel dosyam var.

her birini tek tek açıp şifrelemek yerine hepsini aynı şifreyle tek bir hamlede şifreleyebilir miyiz?

Bilgilerinizi rica ederim

 

[turist]

Yeni bir excel dosyası açarak VBA editorunda Module kısmına aşağıdaki kodu yazın.

Sub hepsinesifre()
    Dim klasor As Workbook
    Dim uzantı As String
    Dim yol As String
    Dim dosya As String

    yol = "[B][COLOR="Red"]C:\KLASÖRÜNYERİ\KLASÖRÜNADI\[/COLOR][/B]"
    uzantı = "*.xl*"

    dosya = Dir(yol & uzantı)
    Do While dosya <> ""
        Set klasor = Workbooks.Open(yol & dosya)
        With klasor
        Application.ScreenUpdating = False
        
            Application.DisplayAlerts = False
            klasor.SaveAs Filename:=.FullName, _
              Password:="[B][COLOR="red"]istediğiniz şifre[/COLOR][/B]"
            
        End With
        Set klasor = Nothing
        Workbooks(dosya).Close False
        dosya = Dir
    Loop
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    End Sub

kırmızı yerleri istediğiniz şekilde değiştirin.

Makroyu (Alt ve F8 tuşlarına birlikte basarak veya makroya buton atayarak) çalıştırırsanız, klasörünüzdeki bütün dosyalara açılış şifresi koyulacaktır.

Önemli NOT:
İşlemi yapmadan önce ,olası yanlışlık ve kayıplara karşılık ;klasörünüzün yedeğini alınız.

 

[mustafa1205]

Çok teşekkür ederim. Bana da lazım olan bir çalışmaydı. Ellerinize sağlık...

 

[u.L.a.s]

Üstadım emeğine bilgine sağlık

Çok teşekkür ederim.

imzanda dediğin gibi 40 yıl duacınım