Excel sayfasına şifre koyma

[Ömer]

Denedim, hiç bir sorun yok. Söylediğim gibi şifreyi doğru girince şifreli sayfaya gidiyor, yanlış girince FORM sayfasına dönüyor.

Şifre 123

 

[halit3]

makroları etkinleştirmeden açınca sayfanızda değişiklik yapılır!
onun için bunuda önlemek için alternatif dosya ekte bir kontrol edermisiniz.

 

[zehnisağcan]

sizin bana şimdi gönderdiğiniz oluyor şifre girincek açıyor bende niye olmuyor

 

[Ömer]

sizin bana şimdi gönderdiğiniz oluyor şifre girincek açıyor bende niye olmuyor

Option Explicit silme dışında ben bir değişiklik yapmadım.

.

 

[zehnisağcan]

sizin eklediğiniz çok güzel oluyor ben ona göre uyarlıyım hocam

bana yardımlarınız için verdiğiniz emek için diğer hocalarımla birlikde size binlerce kere "teşekür ederim" savolun

 

[zehnisağcan]

makroları etkinleştirmeden açınca sayfanızda değişiklik yapılır!
onun için bunuda önlemek için alternatif dosya ekte bir kontrol edermisiniz.

hocam ben ömer hocamın vermiş olduğu macro benim işimi gördü ama sizin vermiş olduğunuz hocam macroları etkinleştirmeden acma durumunuda inceledim ama çalışmadı hata veriyor şifre filan sormadan direk şifre hatalı diyor galiba macro sayfasında bir sorun var

 

[zehnisağcan]

iptal............

 

[mu-di]

Sayfanın kod bölümüne yazınız.

Private Sub Worksheet_Activate()
[COLOR=red]'Application.Visible = False[/COLOR]
Şifre = "[COLOR=blue]abc[/COLOR]"
Yaz_Şifre = InputBox("Şifrenizi Yazın", "")
If Yaz_Şifre <> Şifre Then Sheets("[COLOR=blue]AnaSayfa[/COLOR]").Select
[COLOR=red]'Application.Visible = True[/COLOR]
End Sub

Eğer seçtiğiniz sayfaya şifre girmede işlem yapmak istemiyorsanız bu şekilde kalabilir. Fakat seçilen sayfa şifre girmeden görüntü olarak ta gözükmesini istemiyorsanız kırmızı ile işaretli kodların başındaki ' leri silersiniz.

Şifre yanlış yazılırsa AnaSayfa olan sayfa ismine gider. Bu sayfa adını dosyanıza göre değiştirirsiniz..

.

Merhabalar,

Konu baya eskimiş ama tesadüfen bulduğum sitenizde yukarda ki kodu aldım ve kullanıyorum. Kodla alakalı bir sorum olacak yardımcı olabilirmisiniz lütfen.

Şifreli sayfadan başka sayfaya ve yeniden şifreli sayfaya döndüğümde şifre girilmesi gerekiyor.Excel dosyasını ilk açtığımda şifreli sayfanın şifresini bir defa girerek ve Excel dosyasını kapatıncaya kadar başka sayfalarda işlem yapsam dahi şifreli sayfaya tekrar şifre girmeden açık kalması mümkünmüdür? Kullandğım kod aşağıdadır.

Private Sub Worksheet_Activate()
Application.Visible = False
Şifre = "9589"
Yaz_Şifre = InputBox("Şifrenizi Yazın", "")
If Yaz_Şifre <> Şifre Then Sheets("Sayfa20").Select
Application.Visible = True
End Sub

 

[mehmettekeli]

Hocam bu kodu kullandım ilk kodu çok güzel ama sıkıntım şu şifreyi yazıyorum ne yazdığım gözüküyor şifre gizlenmiyor onun bir çöüzümü varmı şifremi girerken şifrem gözükmesin

 

[Korhan Ayhan]

Linki inceleyiniz.

http://www.excel.web.tr/f48/sifreyi-seklinde-gostermek-t131769.html