satırları şifreleme

[byysmn]

arkadaşlar kolay gelsin
1- aynı sayfanın içindeki satırları grup grup şifrelendirmek istiyorum.mesala 3. satır ile 20 satır arası vb gibi. birisi şifresini girdiğinde sadece kendi ile ilgili grubun satırları görsün ve yazdırabilsin.
2- çalışma kitabının içindeki sayfalar şifre koydum ama kitabı yeniden açtığımda makroyu etkinleştirmezsem sayfaları görebiliyorlar. bunu nasıl çözerim.
ilginize teşekkür ederim.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub auto_open()
ActiveSheet.Unprotect 123
Range("a5:a10").EntireRow.Hidden = True 'alinin alanı
Range("a15:a25").EntireRow.Hidden = True 'velinin alanı
Cells.Locked = True
ActiveSheet.Protect 123
End Sub
Sub auto_close()
ActiveSheet.Unprotect 123
Range("a5:a10").EntireRow.Hidden = True 'alinin alanı
Range("a15:a25").EntireRow.Hidden = True 'velinin alanı
Cells.Locked = True
ActiveSheet.Protect 123
End Sub
Sub sifregirali() 'ali
Dim alan As String
alan = InputBox("Şifrenizi giriniz")
If alan Like 123 Then
ActiveSheet.Unprotect 123
Range("a5:a10").EntireRow.Hidden = False
Range("a5:s10").Locked = False
ActiveSheet.Protect 123
Else
MsgBox "Yanlış şifre girdiniz"
End If
End Sub
Sub sifregirveli() 'veli
Dim alan As String
alan = InputBox("Şifrenizi giriniz")
If alan Like 456 Then
ActiveSheet.Unprotect 123
Range("a15:a25").EntireRow.Hidden = False
Range("a15:s20").Locked = False
ActiveSheet.Protect 123
Else
MsgBox "Yanlış şifre girdiniz"
End If
End Sub

 

[byysmn]

çok teşekkür ediyorum

hocam elinize sağlık süper olmuş. umduğumdan daha iyi oldu teşekkürler.
hocam birde aşağıdaki soruya bakarmısınız.
soru:çalışma kitabının içindeki sayfalar şifre koydum ama kitabı yeniden açtığımda makroyu etkinleştirmezsem sayfaları görebiliyorlar. bunu nasıl çözerim.
ilginize teşekkür ederim.

 

[byysmn]

hangi makroyu nagi butonlara eklediniz.