şifreleme

[recep]

çalışama sayfasındaki hüçreleri değiştirmek istediğimde bana şifre formasını istiyorum yeni bilğiyi yazdığımda hücrelerin kilitlenmesimi istiyorum nasıl yapılabilir. :hey:

 

[Levent Menteşoğlu]

Sanıyorum aşağıdaki kod işinizi görecektir. Burada A1 hücresi seçildiğinde şifre sorulur (şifre a'dır) eğer doğru şifre girilirse A1 hücresindeki değer değiştirilebilir aksi takdirde, imleç A2 hücresine taşınır. Böylece şifre doğru girilmediği müddetçe A1 hücresinde değer değişimi yapılamayacaktır.

[vb:1:938701450c]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
[/vb:1:938701450c]

 

[nihatjeoloji]

syn leventm

(A1)'den (Z1)'e kader şifrelesek formül nasıl olur

veya

(A1)'den (A20)'e kader şifrelesek formül nasıl olur

 

[recep]

teşekkür ederim . bir kod bank oluşturmyı düşünmüyor musunuz. yu sitede yüzlerce belkide binlerce kod var bunları bir araya toplayacak bir çalışma iyi olurdu. bizde bakar biraz değişiklikle kendimize uyarlardık. uyarladıklarımızı ekler ve böylece banka büyür dü. :hey:

 

[Levent Menteşoğlu]

A1:A20 için aşağıdaki gibi deneyin.

[vb:1:a083983846]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Cells.Column <> 1 Or Selection.Cells.Row > 20 Then Exit Sub
şifre = InputBox("lütfen şifreyi giriniz")
If şifre <> "a" Then [b1].Select
End Sub
[/vb:1:a083983846]

A1:Z1 için;

[vb:1:a083983846]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Cells.Column > 26 Or Selection.Cells.Row > 1 Then Exit Sub
şifre = InputBox("lütfen şifreyi giriniz")
If şifre <> "a" Then [b2].Select
End Sub
[/vb:1:a083983846]

 

[nihatjeoloji]

Teşekkürler syn leventm

 

[redje]

BLOKLAYIP DELETE TUÞUYLA SÝLÝNÝYOR

şifreleme olayı güzel fakat bloklayarak delete tuşuna basarsak girilen değerler siliniyor bunuda engelleyebilirmiyiz o zaman güzel olur

 

[starmetin]

selam,
bunu excel dosyasına nasıl uyarlıyorsunuz yani bir excel dosyayı açıp vb modul sayfasına yukarıdaki kodları kopyala yapıştır yapıyorum hiç bir şey olmuyor...
yanlış bir şeyler mi yapıyorum
tşk,

 

[Levent Menteşoğlu]

bunu excel dosyasına nasıl uyarlıyorsunuz yani bir excel dosyayı açıp vb modul sayfasına yukarıdaki kodları kopyala yapıştır yapıyorum hiç bir şey olmuyor...

Kodları sayfanın modül sayfasına kopyalayacaksınız.

 

[Levent Menteşoğlu]

şifreleme olayı güzel fakat bloklayarak delete tuşuna basarsak girilen değerler siliniyor bunuda engelleyebilirmiyiz o zaman güzel olur

Bunun için aşağıdaki kodu deneyin. Yine A1 hücresi içindir. Eğer A1 hücresi seçilen alan içinde kalıyorsa yine şifre soracaktır. Belki daha kısa bir kodda yazmak mümkündür.

[vb:1:df48ba549e]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ilksut = Selection.Cells.Column
ilksat = Selection.Cells.Row
sutsay = Selection.Cells.Columns.Count
satsay = Selection.Cells.Rows.Count
If 1 >= ilksut And 1 <= sutsay And 1 >= ilksat And 1 <= satsay Then
şifre = InputBox("lütfen şifreyi giriniz")
If şifre <> "a" Then [a2].Select
End If
End Sub
[/vb:1:df48ba549e]