sayfa göster butonu hata

[byysmn]

arkadaşlar kolay gelsin
çalışma kitabımda 14 sayfa var. anasyfada sayfalır ismini yazdığım butonlar var butonlarlada aşağıdaki gib kod yazıyor. ama sorun şu birtanesi aç dediğimde bütün gizli sayfaları açıyor. oysa sadece kendi sayfasını açması gerekiyor. bunu nasıl çözeriz

Sub syf2grup()
sor = InputBox("Şifreyi girin.", "Onay", "")
If sor = 811 Then
For Each sh In ThisWorkbook.Worksheets
If Not sh.Name = "sayfa1" Then sh.Visible = True
Next sh

End If
End Sub

 

[Orion1]

sheets("sayfa1").Visible = True

 

[byysmn]

hocam bu kod nedir ve nereye yazacağım

 

[Orion1]

hocam bu kod nedir ve nereye yazacağım

Nerede Kullanacaksanız oraya yazın.Size kalmış.İster butona ister labele ister image .Onu ben bilemem.İster bir modüle prosedür olarak yaz sonra call ile çağır.Soruyu siz sorduğunuza göre nereye yazacağınızıda siz bilirsiniz.