Sayfaya geçişi engellemek

[Schero]

Arkadaşlar,
Aşağıdaki makroyu yine buradaki çözümlerden yararlanarak Sayfa2 nin koduna yazdım.
Sayfa2 de herhangi bir hücreye tıkladığınızda yada Sayfa2 de hareket ettiğinizde Sayfa1 e geçiyor.

Benim istediğim: Sayfa2 sekmesi görünsün ama kullanıcı Sayfa2 sekmesine tıkladığında Sayfa2 ye geçmeden Sayfa1 e geçsin. Kullanıcı Sayfa2 yi göremesin. Sayfa2 yi gizlemek istemiyorum.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'If Intersect(Target, Range("A1:IV65536")) Is Nothing Then Exit Sub
Sheets("Sayfa1").Select
End Sub

İlgilenirseniz memnun olurum.
İyi çalışmalar...

 

[Levent Menteşoğlu]

Aşağıdaki kodu Thisworkbook sayfasına kopyalayarak deneyin.
[vb:1:13da783bc9]Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If ActiveSheet.Name = "sayfa1" Then Exit Sub
Sheets("sayfa1").Select
End Sub
[/vb:1:13da783bc9]

 

[Levent Menteşoğlu]

veya ikinci bir alternatif sayfa2 nin kod sayfasına aşağıdaki kodu yazın.

[vb:1:ff771829ab]Private Sub Worksheet_Activate()
Sheets("Sayfa1").Select
End Sub
[/vb:1:ff771829ab]

 

[balca]

Cevap verilmiş ama alternatif olması açısından
Aşağıdaki kodları Sayfa2 nin kod sayfasına kopyalayınız

Dim Passw As Boolean
'
Private Sub Worksheet_Activate()
If Passw = True Then Exit Sub
Sheets(1).Activate
MyQ = Application.InputBox("Þifrenizi girin !", "Kullanıcının Dikkatine !")
If Trim(MyQ) <> " " And MyQ <> False Then
If Trim(LCase(MyQ)) = LCase("balca") Then 'ben şifreyi balca yazdım değiştirebilirsiniz..
MsgBox "Þifre onaylandı !"
Passw = True
Sheets("Sayfa2").Activate
Else
Sheets(1).Activate
MsgBox "Geçersiz şifre !"
End If
Exit Sub
End If
MsgBox "Þifreyi girmeden bu sayfada çalışamazsınız !"
Sheets(1).Activate
End Sub
'
Private Sub Worksheet_Deactivate()
Passw = False
End Sub

 

[Schero]

Teşekkürler...
Bu kadar hızlı ve çeşitli cevap beklemiyordum...