Excel, Excel çalışma kitaplarınızı değişikliklerden korumanıza olanak tanır. Bu öğretici, VBA kullanarak çalışma kitabı yapısını nasıl koruyacağınızı veya korumayı nasıl kaldıracağınızı gösterecektir.
VBA Çalışma Kitabı Koruması
VBA Çalışma Kitabı Koruması, çalışma kitabının yapısını kilitlemenizi sağlar. Bir çalışma kitabı korunduğunda, kullanıcılar çalışma sayfalarını ekleyemez, silemez, gizleyemez/gösteremez veya koruyamaz/korumayı kaldıramaz. Bir model oluşturuyorsanız, muhtemelen kullanıcıların (veya sizin!) yanlışlıkla çalışma sayfalarını silmesini önlemek için çalışma kitabı korumasını açmak istersiniz.
Korumasız Çalışma Kitabı VBA
Bir çalışma kitabının korumasını kaldırmak için aşağıdaki kod satırını kullanmanız yeterlidir:
| 1 | Çalışma Kitapları("Kitap1").Korumayı Kaldır |
Not: Bu kod yalnızca çalışma kitabı korumalıysa çalışır olmadan bir şifre. Bir parola ile korunuyorsa, korumasını kaldırmak için parolayı da girmeniz gerekir:
Parola ile Korumayı Kaldır Çalışma Kitabı
Bu kod satırı, parolayla korunan bir çalışma kitabının korumasını kaldırır:
| 1 | Çalışma Kitapları("Kitap1").Parola Korumasını Kaldır:="parola" |
veya Şifreyi atlayabilirsiniz:=
| 1 | Çalışma Kitapları ("Kitap1"). "Parola" korumasını kaldırın |
Bu Çalışma Kitabının Korumasını Kaldır
Bu kod ThisWorkbook'un korumasını kaldıracaktır (ThisWorkbook, çalışan kodun depolandığı çalışma kitabıdır. Asla değişmeyecektir).
| 1 | ThisWorkbook.Korumayı Kaldır |
veya ThisWorkbook'un korumasını bir parola ile kaldırın:
| 1 | ThisWorkbook. "Parola" korumasını kaldırın |
ActiveWorkbook'u Korumayı Kaldır
Bu kod ActiveWorbook'un korumasını kaldıracaktır.
| 1 | ActiveWorkbook.Korumayı Kaldır |
veya ActiveWorkbook'un korumasını bir parola ile kaldırın:
| 1 | ActiveWorkbook. "Parola" korumasını kaldırın |
Tüm Açık Çalışma Kitaplarının Korumasını Kaldır
Bu kod, tüm açık çalışma kitaplarının korumasını kaldırır:
| 12345678 | Alt UnprotectAllOpenWorkbooks()Çalışma Kitabı Olarak Dim wbÇalışma Kitaplarında Her wb içinwb.Korumayı kaldırSonraki wbAlt Bitiş |
UnProtect Çalışma Kitabı - Parola Bilmeden
Parolayı bilmeden bir çalışma kitabının korumasını kaldırmanız gerekirse, yardımcı olacak birkaç eklenti vardır. Ribbon Commander'ı tavsiye ederim.
Çalışma Kitabındaki Tüm Sayfaların Korumasını Kaldır
Bir çalışma kitabının korumasını kaldırdıktan sonra, çalışma kitabındaki tüm sayfaların korumasını da kaldırmak isteyebilirsiniz. İşte tüm sayfaların korumasını kaldıracak bir prosedür:
| 12345678 | Alt UnProtectWorkbookAndAllSheets()Dim ws As Çalışma SayfasıActiveWorkbook.Korumayı KaldırÇalışma Sayfalarında Her ws içinws.Korumayı kaldırSonrakiAlt Bitiş |
Çalışma Kitabını Koru
Çalışma kitabı yapılarını korumayı kaldırdığınız şekilde koruyabilirsiniz.
Çalışma Kitabını Koru Şifresiz
Bu kod satırı bir çalışma kitabını koruyacaktır (şifre yok)
| 1 | Çalışma Kitapları("Kitap1").Koru |
Not: Çalışma kitabı korumasını genellikle parolasız uygulayacağım, yalnızca tesadüfi çalışma kitaplarında değişiklik.
Çalışma Kitabını Parola İle Koruyun
Bu kod, çalışma kitabı yapısını koruyacaktır (bir şifre ile)
| 1 | Çalışma kitapları ("Kitap1"). "Parolayı" koruyun |
veya:
| 1 | Çalışma Kitapları("Kitap1").Parolayı Koru:="parola" |
Parola Korumalı Excel Dosyası
Çalışma kitabı koruması yerine, tüm bir Excel dosyasını parolayla korumak isteyebilirsiniz. Bunu VBA kullanarak yapmak için, çalışma kitabını bir parola ile Kaydet:
| 1 | Workbooks("Kitap1").SaveAs "parola" |
Çalışma Kitabı Örneklerini Koru / Korumayı Kaldır
Korumalı Çalışma Kitabındaki Tüm Çalışma Sayfalarını Göster
Bu yordam çalışma kitabının korumasını kaldırır, tüm çalışma sayfalarını gizler ve çalışma kitabını yeniden korur
| 12345678910 | Alt KorumasızWB_Unhide_All_Sheets()Dim ws As Çalışma SayfasıActiveWorkbook.Korumayı KaldırÇalışma Sayfalarında Her ws içinws.Visible = xlSheetVisibleSonrakiActiveWorkbook.ProtectAlt Bitiş |
Çalışma Kitabını ve Tüm Sayfaları Koruyun
Bu prosedür, bir çalışma kitabındaki tüm çalışma sayfalarını koruyacak ve ardından çalışma kitabını koruyacaktır:
| 1234567891011 | Alt ProtectWB_Protect_All_Sheets()Dim ws As Çalışma SayfasıActiveWorkbook.Korumayı KaldırÇalışma Sayfalarında Her ws içinws.ProtectSonrakiActiveWorkbook.ProtectAlt Bitiş |
Parola koruması da ekleyebilirsiniz:
| 1234567891011 | Alt KorumaWB_Protect_All_Sheets_Pswrd()Dim ws As Çalışma SayfasıActiveWorkbook. "Parola" korumasını kaldırınÇalışma Sayfalarında Her ws içinws.Protect "parola"SonrakiActiveWorkbook.Protect "parola"Alt Bitiş |
