Verileri sadece ben silmek istiyorum

[Mdemir63]

Tüm arkadaşların Geçmiş Remezen Bayramını kutlar sağlıklı günler temenni ederim.

Arkadaşlar ben dosyamda girilen bilgilerin başkaları tarafından silinmesini istemiyorum. eğer silinmesi gerekiyorsa sadece ben silmek istiyorum bunun için ne yapmalıyım
Teşekkürler

 

[Seyit Tiken]

Bence koşula bağlı mantıksal bir önerme ile yapılabilir. Yani(örnek olarak) "eğer A1=komutan63 ise; filan aralıktaki veriler silinsin" şeklinde olabilir. Birde menüleri gizleyerek yapılabilir.

 

[Mdemir63]

Sn: Seyit Tiken Hocam

bu verdiğiniz örneği nereye yazmam gerekiyor ve her bir hücre içinmi yapmak gerekiyor aşağıda verdiğiniz örneği biraz daha açıklayabilirmisiniz

saygılar

"eğer A1=komutan63 ise; filan aralıktaki veriler silinsin"

 

[bukrenur]

önce tüm sayfayı seçin
ardından sağ tıklayıp hücreleri biçimlendir
daha sonra korumayı tıklayın
burada kilitli butonundaki tıkı kaldırın
en son ise nerelerin silinmesini istemiyorsanız oraları seçerek aynı işlemi tekrarlayın
ama bu kez kilitli butonundaki tıkı işaretleyerek

 

[Mdemir63]

ilginize teşekkürler ama bu tek sayfa değilki sürekli bilgi girilecek sayfa onun için yanlışlık yapıldığında benden başkası o yanlışlığı düzeltmesin ve aynı zaman da silemesin
teşekkürler

 

[Zeki Gürsoy]

ThisWorkbook kısmına aşağıdaki kodlar yazıldığında istediğiniz olacaktır.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    
    If Target <> "" Then Exit Sub
        
    sor = InputBox("&#351;ifre:1111", "sual", "****")
    
    Application.EnableEvents = False
    
    If sor <> 1111 Then Application.Undo
    
    Application.EnableEvents = True
        
End Sub

 

[Korhan Ayhan]

Selamlar,

Örnek bir dosya üzerinde açıklarsanız daha faydalı olacaktır.

 

[Seyit Tiken]

Bu kodu bir deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If [A1] = "Komutan63" Then
ActiveSheet.Unprotect
[B1:B20].ClearContents
Else
ActiveSheet.Protect
End If
End Sub

 

[Mdemir63]

hocam size zahmet bir örnek yapabilirmisiniz o verdiğiniz kodları kullandım ama yapamadım

saygılar

 

[Zeki Gürsoy]

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    
    If Target <> "" Then Exit Sub
        
    sor = InputBox("şifre:1111", "sual", "****")
    
    Application.EnableEvents = False
    
    If sor <> 1111 Then Application.Undo
    
    Application.EnableEvents = True
        
End Sub

Bu kodlar daha kullanışlı değil mi?

 

[Mdemir63]

Hocam tek tek silmek istediğimizde tamam şifre soruşor ancak yazılı hücrelerin hesini seçip delete düğmesine bastığımızda Debug penceresi çıkıyor

 

[Mdemir63]

Hocam buna bir çare lütfen

 

[Mdemir63]

Sn. Anemos

yaptığınız örnek güzel olmuş ancak yazılı hücrelerin hepsini seçip Delete tuşuna bastığımızda DEBUG penceresi çıkıyor bunun için ne yapılabilir

teşekkürler

 

[Korhan Ayhan]

Selamlar,

Ekte farklı bir örnek dosya hazırladım incelermisiniz.

 

[Mdemir63]

Sn: Cost Control
Elinize sağlık tam istediğim gibi ancak bu kodları sayfa 1 değilde istediğimiz herhangibir sayfada nasıl kullanmamız gerekir?

yani bu kodları hangi sayfaya yapıştırırsak orada kullanabilirmiyiz?

teşekkürler

 

[Korhan Ayhan]

Selamlar,

Dikkat ettiyseniz kodlar "ThisWorkbook" bölümünde dolayısı ile herhangi bir sayfada iken "Delete" yada "BackSpace" tuşlarına bastığınızda şifre sorgusu gelecektir.

 

[Mdemir63]

hocam ben bu kodları kopyalayıp başka herhangi bir dosyada da kullanabilirmiyim hiçbir yerini değiştirmeden ThisWoork sayfasına yapıştırırsam

 

[Korhan Ayhan]

Selamlar,

Evet "ThisWorkbook" kısmına uygularsanız kullanabilirsiniz. Ayrıca Module1 kısmındaki koduda uygulamanız gerekiyor. Bu iki kısımdaki kodları kendi çalışmanıza uygularsanız aynı şekilde çalışacaktır.

 

[Mdemir63]

teşekkürler hocam iyi çalışmalar

 

[Mdemir63]

Hocam başka bir dosyama uyguladım fakat Şifre makrosu bulunamadı uyarısı yapıyor