Sayfa gizleme sorunu

[inowjoin]

gizlenmiş sayfaya butonla link atıyamıyormuyuz hata veriyor denemediğim kod kalmadı
mesela

Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each Worksheet In ActiveWorkbook.Worksheets
If Worksheet.Name <> "Sayfa1" Then
Worksheet.Visible = False
End If
Next
Application.CommandBars("Worksheet Menu Bar").Enabled = True
End Sub

yokmu bunun bir yolu

 

[Levent Menteşoğlu]

Elbette atamayazsınız. Kapalı sayfalarda select, activate gibi komutlar çalışmaz.