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
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
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.
3. tık OK ve çalışma kitaplarını korumak için parola girmek için bir iletişim kutusu açılır.
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.
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:
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.
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:
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:
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:
4. tık Okve çalışma sayfalarını başarıyla koruduğunuzu hatırlatmak için bir iletişim kutusu açılır.
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.
En İyi Ofis Üretkenlik Araçları
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...
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!