Formül Bulunan Hücreleri Koruma ve Kilitleme

Bu kod ile Formül Bulunan Hücreleri Koruma ve Kilitleme işlemini çok hızlı bir şekilde gerçekleştirebilir, işlerinizde zaman tasarrufu sağlayabilirsiniz.

Sub LockCellsWithFormulas()
With ActiveSheet
   .Unprotect
   .Cells.Locked = False
   .Cells.SpecialCells(xlCellTypeFormulas).Locked = True
   .Protect AllowDeletingRows:=True
End With
End Sub

Gerekli Adımlar

Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.

  1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
  2. 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.
  3. Araç çubuklarından Insert -> Module yazısına tıklayın.
  4. Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
  5. Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
  6. Üstteki kodu yapıştırın.

Kod Açıklaması

Bu VBA kodu, aktif sayfada işlem yapar ve sayfada yer alan korumalı hücrelerin önce korumasını kaldırır ve tüm hücrelerin Hücre Biçimlendir penceresinden önce korumasını kaldırır. Daha sonra ise formüllü hücrelere koruma tiki ekler ve o hücrelerin seçilememesini sağlayacak şekilde tekrar kilitler.

Kodun parola kısımları boş bırakılmıştır. Parola koyarak nasıl yaparım diyorsanız, yoruma yazabilirsiniz.

50 Farklı Hazır Makro (VBA) Kodu
Tarih ve Saatten Tarihi Kaldırma
Açılışta İstediğiniz Sayfanın Aktif Edilmesi
Excel Alarm Kurma
Makrolar İşlem Yaparken Ekranın Kilitlenmesi
Grafiği Görüntü Olarak Yapıştırma
Bir sayfadaki Veriyi Diğer Sayfaya Aktarma
Excel Dosya Arama Yapma Makrosu
UserForm Üzerinde Dört İşlem
Özet Tablo Aralığını Otomatik Güncelleştirme
Aktif Sayfayı Kopyala Yeni Bir Kitaba Yapıştır
Seçimi Yazdırma
Sayfadaki Kelime ve Sayı Adetlerini Bulma
Çalışma Kitabını E-Posta Ekine Ekleme
Aktif Hücreye Günün Tarihini Yazma
Bir Kitaptaki Sayfaları Başka Kitaba Taşıma
Seçili Hücrelerdeki Harfleri Büyük Harfe Değiştirme
Satır Yüksekliğini Ayarla
Aktif Hücrenin İçeriği Hakkında Bilgi Verme
Pivot Verilerini Almayı Devre Dışı Bırakma Etkinleştirme
Sayfadaki Ad Tanımlamaları Silme
Adlandırılmış Aralıkları Vurgulama
Kopyala ve Biçimleri Yapıştır
Dizileri Döngüye Eklemek
Tüm Çalışma Sayfalarını Gösterme
Sayıların Önündeki Tek Tırnak İşaretini Kaldırma
Yazı Efekti Verme Kodu
Bir Aralıktaki Minimum Değeri Renklendirme
Gizlenmiş Makro Örnekleri
Sayıları Rastgele Karıştırmak
Verileri Birden Çok Sütuna Göre Sıralama
Birleştirilmiş Tüm Hücreleri Ayırma
Hücrenin Arka Plan Rengini Değiştirme
Seçilmiş Alanı Kes Kopyala ve Yapıştır
Çalışma Sayfalarını Alfabetik Olarak Sıralama
Excel Açılırken Otomatik İşlem Yaptırma
MsgBox Nesnesi ile Cevap Seçeneği Sunma
Alarmlı Saat Ekleme Kodu
X Sayı Atlayarak Satır Gizleme
Makro ile Dosya Açma
Negatif Sayıları Vurgulama
Aktif Hücreye Açıklama Ekleme
Hücre Aralığını Görüntüye Dönüştürme
Formu Kapatma Makro Kodu
Son Satır Numarasını Bulma
Giriş Kutusu ve Mesaj Yazma İşlemi
Toplama İşlemi Yapan Kullanıcı Tanımlı Fonksiyon
2. Satırdaki Bilgileri Silmek
Birden Çok Çalışma Sayfası Ekleme
Veri Giriş Formunu Etkinleştirme
Hücre Biçimlendir Yazı Tipi Penceresini Açma

Daha önce yorum yapılmamış!

Bir Excel hücresi seçildiğinde otomatik olarak bir mesaj çıkmasını isterseniz;
  1. Excel Şerit Menü
  2. Veri sekmesini tıklama
  3. Veri Doğrulama açılan listesinden Veri Doğrulama özelliğin tıklama
  4. Açılan Pencerede, Giriş İletisi sekmesini tıklama
  5. Başlık ve Giriş İletisi kısımlarını doldurma ve Tamam dememiz yeterli olacaktır.

Hücreye mesaj ekleme

Hücreye mesaj ekleme
Yükleniyor...