Hücre Şifreleme

[programer]

Arkdaşlar iyi aykşamlar. Forumda hücre şifrelemeyle ilgili bir örnek buldum. Bu örneği kendime göre uyarlamaya çalıştım ama istediğim gibi olmadı. Benim yapmak istediğim eğer hücrede değer yok ise bana şifre sormadan değeri yazsın. Ama hücrede değer var ben onu değiştirmek istersem bana şifre sorsun.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, [a:a]) Is Nothing Then
   If sifre = False Then
      c = InputBox("Şifre yazınız.", "Onay şifresi")
          If c <> 123 Then
             Application.Undo
          Else
             sifre = True
          End If
   End If
End If
Application.EnableEvents = True
End Sub

 

[programer]

Arkadaşlar biraz aceleci davranıyorum ama kusura bakmayın sabah işe yetiştirmem gerekiyor dosyayı. Yardımlarınız için şimdiden teşekkür edirim kusura bakmayın.

 

[programer]

arkadaşlar herkese günaydın gece baya uğraştım ama bir çözüm bulamadım.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz. Umarım faydası olur.

 

[emraha]

Selamlar,

Ekteki örnek dosyayı incelermisiniz. Umarım faydası olur.

güzel kod gerçekten ama bence hücrenin üzerine sağ tıklayıp hücreyi sil dediğimizde veri silinmese dahada güzel olur diye düşünüyorum...

 

[programer]

Selamlar,

Ekteki örnek dosyayı incelermisiniz. Umarım faydası olur.

Sayın COST_CONTROL elinize sağlık istediğim gibi olmuş teşekkürler

 

[AFFANN]

teşekkürler güzel bir kod ama tüm veriler rahatlıkla sinip sonra değişiklik yapılıyor.