daha önceden forumda hücre şifreleme ile ilgili
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Cells.Address <> "$A$1" Then Exit Sub
şifre = InputBox("lütfen şifreyi giriniz")
If şifre <> "a" Then [a2].Select
End Sub
kodlar verilmişti. bu mesela e26 ile ı36 arasına nasıl uyarlayabiliriz
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Cells.Address <> "$A$1" Then Exit Sub
şifre = InputBox("lütfen şifreyi giriniz")
If şifre <> "a" Then [a2].Select
End Sub
kodlar verilmişti. bu mesela e26 ile ı36 arasına nasıl uyarlayabiliriz