Sayfa İsimlerini Şifreli Gizleme

[horozmen90]

Merhaba

Excel'de Sayfa ismlerini Dosya - Seçenekler - Gelişmiş bölümünden gizleyebliyorum.

Ancak
Sayfa isimlerini şifreli olarak gizlemek, gizlenen sayfaları şifreli olarak göstermek mümkünmüdür.

Yada Sayfa isimlerini şifreli olarak gizleyen(Şifreli olarak gösteren) bir makro oluşturmak mümkünmüdür.

Şimdiden yardımlarınıza teşekkür ederim.

 

[ynmcan]

Merhaba

Excel'de Sayfa ismlerini Dosya - Seçenekler - Gelişmiş bölümünden gizleyebliyorum.

Ancak
Sayfa isimlerini şifreli olarak gizlemek, gizlenen sayfaları şifreli olarak göstermek mümkünmüdür.

Yada Sayfa isimlerini şifreli olarak gizleyen(Şifreli olarak gösteren) bir makro oluşturmak mümkünmüdür.

Şimdiden yardımlarınıza teşekkür ederim.

Syn. Horozmen90;
Ekteki dörnek dosyayı inceleyin.

 

[horozmen90]

Teşekkür ederim.
Ancak, Ben sayfaları gizlemek istemiyorum.
Sadece Sayfa isimlerini (Sayfa Sekmelerini) şifreli gizlemek istiyorum.

Normalda bu işlemi Dosya - Seçenekler - Gelişmiş - Sayfa Sekmelerini Göster bölümündeki
onay işaretini kaldırarak yapıyorum.

Ancak aynı işlemi bilen kullanıcı bu bölüme giderek tekrar sayfaları görüntüleyebiliyor.
Sayfa isimlerini (Sayfa Sekmelerini) şifreli olarak gizlemek ve tekrar göstermek mümkünmüdür.

 

[mekist]

Merhaba,
Kodları yazabilir misiniz. Sayfaları gizlemek istiyorum. Açılmak istendiğinde şifre sormasını nasıl sağlayabiliriz.

Syn. Horozmen90;
Ekteki dörnek dosyayı inceleyin.

 

[antonio]

Teşekkür ederim.
Ancak, Ben sayfaları gizlemek istemiyorum.
Sadece Sayfa isimlerini (Sayfa Sekmelerini) şifreli gizlemek istiyorum.

Normalda bu işlemi Dosya - Seçenekler - Gelişmiş - Sayfa Sekmelerini Göster bölümündeki
onay işaretini kaldırarak yapıyorum.

Ancak aynı işlemi bilen kullanıcı bu bölüme giderek tekrar sayfaları görüntüleyebiliyor.
Sayfa isimlerini (Sayfa Sekmelerini) şifreli olarak gizlemek ve tekrar göstermek mümkünmüdür.

Sub gizle()
    ActiveWindow.DisplayWorkbookTabs = False
End Sub

Sub göster()
    ActiveWindow.DisplayWorkbookTabs = True
End Sub

 

[muygun]

Merhaba

Excel'de Sayfa ismlerini Dosya - Seçenekler - Gelişmiş bölümünden gizleyebliyorum.

Ancak
Sayfa isimlerini şifreli olarak gizlemek, gizlenen sayfaları şifreli olarak göstermek mümkünmüdür.

Yada Sayfa isimlerini şifreli olarak gizleyen(Şifreli olarak gösteren) bir makro oluşturmak mümkünmüdür.

Şimdiden yardımlarınıza teşekkür ederim.

Merhaba;
Alternatif:
Sayfa2 için gizle-göster uygulamasını siz kendi sayfalarınıza uyarlayın.
Dosyanızda bir distribitör sayfanız (ana) olsun. (dosyada ana ve Sayfa2 adlı sayfalar var.)
Bu sayfada (ana) bir buton oluşturun.

Sayfanın (Sayfa2) kod kısmına;

Private Sub Worksheet_Deactivate()
Sheets("Sayfa2").Visible = xlVeryHidden
End Sub

Kodlarını yerleştirin (bu kodlar sayfadan çıkışta sayfanın gizli olmasını sağlar.)

Dosyanın ThisWorkbook kısmına;

Private Sub Workbook_Open()
ThisWorkbook.Worksheets("ana").Activate
Sheets("Sayfa2").Visible = xlVeryHidden
End Sub

Kodlarını yerleştirin (bu kodlar açılışta ana sayfasının başlangıç sayfası olmasını ve Sayfa2 nin gizli olmasını sağlar.)

Bir modül açarak kod kısmına;

Sub Sayfa2_şifre()
sifre = InputBox("Şifre Giriniz", "Şifre Giriş")
If sifre = "bir" Or sifre = "1" Or sifre = "b" Or sifre = "B" Then
Sheets("Sayfa2").Visible = True
MsgBox "Sayfa2 sayfası açıldı."
Else
MsgBox "Şifreniz Doğru Değildir"
Exit Sub
End If
End Sub

Kodlarını yerleştirin ve ana sayfasındaki butona bağlayın.(bu kodlar butonu şifreli açarak işlem yapar. Kodlarda gördüğünüz gibi biden fazla şifre tanımlaması yapabilirsiniz.)

İyi çalışmalar.

 

[r2d21]

Süper , elinize sağlık