Excel VBA Korumayı Kaldırma Sayfası
Çalışma sayfalarımızı kullanıcının çalışma sayfalarını değiştirmesini önlemek için koruduğumuz durumlar vardır. Çalışma sayfasını korurken, genellikle aynı parolayı kullanırız. Bu yazıda, VBA kodlamasını kullanarak sayfanın korumasını kaldırmanın yolunu size göstereceğiz.
Örnekler
Örnek 1
Sayfanın korumasını kaldırmak, onları korumaktan% 99 daha kolaydır. Çalışma sayfasının korumasını kaldırmak için sadece şifreye ihtiyacımız var.
Yapmamız gereken ilk şey, korumasını kaldıracağımız çalışma sayfasının adını belirtmektir. Örneğin, "Satış Verileri" adlı sayfanın korumasını kaldırmak istiyorsanız, VBA kodunuz böyle olmalıdır.
Çalışma Sayfaları ("Satış Verileri")
Ardından Korumayı Kaldır yöntemine erişin.
Yukarıdaki görüntüde görebileceğimiz gibi, bize yardımcı olacak herhangi bir IntelliSense listesi görmüyoruz. Bu, özellikle yeni öğrenci için işi zorlaştırır.
Bunun üstesinden gelmek için genellikle bir VBA değişkenini "Çalışma Sayfası" olarak bildirmeye güveniyorum.
Kod:
Sub Unpretect_Example1 () Dim Ws As Worksheet End Sub
Şimdi beyan edilen değişkeni ilgili sayfaya ayarlayın.
Kod:
Sub Unpretect_Example1 () Dim Ws As Worksheet Set Ws = Çalışma Sayfaları ("Satış Verileri") Son Alt
Şimdi, bildirilen değişkenin tüm özelliklerine ve yöntemlerine erişmek için bir değişken kullanın.
Yukarıdaki görselde de görebileceğiniz gibi tüm özelliklere ve yöntemlere ulaşabiliriz. IntelliSense listesinden "Korumayı Kaldır" yöntemini seçin.
Sayfanın korumasını kaldırmak için şifre istiyor. Şifreyi "Excel @ 1234" olarak ayarladım, bu yüzden şifreyi aynı şekilde sağlayacağım.
Bu, "Satış Verileri" adlı çalışma sayfasının korumasını kaldıracaktır.
Kod:
Sub Unpretect_Example1 () Dim Ws As Worksheet Set Ws = Çalışma Sayfaları ("Satış Verileri") Ws.Unprotect Password: = "Excel @ 1234" End Sub
Parola yoksa, “Korumayı Kaldır” yöntemini kullanmamız ve “Parola” parametresini yok saymamız yeterlidir.
Kod:
Sub Unpretect_Example1 () Dim Ws As Worksheet Set Ws = Çalışma Sayfaları ("Satış Verileri") 'Çalışma sayfası adını ihtiyacınıza göre değiştirin Ws.Unprotect' Parola yoksa sadece "UnProtect" yöntemini geçin End Sub
Herhangi bir şifre varsa, şifreyi çift tırnak içinde girmemiz gerekir. Parola büyük / küçük harfe duyarlıdır, bu nedenle bunları dikkatlice unutmayın.
Örnek 2 - Sadece Bir Tıklamayla Tüm Excel Sayfalarının Korumasını Kaldırma
Belirli bir çalışma sayfasının korumasının nasıl kaldırılacağını gördük. Birçok çalışma sayfanız olduğunu ve tüm çalışma sayfalarının aynı parolayla korunduğunu düşünün, bu durumda her çalışma sayfası için ayrı ayrı kod yazmaya devam edemeyiz.
Bu gibi durumlarda, çalışma sayfası nesnesi koleksiyonunda döngü yapmak ve bunların korumasını kolaylıkla kaldırmak için döngüler kullanmamız gerekir.
Aşağıdaki kod tüm çalışma sayfalarında döngü oluşturacak ve sayfanın korumasını kaldıracaktır.
Kod:
Sub Unpretect_Example2 () ActiveWorkbook.Worksheets'teki Her Çalışma Sayfası İçin Çalışma Sayfası Olarak Dim Ws Ws.Unprotect Password: = "Excel @ 1234" 'Parolayı korurken belirttiğiniz gibi değiştirin. Next Ws End Sub
Örnek 3 - Özel Durumlar
Durum 1: Verilen şifrenin yanlış olduğunu hiç hayal etmedim. Verilen şifre yanlış olduğunda 1004: Çalışma Süresi Hatası alacağız .
Bu hataların üstesinden gelmek için, "Hatada GoTo Label" seçeneğini kullanabiliriz. Aşağıdaki kod, bunun bir örneğidir.
Kod:
Alt Unpretect_Example3 () ActiveWorkbook.Worksheets'te Hata Durumundaki Her Çalışma Sayfası İçin Çalışma Sayfası Olarak Karart Ws.Unprotect Password: = "Excel @ 1234" 'Parolayı korurken belirttiğiniz gibi değiştirin. Hata mesajı: MsgBox "Yanlış Şifre" Sonraki Ws End Sub
Yukarıdaki kod, "Yanlış Şifre" yazan güzel bir mesaj kutusu gösterecektir.
Durum 2: Sayfa parola olmadan korunduğunda ve rastgele bir parola sağlarsanız, çalışma sayfasının korumasını yine de herhangi bir hata göstermeden kaldıracaktır.
Durum 3: Sayfa bir parola ile korunduğunda, ancak herhangi bir parola sağlamazsanız, VBA parolayı girmek için bir parola giriş kutusu olarak açılır.
Yukarıdaki giriş kutusuna, çalışma sayfasının korumasını kaldırmak için parolamızı girmemiz gerekiyor. İptal düğmesine tıklarsanız, herhangi bir kullanıcı mesaj kutusu olmadığı sürece hiçbir şey göstermeden VBA alt prosedüründen çıkacaktır.
