şifreleme

[hakan666]

Merhaba

aynı sayfanın içindeki satırları kullanıcıya göre şifrelendirmek istiyorum. birisi şifresini girdiğinde sadece kendi ile ilgili satırları görsün ve yazdırabilsin.

ilginize teşekkür ederim.

 

[hakan666]

Arkadaşlar bir cevap alamadım. Konu ile yardımınıza ihtiyacım vardır.


Saygılarımla

 

[bedersu]

Sayın hakan666,
Bir Userform oluşturup üstüne Textbox ve Commandbutton ekleyin ve şu kodları yazın:

Private Sub CommandButton1_Click()
If TextBox1.Value = "13579" Then
ActiveSheet.Unprotect "1"
    Range("1:1, 3:3, 5:5, 7:7, 9:9").EntireRow.Hidden = False
    Me.Hide
    
End
ElseIf TextBox1.Value = "2468" Then
ActiveSheet.Unprotect "1"
    Range("2:2,4:4,6:6,8:8").EntireRow.Hidden = False
    Me.Hide
    End
    End If
 
MsgBox "Kullanıcı bulunamadı", vbCritical
End Sub

Sayfa koduna da şunları ekleyin:

Private Sub Worksheet_Activate()
UserForm1.Show
End Sub

Private Sub Worksheet_Deactivate()
    Range("1:1,2:2, 3:3,4:4 ,5:5,6:6 ,7:7,8:8 ,9:9").EntireRow.Hidden = True
ActiveSheet.Protect "1"

End Sub

Kodları isteğinize göre düzenleyin.Satırlar gösterildikten sonra sayfayı tekrar korumazsanız manuel olarak gizli satırlar gösterilebilir.Sayfa korunursa da üzerinde değişiklik yapılamaz.

 

[hakan666]

Hocam,

çok teşekkür ederim.İyiki varsınız

saygılarımla