Ana içeriğe atla

Excel'de bir klasördeki tüm çalışma kitaplarını aynı anda nasıl koruyabilirim?

Excel'de, bir çalışma kitabını diğer kullanıcıların düzenlemesini engellemek için koruyabilirsiniz, ancak aynı anda birden çok çalışma kitabını koruyacak şekilde görüntülediniz mi? Burada, bir klasördeki tüm çalışma kitaplarını ve Excel'deki bir çalışma kitabındaki birden çok sayfayı korumaya yönelik bazı püf noktaları tanıtıyorum.

VBA ile bir klasördeki çalışma kitaplarını aynı anda koruyun

Kutools for Excel ile birden çok sayfayı aynı anda koruyun iyi fikir3

ok mavi sağ balon VBA ile bir klasördeki çalışma kitaplarını aynı anda koruyun

Çalışma kitaplarını belirli bir klasörde korumak için, çözmek üzere bir makro kodu uygulayabilirsiniz.

1. Yeni bir çalışma kitabını etkinleştirin ve Alt + F11 tuşlarını açmak için Aplikasyon için Microsoft Visual Basicns penceresi ve tıklayın Ekle > modüle, ve aşağıdaki kodu, modül komut.

VBA: Bir klasördeki çalışma kitaplarını koruyun.

Sub ProtectAll()
    Dim xWorkBooks As Workbook
    Dim xExitFile As String
    Dim xPassWord As Variant
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    On Error Resume Next
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then
        Exit Sub
    Else
        xStrPath = xStrPath + "\"
    End If
    xPassWord = Application.InputBox("Enter password", "Kutools for Excel", , , , , , 2)
    If (xPassWord = False) Or (xPassWord = "") Then
        MsgBox "Password cannot be blank!", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xFile = "*.xls"
    xExitFile = Dir(xStrPath & xFile)
    On Error Resume Next
    Application.ScreenUpdating = False
    Do While xExitFile <> ""
        Set xWorkBooks = Workbooks.Open(xStrPath & xExitFile)
        Application.DisplayAlerts = False
        xWorkBooks.SaveAs Filename:=xWorkBooks.FullName, Password:=xPassWord
        Application.DisplayAlerts = True
        Workbooks(xExitFile).Close False
        Set xWorkBooks = Nothing
        xExitFile = Dir
    Loop
    Application.ScreenUpdating = True
    MsgBox "Successfully protect!", vbInformation, "Kutools for Excel"
End Sub

 

doc tüm çalışma kitaplarını bir klasör 1 koru

2. Basın F5 anahtar ve bir Bir klasör seçin tüm çalışma sayfalarını korumak için bir klasör seçmeniz için pencere açılır.
doc tüm çalışma kitaplarını bir klasör 2 koru

3. tık OK ve çalışma kitaplarını korumak için parola girmek için bir iletişim kutusu açılır.
doc tüm çalışma kitaplarını bir klasör 3 koru

4. tık OK, seçilen klasördeki tüm çalışma kitaplarının tek bir parola ile başarıyla korunduğunu size hatırlatmak için bir iletişim kutusu açılır.
doc tüm çalışma kitaplarını bir klasör 4 koru

Yukarıdaki kodla koruduğunuz çalışma kitaplarını açtığınızda, şifre girmek için bir iletişim kutusu açılır. Ekran görüntüsüne bakın:
doc tüm çalışma kitaplarını bir klasör 5 koru

Bahşiş: Bu kod 2007 veya daha yüksek Excel sürümleri için çalışır, daha düşük sürümü korumak için uygulamak isterseniz, xFile = "* .xls" için xFile = "* .xlsx" kodda.


ok mavi sağ balon Kutools for Excel ile birden çok sayfayı aynı anda koruyun

Aslında, günlük çalışmamızda bir çalışma kitabındaki birden çok sayfayı korumak daha sık olacaktır. Ancak Excel'de, yerleşik işlevi ile sayfaları tek tek korumanız gerekir. Ancak, güçlü bir araç var - Kutools for Excelonun Çalışma Sayfasını Koruyun yardımcı program, çalışma kitabının tüm sayfalarını veya seçilen sayfalarını aynı anda korumanıza yardımcı olabilir.

Kutools for Excel, ile daha fazla 120 kullanışlı Excel işlevleri, çalışma verimliliğinizi artırır ve çalışma sürenizi azaltır.

Sonra ücretsiz kurulum Kutools for Excel, lütfen aşağıdaki işlemleri yapın:

1. Sayfalarını korumak istediğiniz çalışma kitabını etkinleştirin ve kuruluş > Çalışma Sayfasını Koruyun. Ekran görüntüsüne bakın:
doc tüm çalışma kitaplarını bir klasör 6 koru

2. içinde Çalışma Sayfasını Koruyun iletişim kutusunda, korumak istediğiniz sayfaları listeden istediğiniz gibi kontrol edebilirsiniz. Ekran görüntüsüne bakın:
doc tüm çalışma kitaplarını bir klasör 7 koru

3. tık Okve şifreyi girmeniz ve yeniden yazmanız için başka bir iletişim kutusu açılır, ekran görüntüsüne bakın:
doc tüm çalışma kitaplarını bir klasör 8 koru

4. tık Okve çalışma sayfalarını başarıyla koruduğunuzu hatırlatmak için bir iletişim kutusu açılır.
doc tüm çalışma kitaplarını bir klasör 9 koru

Bu sayfaların korumasını kaldırmak için, sadece kuruluş > Korumayı Kaldır Çalışma Sayfası Korumayı kaldırmak için şifre girmek için.
doc tüm çalışma kitaplarını bir klasör 10 koru

doc indir 1

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Açıklama


Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
Comments (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I did all the steps and there was dialogue box saying it's successful but when I open the files, they are opening up without any password.
This comment was minimized by the moderator on the site
Hello, I have tried it here and it works. Please check whether the file extension in your code is correct?
This comment was minimized by the moderator on the site
am using a mac, and when i click on the F5 key it does not work for me, please how can I resolve it?
This comment was minimized by the moderator on the site
Hi, you can try option - F8 keys. But I only tested this VBA in Microsoft system, I do not know if it work in Mac.
This comment was minimized by the moderator on the site
Brilliant. Saves me nearly an hour every month. Thank you.
This comment was minimized by the moderator on the site
can you do the same code but for unprotecting? with option to browse for the folder
This comment was minimized by the moderator on the site
I'm getting a syntax error for the following: <span style="background-color...
This comment was minimized by the moderator on the site
Did you fix this ? How?
This comment was minimized by the moderator on the site
only remove them
This comment was minimized by the moderator on the site
workbook protect ...great program.... very helpful
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations