sayfaya şifre koyma

[ANTALYA 01]

Merhabalar
Exeldeki Sayfaya Şifre koymak istiyorum.Sayfaya şifre girilmeden açılmamasını nasıl yaparım.

 

[zafer]

Merhaba

Dosya eklemeyi unutmuşsunuz.

 

[ANTALYA 01]

E

Merhaba örnek koymadım herhangi bir exel çalışma sayfasında şifre istiyorum.Örnek Sayfa 1 Açılması için Şifre soracak.Şifre girildikten sonra sayfa 1 açılacak şifre yanlış olursa açılmayacak.

 

[Leoncio]

Merhaba;

Şifre konulacak sayfanın kod sayfasına aşağıdaki kodları kopyalayın..
Şifre yanlış olduğunda hangi sayfanın açılmasını istiyorsanız onu değiştirin...



Private Sub Worksheet_Activate()
Application.Visible = False
sifre = "12345"
yazılan_sifre = InputBox("Şifrenizi yazın", "")
If yazılan_sifre <> sifre Then Sheets("ANA SAYFA").Select
Application.Visible = True
End Sub

 

[zafer]

Merhaba

Merhabalar
Exeldeki Sayfaya Şifre koymak istiyorum.Sayfaya şifre girilmeden açılmamasını nasıl yaparım.

"Ekteki" olarak okumuşum Aferdersiniz.

 

[ANTALYA 01]

X

Teşekkür ederim

 

[demhatozcelik]

Merhaba arkadaşlar.

kodları kendi kodlarıma uyarlamak istedim ama yapamadım.
Yedek sayfası gösterilirken şifre soracak. Kodlarımı veriyorum yardımcı olacak arkadaşlara teşekkür ediyorum...


Private Sub CheckBox1_Click()
CheckBox1.Caption = IIf(CheckBox1.Value, "YEDEK GİZLE", "YEDEK GÖSTER")

If CheckBox1 = True Then 'tıklı ise
Sheets("YEDEK").Visible = True

Else 'değil ise

Dim x


Sheets("yedek").Visible = xlVeryHidden
End If
End Sub