Hücreye göre hücre kilitleme

[enginbagci]

Merhabalar
Eklediğim sayfada "G" sütununda "Tamam" yazısı olursa ilgili satırın diğer hücrelerinde değişiklik yapılmasını engellemek istiyorum. Tamam yazısını da değiştirmek için şifre yada benzer bir işlem yapabilir miyiz yardımlarınızı bekliyorum teşekkürler.

 

[N.Ziya Hiçdurmaz]

yanıt

Onaylamak için G sütunundaki hücrelere çift tıklayınız

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
deg = InputBox("Hücre değişimi için şifrenizi giriniz.")
alan = Range("g2:g17")
    If deg = 123 Then
    ActiveSheet.Unprotect
        alan.Locked = False
            Else
        alan.Locked = True
    ActiveSheet.Protect
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [a2:f17]) Is Nothing Then Exit Sub
ActiveSheet.Unprotect
Range("a2:f17").Locked = False
    For sat = 2 To 17
        If Cells(sat, "g") = "Tamam" Then
            Range(Cells(sat, "a"), Cells(sat, "f")).Locked = True
            Else
            Range(Cells(sat, "a"), Cells(sat, "f")).Locked = False
        End If
    Next
ActiveSheet.Protect
End Sub

 

[enginbagci]

istediğimi tam anlatamadım ama kendime uyarlama yapabildim çok faydalı oldu çok teşekkürler...

 

[TURKPLUS]

Ziya üstadım forumda şu linkte : (http://www.excel.web.tr/f48/hucreleri-otomatik-kilitleme-makrosu-t126661.html) benzer bir konuda sorum olmuştu ama yanıt bulamadım. Engin Bağcı Arkadaşın sorusuna benzer fakat ufak farklılıklar var. Vaktiniz olur mu göz atmak için... Emeğinize sağlık...

Engin Bağcı üstadım siz de kendi örneğinizde uyarlamayı nasıl yaptığınızı anlatsaydınız belki biz de faydalanırdık değerli örneğinizle..