Tüm Çalışma Sayfalarını Tek Adımda Koruma
27 Mayıs 2020
28 Şubat 2021
557
Bu kod ile Tüm Çalışma Sayfalarını Tek Adımda Koruma işlemini çok hızlı bir şekilde gerçekleştirebilir, işlerinizde zaman tasarrufu sağlayabilirsiniz.
Sub ProtectAllSheets()
Dim ws As Worksheet
Dim password As String
password = "Test123"
For Each ws In Worksheets
ws.Protect password:=password
Next ws
End SubGerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
- Araç çubuklarından Insert -> Module yazısına tıklayın.
- Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
- Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
Bu kodu kullanarak bir Excel kitabındaki tüm sayfalara hızlıca parola kullanarak sayfa koruması ekleyebilirsiniz.
Test123 kısmını kendinize göre revize edersiniz.
| YARARLI KISAYOLLAR | |
|---|---|
| Ad Kutusunu Seçme | Alt F3 |
| Hücrede Yatay Ortalama Yapmak | Alt Ş OO |
| Veri Aralığının En Soluna Gitme | Ctrl ← |
| Formül Çubuğunu Gizleme Gösterme | Alt M F |
| Ortası Çizgili Yazdırma | Ctrl 5 |