SAYFA 1'DEN SAYFA 2'YE GEÇİŞ

[ayucel1982]

SAYFA 1'DEN SAYFA 2'YE GEÇÝÞ

Merhaba arkadaşlar,
Benim sorunum kendi yaptığım bir excel çalışmasında kullanıcının Sayfa1'den Sayfa2'ye geçerken şifreli geçmesini istiyorum.
Yani Kullanıcı Sayfa1'de iken Sayfa2 ye tıkladığında (Yalnız butonla değil normal SAYFA SEKMESİNDEN) şifre sorulmasını eğer girdiği şifre doğru ise Sayfa2'ye geçecek, yanlış ise Mesaj Verecek (Girdiğiniz Þifre Yanlış Gibi )

Yardımcı olursanız sevinirim.

 

[xxrt]

_____Merhaba,Sayfa2'nin üzerinde sağ tuş ile Kod Görüntüle diyerek aşağıdaki kodları Kod Sayfasına yazın.Þifre 1 Olarak ayarlandı siz değişitrin.Kullanıcı 3 Defa Yanlış Þifre Girerse Kitap Kapanacak._____________________________________________________________________

Private Sub Worksheet_Activate()
Application.Visible = False'Çalışma Kitabını Mimize eder._____//xxrt\\_____
Static sayac As Integer
Do
If sayac = 3 Then
MsgBox"Hatalı Þifre Girdiniz."
ThisWorkbook.Close False
Else
If InputBox("Þifreyi girin") = "1" Then
GoTo devam
Else
sayac = sayac + 1
End If
End If
Loop
devam:
Application.Visible = True'Çalışma Sayfasını,Dolayısı ile Sayfa2'yi Gösterir.
Sheets("Sayfa2").Select
End Sub

Bu Kodlarıda Module Yazın.

Sub Auto_Close()
Application.Visible = True
End Sub