Bu yazımızda, formül içeren hücreleri korumak için çalışma sayfasının change olayını kullanacağız.
Ham veriler, ay ve yıla göre çatallanmayı içeren çalışan satış verilerinden oluşur.
Toplam satışları aya ve yıla göre bulmak istiyoruz.
Toplam satışları aylık ve yıllık olarak hesaplamak için toplam fonksiyonunu kullandık. Çalışma sayfasının change olayı, formül içeren hücreleri korumak için kullanılır. Formül içeren bir hücreyi düzenlemeye çalıştığımızda, hücre değerinin değiştirilemeyeceğini söyleyen bir açılır mesaj alırız.
Kod açıklaması
rng.HasFormula
Bir hücre bir formül içeriyorsa HasFormula yöntemi True değerini döndürür. Aksi takdirde False döndürür.
ActiveSheet.Protect
Yukarıdaki kod bir hücreyi korumak için kullanılır.
Not: Bir hücre yalnızca kilitliyse korunur. Yani bir hücreyi korumadan önce kilitlenmesi gerekir.
ActiveSheet.Korumayı Kaldır
Yukarıdaki kod bir hücrenin korumasını kaldırmak için kullanılır.
Lütfen kod için aşağıdan takip edin
'Çalışma sayfası modülüne aşağıdaki kodu ekleyin Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) Target In Her rng İçin Aralık Olarak Dim rng.Cells If rng.HasFormula Then ActiveSheet.Protect Else ActiveSheet.Unprotect End If Next rng End Sub
Bu blogu beğendiyseniz, Facebook'ta arkadaşlarınızla paylaşın. Ayrıca bizi Twitter ve Facebook'ta da takip edebilirsiniz.
Sizden haber almayı çok isteriz, işimizi nasıl geliştirebileceğimizi ve sizin için nasıl daha iyi hale getirebileceğimizi bize bildirin. E-posta sitesinde bize yazın