hücre kilitleme yardım!!!

[yusuf09]

iyi günler

örneğin hücre kilitlemesi olmayan A5-K25 hücre aralığında herhangi bir hücreye değer girilmesi halinde sayfayı otomatik kilileyen makro yardımına ihtiyacım var.

konu hakkında bilgisi olan var mı???

 

[turist]

"Sayfayı otomatik kilitleyen" demekle "Sayfa Koruması " olmasını istiyorsanız;
VBA editor sayfasında sayfa koduna aşağıdaki kodu uygulayıp deneyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A5:K25")) Is Nothing Then
ActiveSheet.Protect
Else
ActiveSheet.Unprotect
End If
End Sub

 

[han_oguz]

Sayfanın kod kısmına
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("A5:K25")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
MsgBox "Cell " & Target.Address & " has changed."
Call lck
End If
End Sub

Herhengi bir modüle
Sub lck()
Worksheets("Sayfa2").Protect Password:="aaaa"
End Sub

Sub unlck()
Worksheets("Sayfa2").Unprotect Password:="aaaaa"
End Sub

 

[yusuf09]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("J5E517")) Is Nothing Then
ActiveSheet.Protect "12345"
End If
End Sub



İlginiz için teşekkür ederim yukarıda yazdığım kısım işimi gördü ancak ufak bir aksaklıkla karşılaştım bunu nasıl çözeriz.

Hücre aktif olup herhangi bir değer girilmediğinde sayfa koruması devre dışı kalıyor. Yani belirtilen aralıktaki hücrelerden birine çift tıklanıp imleç yanıp söner hale geldiğinde hiç bir değer girilmediğinde sayfa korumasından çıkıyor.

İstediğim tam olarak J5 ile DE517 aralığındaki herhangi bir hücreye müdahale edildiğinde yada tıklandığında sayfa koruma aktifleştirilsin istiyorum.

 

[yusuf09]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:ZZ11111")) Is Nothing Then
ActiveSheet.Protect "12345"
End If
End Sub


SANIRIM ÇÖZÜLDÜ HERKESE TESEKKÜRLER