hücre sınırlama

[igultekin2000]

iyi akşamlar ; hazırladığım sayfalarda , bazı hücrelere formülden dolayı veri doğrulamada

=DEĞİL(HÜCRE("KORUMA";G3))

gibi koruma formülü yapıyorum. korunması gereken hücre sayısı bazen fazla olabiliyor. bunu makro ile yapmak mümkün mü? pratik şekilde formüllü hücreleri korumaya alıp, korumadan kaldırmak şeklinde makro aradım ama sağlıklı bir makro bulamadım. Teşekkürler.

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub Koruma_Uygula()
    ActiveSheet.Unprotect "+++"
    Cells.Locked = False
    On Error Resume Next
    Set Alan = Cells.SpecialCells(xlCellTypeFormulas, 23)
    On Error GoTo 0
    If Not Alan Is Nothing Then
        Alan.Locked = True
        ActiveSheet.Protect "+++", DrawingObjects:=True, Contents:=True, Scenarios:=True
    End If
End Sub

 

[igultekin2000]

sorunsuz çalışıyor

Aşağıdaki kodu deneyiniz.

Sub Koruma_Uygula()
    ActiveSheet.Unprotect "+++"
    Cells.Locked = False
    On Error Resume Next
    Set Alan = Cells.SpecialCells(xlCellTypeFormulas, 23)
    On Error GoTo 0
    If Not Alan Is Nothing Then
        Alan.Locked = True
        ActiveSheet.Protect "+++", DrawingObjects:=True, Contents:=True, Scenarios:=True
    End If
End Sub

teşekkürler, çok kullanışlı ve zaman tasarruflu oldu.