Makro ile belirlenen hücreyi * yıldız göstermek

[cqners]

Merhaba;

Makro ile belirttiğim hücreye veri girdiğimde buradaki verinin * Yıldız şeklinde gösterebilmem mümkünmü ?

 

[Levent Menteşoğlu]

Bu hücre tek bir hücremidir? ayrıca yazılan her veri "*" işaretinemi çevrilecektir yoksa sadece belirli sayıdaki şifrelermi? Bu sorulara vereceğiniz cevaba göre size çözüm önereceğim.

 

[cqners]

Merhaba; Levent Bey,

Sayfa1 deki B4, B8, B12 gücresine girdiğim şifre '*' şeklinde görünmesi.

Hücreye girilecek değer; Rakam,Kelime olabilir.
Örn. 9544556, ANADOLU, D8R14ADR,

Hücre özelliklerinden yaptım lakin kelime girdiğimde bunu * göstermemekte ve hücre deki şifre gözükmekte. Makro ile yapılacak * gizleme çözüm olabilir.

 

[cqners]

Sn. LeventM bey;

İsterseniz örnek dosya ekleyebilirim.

 

[Levent Menteşoğlu]

İsterseniz örnek dosya ekleyebilirim.

Bu çok iyi olur. Birde bu şifreler bir yerde kullanılıyormu?

 

[cqners]

Ornek Dosyam.

Sn. LeventM

UserForm üzerinden şifreli giriş için kontrol ediliyor, 3 kullanıcı atanmış vaziyette. Karekter girdiğimde bunu * olarak gostermek istiyorum.

Makro ya yeni başlayan biri olarak kullanıcı bilgilerini sayfa üzerinden yönetiyorum. Userform üzerinden çok uğraştım ama sonuç alamayınca sayfalarla çözüm buldum.

 

[Levent Menteşoğlu]

Epeyce deneme yapmama rağmen sayfa üzerinde şifre kontrolü pek sağlıklı olmadı. Bence en ideali userform ile çözüm.

 

[cqners]

Sn. LeventM bey,

İlginiz için Teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Konuyla ilgili size fikir verebilecek örnek bir dosya hazırladım. Gerçi tam olarak sizin istediğiniz çözüm değil ama en azında fikir verebilir. Örnek dosyada sayfa koruması ve hücre renklendirme özelliğini kullandım.

 

[Recep İpek]

Sn.Cost Control,

Şifreleri iyi gizleyememişsiniz.Tam siyah olmadığı için hücreleri seçince belli oluyor. Sanırım 0-1-2-3

Not:Güzel bir konu.Akşamdan beri düşünüyorum.Nasıl yapılabilir diye.

 

[Korhan Ayhan]

Selamlar,

Sn. ripek,

Haklısınız. Seçim yapınca şifreler belli oluyor. Bayağı bir uğraştım ama en uygun rengi dosyadaki renk olarak belirledim. Diğer renklerde dahada belirgin şekilde görünüyor şifreler umarım arkadaşımıza fikir verebilmişizdir.

 

[cqners]

Akşam 5 saat kadar sitelerde gezdim yok böyle bir konu demekki ihtiyaç olmamış. Önemli değil gizlemekten vazgeçtim

Uğraş ve emekleriniz için sağolun.

 

[Korhan Ayhan]

Selamlar,

Sn. cqners,

Aslında hücredeki karakterler yerine makro ile yıldız "*" sembolü eklenebilir fakat daha sonra bu hücreyi okutmak istediğinizde orjinal hücre içeriği değilde değer olarak yıldız "*" algılanacağından sizin için birşey ifade etmeyecektir. Zaten sizin amacınız kullanıcı şifrelerini kayıt ettiğiniz sayfayı kimsenin görmemesi ise bu sayfayı gizleyerek yada örnek dosyada önerdiğim gibi sayfayı koruyarak önlem alabilirsiniz. Önceki mesajımdaki örnek dosyadaki çözüm dahada değişik şekillerde kullanılabilir. Mesela farklı bir örnek olarak kullanıcıların isimlerinin yanındaki hücreye şifreleri kadar yıldız "*" sembolü ekleyip bir yanındaki hücreyede orjinal şifrelerini yazdırdıktan sonra bu sütunu gizleyip sayfayı korumaya alırsanız istediğinize yakın bir çözüm olacaktır. Umarım açıklayıcı olmuştur.

 

