• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

satırları şifreleme

Katılım
30 Ekim 2009
Mesajlar
75
Excel Vers. ve Dili
türkçe
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.
 
yanıt

Kod:
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
 

Ekli dosyalar

ç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.
 
hangi makroyu nagi butonlara eklediniz.
 
Geri
Üst