makro atama

[zahitsen]

Arkadaşlar makro atadığım nesne gizli sayfayı açıyor fakat sayfaya geri döndüğünde sayfa gizli hale dönmüyür makroya ne eklemem lazım.

Sub Metinkutusu1_Tıklat()
Set S1 = Sheets("7139-BM")
S1.VİSİBLE = True


End Sub

 

[asi_kral]

Merhaba
Sayfanın kod bölümüne kopyalayın ve deneyin.

Option Explicit
Private Sub Worksheet_Activate()
Dim S1 As Worksheet
Set S1 = Sheets("7139-BM")
S1.Visible = False
End Sub