Sayfa Şifreleme Hakkında

[juxbox]

mrh excelde sayfalarımı şifreledim şu komutla

Private Sub Worksheet_Activate()
Application.Visible = False
sifre = "12345"
yazılan_sifre = InputBox("Güray Özer", "")
If yazılan_sifre <> sifre Then Sheets("ANA SAYFA").Select
Application.Visible = True
End Sub


fakat şifrelediğim sayfa sekmesinde sağtıklayıp kod görüntülüle diyince kod orataya çıkıyor sayfayı şifrelememmın bir espirisi kalmıyor.

nasıl birşey yapmam gerek arkadaşlar?

 

[fedeal]

sayfanın kod bölümünü açın,tools-vbaproject properties penceresinden protection'u açın lock project for viewing kutusunu işaretleyin şifreyi girip dogrulayın tamam.dosyanızı kaydedip kapatın tekrar açınca vba şifrelenmiş olarak açılacak.

 

[taylan28]

ya denedim ama olmadı bu ya

 

[İhsan Tank]

ya denedim ama olmadı bu ya

merhaba
ben denedim şifreliyor
eki inceleyiniz