Sayfa Gösteri Engelleme

[askm]

Kolay gelsin.
2 tane sayfam var. 2.Sayfayı sadece ali kullanıcısı açtığı zaman açsın. Başka biri menuden göster deyip açmak istese bile izin vermesin.Mümkün olabilir mi.

 

[Necdet]

Mümkündür.

 

[askm]

Yolu nasıl. Ya da kodları nedir.

 

[Necdet]

Merhaba,

Önce Çalışma kitabını korumalısınız. Çalışma kitabının şifresinin "Sifre" olduğu varsayılarak aşağıdaki kodları BuÇalışmaKitabı'nın kod bölümüne kopyalayıp deneyiniz.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
        ThisWorkbook.Unprotect "Sifre"
        Sheets("Sayfa2").Visible = False
        ThisWorkbook.Protect "Sifre"
End Sub

Private Sub Workbook_Open()

    If Environ("UserName") = "ali" Then
        ThisWorkbook.Unprotect "Sifre"
        Sheets("Sayfa2").Visible = True
        ThisWorkbook.Protect "Sifre"
    End If
    
End Sub

 

[askm]

Bende şöyle düşünmüştüm. Ama denemedim.
Private Sub Worksheet_Activate()
Dim s1 As Worksheet
Set s1 = ThisWorkbook.Sheets("Log")

If CreateObject("WScript.Network").UserName = "ali" Then
s1.Visible = True
Else
s1.Visible = False
End If
End Sub

 

[Necdet]

Merhaba,

Kitabı korumazsanız sayfayı saklamanın bir anlamı olmaz.

 

[askm]

Eyvallah teşekkürler.