VBA Tüm Worksheet'leri Şifrelemek

VBA ile çalıştığınız tüm "worksheet" leri şifreleyip koruma altına almak istiyorsanız, aşağıdaki macro kodunu kullanabilirsiniz..

Sub Sifrele() 
   Dim ws As Worksheet 
   Dim password As String 
   password = "Test123"
   For Each ws In Worksheets 
    ws.Protect password:=password 
   Next ws 
End Sub 


VBA

İlginizi Çekebilir

VBA Bir Dizi Gerçek Sayının Çarpımını Bulma Örneği

VBA Aktif Olan Dışındaki Tüm Worksheet'leri Gizlemek

VBA Yarıçap Girilen Bir Dairenin Çevre ve Alanını Bulma Örneği

VBA Üç Kenarı Verilen Bir Üçgenin Alanını Bulma

VBA While Döngüsü İle 10 Sayının Ortalamasını Bulma Örneği