Soru Sayfaya Şartlı Koruma Koymak

[bulentkars]

Merhaba Arkadaşlar,

Ürünler Sayfasına kullanıcı engeli koymak istiyorum,
Örneğin Ürünler sayfasına Application.Username "Bülent" ve "Ahmet"
sayfa girdiklerinde parola açılsın, haricinde girenler olursa "123" sayfa koruması koysun istiyorum, Yardımcı olabilirseniz sevinirim.

 

[Ömer]

Merhaba,

Ürünler sayfası kod bölümüne yapıştırınız.

Private Sub Worksheet_Activate()
    ActiveSheet.Protect "123"
    Select Case Application.UserName
        Case "Bülent", "Ahmet"
        ActiveSheet.Unprotect "123"
    End Select
End Sub

 

[bulentkars]

Ömer Bey Merhaba,

Kod sayfasına yapıştırdım, kod çalışmıyor, yani kullanıcı adı zeki olan birinin makinasında ürünler sayfasına koruma koymuyor,

 

[Ömer]

Dosya açıldığında direk "Ürünler" sayfası açıldığındandır.
Eski kodları silmeyin, ilave olarak aşağıdaki kodları "Buçalışmakitabı" kod sayfasına yapıştırınız.

Private Sub Workbook_Open()
    If ActiveSheet.Name = "Ürünler" Then
        ActiveSheet.Protect "123"
        Select Case Application.UserName
            Case "Bülent", "Ahmet"
            ActiveSheet.Unprotect "123"
        End Select
    End If
End Sub

 

[bulentkars]

Ömer bey,

Çok teşekkür ederim. Elinize sağlık..