Sayfa sekme koruma işlemi

[ReBiwAr]

Arkadaşlar merhaba

With ActiveWindow
.DisplayWorkbookTabs = Not .DisplayWorkbookTabs
End With

kodu ile sekmeleri koruyorum ancak excel ayarları menüsünden (excel seçenekleri-->gelişmiş-->sekmeleri göster) sekmeleri görebiliyoruz.

Bunu engellemenin bir yolu var mı?

Acil yardımınıza ihtiyacım var.

Teşekkürler

 

[ReBiwAr]

Arkadaşlar belki kurallara aykırıdır ama yok mu fikir belirtecek?

 

[leumruk]

Sub Gizle()
For i = 2 To Worksheets.Count
ThisWorkbook.Sheets(i).Visible = xlSheetVeryHidden
Next i
End Sub

Sub Aç()
Application.ScreenUpdating = False
Dim i As Integer
For i = 2 To Worksheets.Count
ThisWorkbook.Sheets(i).Visible = xlSheetVisible
Next i
End Sub

Selamlar,
1. kodla sayfaları gizlersiniz. 2. kodla da yeniden gösterebilirsiniz.

 

[ReBiwAr]

Çok teşekkürler hocam ellerinize, beyninize ve klavyenize sağlık

 

[ozgretmen]

Arkadaşlar merhaba
kodu ile sekmeleri koruyorum ancak excel ayarları menüsünden (excel seçenekleri-->gelişmiş-->sekmeleri göster) sekmeleri görebiliyoruz.
Bunu engellemenin bir yolu var mı?
Acil yardımınıza ihtiyacım var.
Teşekkürler

Alternatif olarak ; aşağıdaki kod yardımıyla açılışta sistem çubuğu gizlenir , çıkışta gösterilir.Dolayısıyla kullanıcı sekmeleri göster bölümüne ulaşamaz.Saygılar...

Sub Auto_Open()
    On Error GoTo hata
    Set EskiMenu = CommandBars("Worksheet Menu Bar").Controls
    For Each MenuOgesi In EskiMenu
        MenuOgesi.Visible = False
    Next
hata:
End Sub
Sub Auto_Close()
    On Error Resume Next
    Set EskiMenu = CommandBars("Worksheet Menu Bar").Controls
    For Each MenuOgesi In EskiMenu
        MenuOgesi.Visible = True
    Next
End Sub