[Recep İpek]

Sadece bir fikir.

Şifreli başka excel dosyasından bu bilgiler alınabilir mi?

 

[cqners]

Sayfalar şifreli ise evet.
Çalışma kitabı şifreliyse. Makro modülü içerisine şifreyi eklersen alabilirsin.

 

[Levent Menteşoğlu]

Konuyla ilgili bir çözüm geliştirdim belki işinize yarar. Şifreler şifre giriş sayfasında yıldıza dönüştürülmekte buna karşın gizli bir başka sayfaya şifrenin aslı yazılmakta ve bu veri karşılaştırılmaktadır. Gerekli açıklamalar dosya içindede yapılmıştır.

 

[cqners]

Sn. LeventM Bey,

Çözümünüz, Tek kelime ile "HARİKA" Artı farklı konularıda barındıran bir örnek dosya olmuş. Şifre ile Userform çağırma (Kontrol Paneli İsteyenler için) , Hücre Karakter gizleme, Şifreleme (Çok başarıl&#305.

Saygılarımla;
C.SARIGÜL

 

[cqners]

Merhaba;

Excel'e yeni başlayan biri olarak meraktan soruyorum.



Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [c8,c10,c12]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
deg = WorksheetFunction.Rept("*", Len(Target))
If Target.Address = "$C$8" And Target <> deg Then [gizlisayfa!a1] = Target
If Target.Address = "$C$10" And Target <> deg Then [gizlisayfa!a2] = Target
If Target.Address = "$C$12" And Target <> deg Then [gizlisayfa!a3] = Target
Target = deg
If [gizlisayfa!a1] = "den1568me" Then UserForm1.Show 0
If [gizlisayfa!a2] = "95654654" Then UserForm1.Show 0
If [gizlisayfa!a3] = "berkanbeyt" Then UserForm1.Show 0
End Sub

Buradaki makro mod&#252;l&#252; bozulmadan B8 B10 B12 H&#252;crelerinide y&#305;ld&#305;z olmadan gizlisayfa 'ya aktarmam&#305;z m&#252;mk&#252;nm&#252; ?

 

[Levent Menteşoğlu]

Kod i&#231;ine ayn&#305; mant&#305;kla a&#351;a&#287;&#305;daki mavi renkli ilaveleri yap&#305;n.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
[COLOR=blue][B]If Intersect(Target, [b8,b10,b12,c8,c10,c12]) Is Nothing Then Exit Sub[/B][/COLOR]
[B][COLOR=#0000ff]if Target="" then exit sub[/COLOR][/B]
[COLOR=blue][B]If Target.Address = "$b$8" And Target <> deg Then [gizlisayfa!b1] = Target[/B][/COLOR]
[B][COLOR=blue]If Target.Address = "$b$10" And Target <> deg Then [gizlisayfa!b2] = Target[/COLOR][/B]
[B][COLOR=blue]If Target.Address = "$b$12" And Target <> deg Then [gizlisayfa!b3] = Target[/COLOR][/B]
deg = WorksheetFunction.Rept("*", Len(Target))
If Target.Address = "$C$8" And Target <> deg Then [gizlisayfa!a1] = Target
If Target.Address = "$C$10" And Target <> deg Then [gizlisayfa!a2] = Target
If Target.Address = "$C$12" And Target <> deg Then [gizlisayfa!a3] = Target
Target = deg
If [gizlisayfa!a1] = "den1568me" Then UserForm1.Show 0
If [gizlisayfa!a2] = "95654654" Then UserForm1.Show 0
If [gizlisayfa!a3] = "berkanbeyt" Then UserForm1.Show 0
End Sub

 

[cqners]

Sn. LeventM Bey,

Dosya &#231;al&#305;&#351;mad&#305;.

If Intersect(Target, [b8,b10,b12]) Is Nothing Then Exit Sub
If Target.Address = "$b$8" And Target <> deg Then [gizlisayfa!b1] = Target
If Target.Address = "$b$10" And Target <> deg Then [gizlisayfa!b2] = Target
If Target.Address = "$b$12" And Target <> deg Then [gizlisayfa!b3] = Target

Ekledikten sonra y&#305;ld&#305;zlarda &#231;al&#305;&#351;mad&#305;.