Hücreye şifre vermek

[balca]

Arkadaşlar Merhaba;

Sütuna şifre başlıklı konu vardı. Gerçekten işe yarıyabilir güzel bir çalışma bende bu kapsamda bi soru sormak istiyorum;

Acaba hücreyede şifre koyulabilir mi?

Araçlar koruma ile bu işi yapıla bilir de. Diğer alternatifler ne olabilir?

Örneğin a1,b7,c18:21 aralığına şifre koymak istersek..

 

[hamitcan]

Örnek kodu biraz değiştirdim. Aşağıdaki şekilde deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, [a1:b7]) Is Nothing Or Not Intersect(Target, [c18:c21]) Is Nothing Then

If sifre = False Then
c = InputBox("Şifre yazınız. (şifre : 123 )", "Onay şifresi")
If c <> 123 Then
Application.Undo
Else
sifre = True
End If
End If
End If
Application.EnableEvents = True
End Sub

 

[demhatozcelik]

elinize sağlık çok güzel olmuş.

benim bir sorum olacak

boş hücreye veri girildikten 5 dk. sonra makro devreye girsin. boş hücrelerde makro aktif olmasın böyle bir şey mümkün mü?

 

[hamitcan]

Tam olarak anlamadım. Bir örnek verebilir misiniz ?

 

[balca]

Teşekürler.

 

[demhatozcelik]

daha açık yazayım.

hücreye veri girildikten 5. dakika makro sadece dolu hücreleri koruma altına alsın.

 

[Cavus]

Merhaba arkadaşlar,

benin sormak istediğim aslında tam olarak böyle değildi.

örnek;
herhangi bir satırı kople gizledim, normalde bu göster komutu ile eski haline gelmektedir. Buradaki gizli olan satırlara şifre koyabilirmiyiz.

 

[hamitcan]

Sayın demhatozcelik,

Aşağıdaki linkte buna benzer bir soru sormuşsunuz zaten. Buradaki açıklamalar sorununu çözmedi mi acaba ? Eğer çözmedi ise, tekrar bir başlık açmanızı tavsiye ederim, eminim bu konuya değerli Moderatör arkdaşlarımız son noktayı koyacaktır.

http://www.excel.web.tr/viewtopic.php?t=15282

İyi çalışmalar...

 

[hamitcan]

Sayın Cavus,

İstediğiniz;

Sayfa içindeki bütün gizli satırlara şifre koymak mı ? Yoksa, belli satırlar için mi şifreleme ?

 

[Cavus]

Sn. Hamitcan

Sadece gizli olan satır ve sütunlara şifre koymak.

iyi günler,

 

[hamitcan]

Sayın Cavus,

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False

If Target.Rows.Count > 1 Then
If sifre = False Then
c = InputBox("Şifre yazınız. (şifre : 123 )", "Onay şifresi")
If c <> 123 Then
Application.Undo
Else
sifre = True
End If
End If
End If

Application.EnableEvents = True
End Sub

Gizli hücreler ancak birden fazla satır seçilerek gösterilebiliyor yada silinebiliyor, en azından ben öyle biliyorum. Bende birden fazla satır seçildiğinde ve bu satırları silmek istediğinizde, şifre sorması şeklinde düşündüm.(Tabiî ki burada gizli olmayan satırlar için de şifre sormakta) Ayrıca hücreler arasında gezinirken de, bu hücrelere müdahale edemiyorsunuz (biçimleri hariç) bildiğim kadarıyla.

Yine de konuyu takip etmenizi öneririm, diğer arkadaşların farklı çözümleri olabilir

İyi çalışmalar...