Sayfa koruma

[neseterkutsesli]

Merhaba,
Sadece E sütununu gizlemek ve koruma vermek istiyorum
o sütuna ait bilgilere ulaşılmasını istemiyorum
açıklamalı olarak yardımcı olabilirmisiniz

 

[Korhan Ayhan]

Merhaba,

Tüm hücreleri seçin.
Seçili alan üzerinde sağ klik yapın ve hücreleri biçimlendir menüsünü açın.
Koruma sekmesindeki "Kilitli" seçeneğini pasif yapın.
Aynı şekilde "E" sütununu seçin ve biçimlendirmedeki "Kilitli" seçeneğini aktif yapın.
Araçlar-Koruma-Sayfayı Koru menüsünden şifre vererek sayfanızı koruma altına alınız.

 

[turist]

Ekli dosyanızda;
VBA sayfasından BuÇalışmaKitabı'na yazılan kodlarla, sayfa koruması yapılmış ve E sütunu gizlenmiştir.
Dosyanız her açılışta makro çalışır.Sayfa koruma şifresi "123" olarak yazılmıştır.Dilediğiniz şekilde kodlardan değiştirebilirsiniz.


Not:
Sadece sayfa koruması ile sorunu çözmek mümkün değil, çünkü D sütununda kutucukları işaretlediğinizde E sütununa TRUE ,FALSE (DOĞRU, YANLIŞ) yazması gerekiyor.

 

[neseterkutsesli]

her ikinizede teşekkür ederim sağolun

 

[Korhan Ayhan]

Merhaba,

Sn. turist evet haklısınız. E sütununa doğrulama verisi geldiği için koruma sorun çıkarıyor.

Alternatif aşağıdaki kodda kullanılabilir.

İlgili sayfanın kod bölümüne uygulayınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error GoTo Son
    Application.EnableEvents = False
    If Target.Cells.Count = Cells.Count Then Range("A1").Select: GoTo 10
    If Not Intersect(Target, Range("E:E")) Is Nothing Then
        Range("A1").Select
10      MsgBox "E sütunu işleme kapalıdır!", vbCritical
    End If
Son: Application.EnableEvents = True
End Sub