Tüm Çalışma Sayfalarını Kilitleme

Bu dosya, bir çalışma kitabındaki tüm sayfaları tek seferde kilitlemek için hazırlanmış makro örneğidir. LockAllSheets makrosu her sayfanın korumasını kaldırır, belirli bir aralığı değere çevirir ve sayfaları yeniden korumaya alır.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1, Sayfa2 ve Sayfa3: Üç çalışma sayfası boş olarak gelir; makro bunların üzerinde çalışır. Veriler kullanıcının kendi çalışmasına göre girilir.
• Module1: İçinde LockAllSheets adlı prosedür bulunur.

Makrolar​

LockAllSheets prosedürü çalışma kitabındaki her sayfa için sırasıyla şu işlemleri yapar:

1. Parola, ilk sayfadaki E100 hücresinden okunur.
2. Sayfanın korumasını bu parolayla kaldırır (Unprotect) ve sayfayı etkinleştirir.
3. A3:K84 aralığını kopyalar ve aynı yere yalnızca değer olarak yapıştırır; bu aralıktaki formüller sabit değerlere dönüşür.
4. Sayfadaki tüm hücreleri kilitli (Locked) yapar ve formülleri gizleme ayarını kapatır (FormulaHidden).
5. Sayfayı aynı parolayla yeniden korur (Protect).

Kodda dosya silme ya da dış bağlantı işlemi yoktur. Ancak A3:K84 aralığındaki formüllerin değere çevrildiği ve bu işlemin geri alınamadığı unutulmamalıdır; makroyu çalıştırmadan önce dosyanın yedeğini alın.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. İlk sayfanın E100 hücresine kullanılacak parolayı yazın. Sayfalar daha önce korunmuşsa, buraya bu sayfaların mevcut parolası girilmelidir.
3. Alt+F8 tuşlarıyla makro listesini açın, LockAllSheets makrosunu seçip çalıştırın.
4. İşlem bittiğinde tüm sayfalar aynı parolayla korunur; hücrelerde değişiklik yapmak için sayfanın korumasını bu parolayla kaldırmanız gerekir.

Makro her sayfada A3:K84 aralığını kullandığı için, verinin bu aralığın dışında kaldığı çalışmalarda kod içindeki aralık adresi ihtiyaca göre değiştirilir.