Şifreli Giriş Sayfası

[excallator]

Herkese Merhabalar;

8-10 sayfadan oluşan çalışma kitabımız var. Bir tane ana sayfa ekleyip ana sayfa için şifre gireyim ve ana sayfa gouksun bu sırada diğer sayfalar gözükmesin. Ana sayfaya bir menu oluşturmak istiyorum her menu seçeneğibir sayfayı açsın istiyorum. Yine secim dışında kalan sayfalar gözükmesin istiyorum.

Örneğin

Menu Şifreyle görüntülensin "Menu Combo box yada button olabilir"

1. Bilgi Girişi "Sadece 1.sayfa gozuksün diğerleri gizlensin"
2. Rapor"Sadece 2.sayfa gozuksün diğerleri gizlensin"
3. Yıllık Toplamlar "Sadece 3.sayfa gozuksün diğerleri gizlensin"
4. Veri Tabanı "Sadece 4.sayfa gozuksün diğerleri gizlensin"

İlgilenen arkadaşlara teşekkurler

 

[katip16487]

İnşallah işinizi görür.

Anasayfa'ya şifre koymanızın bir önemi olmayacağını düşünmekteyim.

VBA kod sayfasında yer alan Bu Çalışma Kitabı bölümüne

Private Sub Workbook_Open()
Application.DisplayFullScreen = True
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If Sh.Name <> "anasayfa" Then Sh.Visible = False
End Sub

Kodlarını eklediğiniz takdirde TAM EKRAN şeklinde ve her defasında ANASAYFA açılacaktır.

ANASAYFA'da yer alan BUTON'lara tıkladığnıızda ilgili sayfaya gidecek, ilgili sayfadan tekrar ANASAYFA dediğinizde ise açık olan sayfayı kapatacaktır.

İşinize yaraması dileği ile, kolay gelsin...

 

[anthraxx02]

Herkese Merhabalar;

8-10 sayfadan oluşan çalışma kitabımız var. Bir tane ana sayfa ekleyip ana sayfa için şifre gireyim ve ana sayfa gouksun bu sırada diğer sayfalar gözükmesin. Ana sayfaya bir menu oluşturmak istiyorum her menu seçeneğibir sayfayı açsın istiyorum. Yine secim dışında kalan sayfalar gözükmesin istiyorum.

Örneğin

Menu Şifreyle görüntülensin "Menu Combo box yada button olabilir"

1. Bilgi Girişi "Sadece 1.sayfa gozuksün diğerleri gizlensin"
2. Rapor"Sadece 2.sayfa gozuksün diğerleri gizlensin"
3. Yıllık Toplamlar "Sadece 3.sayfa gozuksün diğerleri gizlensin"
4. Veri Tabanı "Sadece 4.sayfa gozuksün diğerleri gizlensin"

İlgilenen arkadaşlara teşekkurler

çalışma kitabının girişine login form yapabilirsin giriş yapmadan hiç biri açılmaz yardımcı olurum dosyayı link atarsan

 

[relaxim]

Merhaba, aşağıdaki linki inceleyebilirsiniz.

Kullanıcı Tanımlama

Merhaba, kullandığım excel çalışma kitabını açılışta şifre ile kullanıcıya göre açılmasını istiyorum. Admin her şeyi görüp yapabilecek. Kullanıcı sadece 3 sayfayı (ör:Sayfa2,Sayfa5, sayfa7) görmeyecek, diğer sayfaları görüp her şeyi yapabilecek. Örnek kod yazarsanız kendi çalışmama...

www.excel.web.tr

 

[excallator]

Merhaba;
Üşenmeden Cevap veren arkadaşalara çok teşekkürler.
Cevaplar ve araştırmalarım sonucunda söylenenleri harmanlayarak ana sayfaya ilk girişte çalışacak bir userform koydum ve şifre işlemini bunun üzerinden hallettim. doğru şifreyi ikinci bir userform'a bağladım. Burdada ilgili sayfalar için click butonlar yerleştirdim. Btonların arkasınada sayfaların visible değişkenlerini tanımladım. Hersayfaya da ana menu butonu koydum anasayfaya userform2 açılacak şekilde döndürdüm.Aynı zamanda ilgili sayfayıda veryhidden yapmayıda ihmal etmedim.
Cevap veren arkadaşlara yeniden çok teşekkür ederim.

 

[spacebar]

Köprü bulunan ana sayfa haricindeki sayfaları gizleme

Merhaba, 4 sayfalı bir excel dosyam var. Birinci sayfası ana sayfa ve bu sayfada diğer sayfalara link verilmiş. Ben sadece ana sayfanın görünür olmasını, linklere basılınca gizlenmiş olan sayfanın görünmesini istiyorum. Ancak sağ tıkla--gizle yapınca ana sayfadaki linke tıklamakla sayfa...

www.excel.web.tr

alternatif olarak inceleyebilirsiniz.

 

[excallator]

Aynı konudan devam edeyim istedim.
Sayfalar arası geçiş işlemini

Sayfa1.Visible = xlSheetVisible
Sayfa2.Visible = xlSheetVeryHidden

gibi satırlarla sağlamıştım. gayet güzel çalışıyor. Ancak sayfadaki hücreleride korumak için formullu hucreleri koru dediğimde ve şifre verdiğim de Visible özelliikleri hata veriyor ve çalışmıyor.

Bu noktada ne yapmam gerekir.

Teşekkürler.

 

[spacebar]

Sub ......() satırından sonra
ActiveSheet.Unprotect "şifreyi yazınız "


End Sub dan önce:
ActiveSheet.Protect "şifreyi yazınız "