[ÇÖZÜLDÜ] Belirlenen bir hücreye çift klik yapılmadan dosya çalışmasın..!

[enteresan]

Çalışma kitabı açılınca, belirlenen bir hücreye çift klik yapılmazsa, dosyada hiç bir işlem yapılamasın istiyorum. Bunun için yazılabilecek bir makro var mı acaba. İlgilenenlere teşekkür ederim....

 

[ileriexcel]

kitap açılışında tüm sayfalar korumaya alınır
Sub auto_open()
For i = 1 To Sheets.Count
Sheets(i).Protect 123
Next
End Sub
hangi sayfa kod bölümüne koyarsanız o sayfada herhangi bir hücreye çift tıkladığınızda korumalar açılır.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
For i = 1 To Sheets.Count
Sheets(i).Unprotect 123
Next
End Sub

 

[ileriexcel]

kodun sadece a1 hücresinde çalışması için
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [a1]) Is Nothing Then Exit Sub'ilave edilen kısım
For i = 1 To Sheets.Count
Sheets(i).Unprotect 123
Next
End Sub

 

[enteresan]

Sayın ileriexcel kardeşim,
küçük bir örnek dosya ile gönderebilirseniz memnun olurum.

 

[ileriexcel]

yanıt

sayfa1 a1 çift tıklama şifreyi açar.

 

[enteresan]

Teşekkür eder, saygılar sunarım....