sayfaya şifre koyma

Katılım
14 Şubat 2006
Mesajlar
710
Excel Vers. ve Dili
2002-TÜRKÇE
Merhabalar
Exeldeki Sayfaya Şifre koymak istiyorum.Sayfaya şifre girilmeden açılmamasını nasıl yaparım.
 

zafer

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
Merhaba

Dosya eklemeyi unutmuşsunuz.
 
Katılım
14 Şubat 2006
Mesajlar
710
Excel Vers. ve Dili
2002-TÜRKÇE
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.
 
Katılım
22 Mart 2005
Mesajlar
847
Excel Vers. ve Dili
Excel-2003 TR.
Altın Üyelik Bitiş Tarihi
29-06-2023
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
 
Katılım
10 Eylül 2005
Mesajlar
132
Excel Vers. ve Dili
Excel 2003 türkçe
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
 
Üst