Excel sayfalarının tamamen gizlenmesi

[dedenet]

Exceldeki sayfa1, sayfa2... sağ tıklayıp gizleye basarak gizleyip, göstere basarak görünür hale getirebiliyoruz.

Ancak ben gizlenen sayfaların bu şekilde tekrar görünür yapılamamasını istiyorum.

Ben kodla gizleyeceğim, dosyaya giren bir kişi gizli sayfa olduğunu göremeyecek.

Kodla gizlenip kodla görünür hale getirmek istiyorum, mümkün müdür?

 

[Costcost]

Sub hiddensheet()

Sayfa1.Visible = xlSheetVeryHidden
Sayfa2.Visible = xlSheetVeryHidden

End Sub

 

[dedenet]

Cevabınız için teşekkürler.
ekteki dosyada dosyayı kapatırken sayfa2, sayfa3, sayfa 4
sayfalarının gizlenmesi için kod yazdım
ancak kapanırken hata mesajı veriyor.

 

[Costcost]

tırnak içine aldığınız zaman hata vermeyecek.

Sub Auto_Close()
ActiveWorkbook.Save
Sheets("Sayfa2").Visible = xlSheetVeryHidden
Sheets("Sayfa3").Visible = xlSheetVeryHidden
Sheets("Sayfa4").Visible = xlSheetVeryHidden
End Sub

 

[Costcost]

düzeltilmiş hali.

 

[dedenet]

Tekrar teşekkür ederim.
Bir sorum daha olacak.
Dosyayı açınca kullanıcı adı ve şifre girilip
B3 hücresindeki değer 1 olunca,
kapatırken gizlediğim Sayfa2, sayfa3, sayfa4 ün
tekrar görünür olması istiyorum.
bunu nasıl yapabilirim

 

[dedenet]

Sayfalar gizli olsun, göster butonu ile gösterilemesin.
ancak şifreyi doğru girince ve B3 hücresi 1 olunca,
görünmeyen tüm sayfaların görünür olmasını istiyorum

 

[muratgunay48]

tırnak içine aldığınız zaman hata vermeyecek.

Sub Auto_Close()
ActiveWorkbook.Save
Sheets("Sayfa2").Visible = xlSheetVeryHidden
Sheets("Sayfa3").Visible = xlSheetVeryHidden
Sheets("Sayfa4").Visible = xlSheetVeryHidden
End Sub

Emeğinize sağlık hocam.

 

[dedenet]

Murat bey diğer sorum için bir öneriniz var mı

 

[muratgunay48]

Murat bey diğer sorum için bir öneriniz var mı

Sub Un_Hide_All()
Dim sh As Worksheet
For Each sh In Worksheets
sh.Visible = True
Next
End Sub

Bu şekilde yapabilirsiniz. Örnek dosyada Sayfa1'deki butonları istediğiniz hücreye silik, gözükmeyecek vaziyette kod atayabilirsiniz.

 

[1Al2Ver]

Sayın dedenet merhaba,

Alternatif olarak, size uyabileceğini düşündüğüm bir dosya ekliyorum,

Nasıl kullanılacağını, "ANASAYFA" ve "ADMİN" sayfalarına yazdım,

İlk açılışta "ADMİN" isimli kullanıcıyı seçip, şifreye a1 yazıp dosyayı açabilir siniz.

VBA kodları açıktır...

Forumun değerli üyelerinin katkılarıyla hazırlanmış makroların bazı bölümleri, tarafımca düzenlenmiş ve/veya makrolara eklemek yapılmıştır.

Bu vesileyle, emeği geçen üyelerimize bir kez daha teşekkür ederim.

Umarım işinize yarar,

Teşekkür ederim.

 

[dedenet]

teşekkür ederim