Formüllü Hücreleri Korumak

[yavuz829]

Merhaba Arkadaşlar
Seyit Hocamın yazdığı aşağıdaki kod ile formüllü hücreleri koruyorum. Tek hücreyi veya tek sütundaki hücreleri silmemi engelliyor. Birden fazla sütündeki hücreleri seçtiğim zaman formüllü hücreleri silmeme izin veriyor. Birden fazla sütündeki hücreleri de seçtiğim zaman o hücrelerde formül varsa silmeme izin vermesin. Bu konuda yardımlarınıza ihtiyacım var yardımlarınız için şimdiden teşekkürler.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.Select
If Target.HasFormula Then
Target.Offset(, 1).Activate
End If
End Sub

 

[Seyit Tiken]

Bu kodu denedik, sütunları dahi seçmeye izin vermiyor.

 

[yavuz829]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target(1, 1) = 0 Then ActiveSheet.Unprotect "123"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ActiveCell.Select
If Target.HasFormula Then
Target.Offset(, 1).Activate
End If

ActiveSheet.Protect "123"
If Target(1, 1) = 0 Then ActiveSheet.Unprotect "123"
End Sub

Eklediğim kod ile birlikte kullanıyorum. Kusura bakmayın yazdığınız kodu yanlış yere eklemişim.

Hocam kodu yukarıdaki gibi kullanıyorum. İçinde formül olmayan hücreleri de seçmeme izin vermiyor. İçinde formül olmayan birden fazla hücreyi seçtiğim zaman imleç başlangıç hücresine dönüyor.

 

[yavuz829]

[CODE]Private Sub Worksheet_Change(ByVal Target As Range)

If Target(1, 1) = 0 Then ActiveSheet.Unprotect "123"

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ActiveCell.Select

If Target.HasFormula Then

Target.Offset(, 1).Activate

End If

ActiveSheet.Protect "123"

If Target(1, 1) = 0 Then ActiveSheet.Unprotect "123"

End Sub

Eklediğim kod ile birlikte kullanıyorum.

Birden fazla sütün seçilmesin demiyorum. Zaten benim istediğim birden fazla sütün seçilebilsin.
Birden fazla sütündeki hücreleri seçtiğim zaman formüllü hücreleri silmeme izin veriyor.

Benim istediğim hiç bir şekilde içinde formül olan hücreleri silmeme izin vermesin. Saygılar.[/CODE]

 

[Seyit Tiken]

Kodu kendinize göre uyarlayınız, formülleri silmez.

[a1:k500].SpecialCells(2, 23) = Null

 

[yavuz829]

Kodu kendinize göre uyarlayınız, formülleri silmez.

[a1:k500].SpecialCells(2, 23) = Null

Hocam size de çok zahmet verdim kusura bakmayın eklediğiniz kodu Mesaj 4 deki kodlarıma nasıl ekleyebilirim. Eklemeye çalıştım yapamadım hata verdi.

 

[Seyit Tiken]

Sizin nasıl bir mantık tasarladığınızı kestiremiyoruz, tasarınızı revize ediniz bence siz, kodu kendinize göre düzenleyip şu olaya atayıp deneyiniz, çift tıklama.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
Cancel = True
[a1:k500].SpecialCells(2, 23) = Null
End Sub

 

[yavuz829]

Çok teşekkürler Hocam ellerine sağlık.