Excel çalışma kitabını kapatırken tüm çalışma sayfalarını otomatik olarak nasıl koruyabilirim?
Normalde, Excel'deki Sayfayı Koru veya Çalışma Kitabını Koru özelliği ile bir çalışma sayfasını veya tüm çalışma kitabını parolayla manuel olarak koruyabilirsiniz. Ancak çalışma kitabını kapattıktan sonra tüm çalışma sayfalarını otomatik olarak parolayla korumak istiyorsanız ne yapabilirsiniz? Bu makale size bunu başarmanız için bir VBA yöntemi gösterecektir.
Excel çalışma kitabını VBA kodu ile kapatırken tüm çalışma sayfalarını koruyun
Excel çalışma kitabını VBA kodu ile kapatırken tüm çalışma sayfalarını koruyun
Çalışma kitabını kapatırken tüm çalışma sayfalarını otomatik olarak korumak için lütfen aşağıdaki VBA kodunu uygulayın.
1. Dosyayı kapatırken tüm çalışma sayfalarını korumak istediğiniz çalışma kitabında lütfen Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. içinde Uygulamalar için Microsoft Visual Basic pencere, çift tıklayın Bu Çalışma Kitabı Sol bölmede ve ardından VBA kodunu Kod penceresine kopyalayın. Ekran görüntüsüne bakın:
VBA kodu: Çalışma kitabını kapatırken tüm çalışma sayfalarını koruyun
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Update by Extendoffice 2018/1/24
Dim xSheet As Worksheet
Dim xPsw As String
xPsw = ""
For Each xSheet In Worksheets
xSheet.Protect xPsw
Next
End Sub
İpuçları:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Sheet1").Protect "123"
ActiveWorkbook.Save
End Sub
3. Ardından Ara Toplam + Q Microsoft Visual Basic for Applications penceresini kapatmak için tuşlar.
Yukarıdaki adımdan sonra, çalışma kitabını kapatırken tüm çalışma sayfaları veya belirtilen çalışma sayfası otomatik olarak korunacaktır.
notlar:
İlgili yazılar:
- Excel'de korumalı bir çalışma sayfasındaki açılır liste nasıl kullanılır?
- Excel'deki tüm çalışma sayfasını korumadan belirtilen hücreleri nasıl kilitleyebilirim?
- Formülü gizlemek, ancak sonucu çalışma sayfasını Excel'de korumadan görüntülemek nasıl?
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!