Değişik Hücrelerde koruma formülü

[öztürk1]

SelamunAleyküm

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Cells.Column > 1 Or Selection.Cells.Row > 26 Then Exit Sub
If şifre <> "a" Then
[a2].Select
End If
End Sub

Bu işlemde : A1 den A26 ya korumalı . benim istediğim, değişik sütünlarda, belirli hücrelere koruma vermek .yani , A1 den A26 , D50 den D60, ve K12 den K15 hücrelerine koruma eklemek .bunun için yazdığım bu formüle ne eklemem lazım

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:dbf66cd1ef]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If intersect(target,[a1:a26,d50:d60,k12:k15]) is nothing Then Exit Sub
If şifre <> "a" Then
[a2].Select
End If
End Sub[/vb:1:dbf66cd1ef]

 

[öztürk1]

ALLAH razı olsun
SelamunAleyküm