Sekmeleri kilitleme

[saydn]

Merhaba arkadaşlar, çalışma sayfamda bulunan sayfa sekmelerinin görünmesini ama kilitli olmasını istiyorum yani sayfa sekme içeriklerinin görünmemesi gerekiyor bunun için nasıl bir kod kullanabilirim.

 

[Ayhan Ercan]

Merhaba

Ek dosyayı inceleyiniz...
İşinizi görür umarım...

Ana sayfa hariç her sayfaya ;

Private Sub Worksheet_Activate()
Sheets(1).Select
MsgBox "ANA SAYFA haricindeki sayfaları göremezsiniz.", vbCritical, "UYARI"
End Sub

 

[Necdet]

Merhaba,

Kullanıcı adı kontrollü olarak şöyle olabilir.

Aşağıdaki kodların ThisWorkbook'un kod bölümünde olmalı.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name <> "ANA SAYFA" And Environ("UserName") <> "[B][COLOR=red]necdet[/COLOR][/B]" Then
    Sheets("ANA SAYFA").Select
End If
End Sub

 

[saydn]

Yardımlarınız için çok teşekkürederim Sn.Ercan, Sn.Yeşertener, affınıza sığınarak bir sorum daha olacak, sadece ana sayfayı kilitleyip yani kullnıcılara kapalı hale getirip diğer sayfaların açık hale gelmesini nasıl sağlayabiliriz.

 

[Necdet]

Merhaba,

Aşağıdaki kodlar yine dosyanın ThisWorkbook'un kod bölümünde olmalı.

Örnekte necdet kullanıcısından başka kimse ANA SAYFA'a erişemez.

Private Sub Workbook_Open()
Sheets(2).Select
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name = "ANA SAYFA" And Environ("UserName") <> "[B][COLOR=red]necdet[/COLOR][/B]" Then
    Sheets(2).Select
End If
End Sub

 

[haso_excel]

Merhaba Necdet bey,

Private Sub Workbook_Open()
Sheets(2).Select
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name = "ANA SAYFA" And Environ("UserName") <> "necdet" Then
Sheets(2).Select
MsgBox "NECDET KULLANICISINDAN BAŞKASI ANA SAYFAYA GIREMEZ"
End If
End Sub

koda msgbox ekledim.
Peki bir testbox necdet gırdıkten sonra anasayfaya girmesini sağlamak mümkün mü? VBA editörüne girmeden

 

[Ayhan Ercan]

....VBA editörüne girmeden

Bu nasıl olacak....????????????? Kod yazmadanmı???

 

[haso_excel]

Kod da nejdet haricindekiler ana sayfaya giremiyor. msgboxtan sonra bir textbox ın içine yazacağın bir kullanıcı ismini, mesela "hüseyin" i gidip koddaki "nejdet" i hüseyin yap gibi

 

[saydn]

Yardımlarınız için tekrar çok teşekkürediyorum Sn.Yeşertener

 

[baydeniro]

Merhaba, kodlar harika, teşekkürler. Ancak dosyayı açarken USER giriş kodları da eklense daha yararlı olurdu !!!

 

[Necdet]

Yardımlarınız için tekrar çok teşekkürediyorum Sn.Yeşertener

Güle güle kullanınız.