Hücreye şifre vermek

Katılım
22 Mart 2005
Mesajlar
307
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

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,712
Excel Vers. ve Dili
Excel 2019 Türkçe
Ö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
 
Katılım
10 Eylül 2005
Mesajlar
132
Excel Vers. ve Dili
Excel 2003 türkçe
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

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,712
Excel Vers. ve Dili
Excel 2019 Türkçe
Tam olarak anlamadım. Bir örnek verebilir misiniz ?
 
Katılım
10 Eylül 2005
Mesajlar
132
Excel Vers. ve Dili
Excel 2003 türkçe
daha açık yazayım.

hücreye veri girildikten 5. dakika makro sadece dolu hücreleri koruma altına alsın.
 
Katılım
21 Eylül 2004
Mesajlar
41
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

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,712
Excel Vers. ve Dili
Excel 2019 Türkçe
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

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,712
Excel Vers. ve Dili
Excel 2019 Türkçe
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 ?
 

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,712
Excel Vers. ve Dili
Excel 2019 Türkçe
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...
 
Üst