Sayfa Seçilemesin

[quesh]

Merhabalar

10 sayfadan oluşan çalıma kitabımda, yalnızca 8 ve 9 numaraları sayfalarımın seçilebilmesini istiyorum, diğer sayfalardan birine geçmek istediğimde daha sayfa açılamadan

Msgbox "Bu sayfayı seçme yetkiniz yoktur", vbcritical

uyarısı vermesini istiyorum. Nasıl yapabilirim ? ve kodu hangi olay kısmına yazmam gerekir? Teşekkürler

 

[Mahir64]

Merhaba
Sayfanın Kod bölümüne

Private Sub Worksheet_Activate()
MsgBox "Bu sayfayı seçme yetkiniz yoktur", vbCritical
End Sub

 

[quesh]

Merhaba
Sayfanın Kod bölümüne

Private Sub Worksheet_Activate()
MsgBox "Bu sayfayı seçme yetkiniz yoktur", vbCritical
End Sub

Teşekkür ederim ancak bu kodu yazdığımda önce sayfayı gösteriyor ardından hata uyarısı ekrana geliyor. yani o sırada hata uyarısına tamam tıklayana kadar arka planda o sayfanın içeriği görünüyor.

 

[Mahir64]

Sayfa görünmemesi için;Sayfaları gizli hale getirmeniz gerekmekte.
Onun dışında görünmemesi yada seçilmemesi sağlanabilir mi tam bir bilgim yok.

 

[quesh]

Ben şöyle bir kod yazdım anca sonsuz döngüye girdi sanırım. Seçilmemesini istemediğim sayfa adı "KAPAK". KAPAK sayfasının kod kısmına yazdım aşağıdaki kodu. Kapak sayfasına tıklandığı an KAPAK sayfasındaki içerik görünmesin diye direk KROKİ sayfasını seçtiriyorum. ardından kod aşağıdaki gibidir. şifreyi yazıp entera bastığımda döngü tekrar başa gidiyor. Bu konuda fikriniz var mı acaba ?

Private Sub Worksheet_Activate()
Sheets("KROKİ").Select
    Dim soru
        soru = MsgBox("Yetkili Misiniz?", vbYesNo, "M U R A T   H.")
        If soru = vbYes Then
        sifre = InputBox("Lütfen Şifreyi girin. Kalan Deneme:3", "M U R A T  H.")
            If sifre = "mh" Then
            Sheets("KAPAK").Select
            Exit Sub
            Else
            soru = vbNo
            Sheets("KROKİ").Select
            End If
        End If
End Sub

 

[uzmanamele]

merhaba

mesaj görüntülenmeden olmaz mı*

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name = "gizli" Then
Sheets("sayfa1").Select
End If
End Sub

 

[quesh]

Merhaba. sayfayı yalnızca şifreyi bilenlerin görüntüleyebilmesini istiyorum

 

[Seyit Tiken]

Kodu Kitabın ThisWorkbook bölümüne kopyalayıp, sayfa değerlerini kendinize göre ayarlayın.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Index = 1 Or ActiveSheet.Index = 2 Then
Exit Sub
Else
MsgBox "Bu Sayfaya Giriş Yetkiniz Yok", vbCritical
Sayfa1.Select
End If
End Sub

 

[baydeniro]

Çok teşekkürler, çok yararlı bir kod.

 

[dduygushh]

peki sayfanın görünmesi ama içeriğinin değiştirilememesi için ne yapmak gerekiyor?