VBA-Beispiel 076
mail schreiben
mail schreiben

mit VBA Tabellen ausblenden und verstecken

Mit VBA alle Tabellen bis auf Tabelle1 ausblenden. Die so versteckten Tabellen können dann nicht mehr über Format / Blatt / Einblenden eingeblendet werden.
Sub Tabellen_ausblenden()
Dim wks As Worksheet

For Each wks In ThisWorkbook.Worksheets
  If Not wks.Name = "Tabelle1" Then
    wks.Visible = xlVeryHidden
  End If
Next wks

End Sub


Sub Tabellen_einblenden()
Dim wks As Worksheet

For Each wks In ThisWorkbook.Worksheets
  If Not wks.Name = "Tabelle1" Then
    wks.Visible = True
  End If
Next wks

End Sub

Download:   vba076.zip