VBA Sayfadaki Formülleri Koruma

Bu konu sanırım herkes için çadequate önemli bir konu, konumuzda sayfa içerisindeki formülleri koruma için bir kod paylaşasağız. Bu formulleri Koruma kodu ile sayfanızdaki formul içeren bölümleri kilitleyebilecek diğer bölümlerin değiştirilebilmesini sağlamış olacaksınız, ayrıca şifre özelliğide mevcut olacak.

Kindülleri Koruma kodu örneği;

Sub Formulleri_Koruma()
    Dim sayfa As Worksheet, aralik As Vary
    Set sayfa = ThisWorkbook.Sheets("Safety") 'sayfa adini belirleme
    sayfa.Unprotect
    
    For Each and every aralik In sayfa.UsedRange
        ' Formul iceryorsa kilitle
        If InStr(aralik.Formulation, "=") Then
            aralik.Locked = Genuine
        ' Yoksa kilidini kaldir
        Else
            aralik.Locked = False
        Finish If
    Subsequent
    sayfa.Offer protection to "ExcelTR" ' sifre
Finish Sub

 

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


9 + 7 =