Gizli satırlara şifre koyma

[esahin1907]

Merhaba arkadaşlar,
Gizleyeceğimiz satırlara şifre koyabiliyormuyuz. Gizlenen satırlar şifre ile açılsın istiyoruz. Bu mümkün mü?

teşekkürler.

 

[Erdem Akdemir]

Merhaba,

Tag'daki kodu sayfa olaylarında dener misiniz? 5 ve 10. satır aralığında çalışır, kendiniz istediğiniz aralığı verebilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, Rows("5:10")) Is Nothing Then Exit Sub
sifre = 123

For Each alan In Selection
If Rows(alan.Row).Hidden = True Then
Dim sor As Long
sor = InputBox("şifre", "şifre")
If sor = sifre Then Rows(alan.Row).Hidden = False
End If
Next
End Sub

 

[esahin1907]

Sn. Kuvari,
Kod ile yapabiliyorum. Fakat kod haricinde yapılabilir mi ?
desteğiniz için teşekkürler.

 

[Erdem Akdemir]

Kod harici yapmak için aşağıdaki menüyü inceleyin. Olabilir mi emin değilim.
Kodla neden yapmıyorsunuz,zaten kod sayfa olaylarında otomatik çalışacak.

Gözden Geçir > Kullanıcıların Aralıkları Düzenlemesine İzin Ver