Tabblad verbergen maar VBA functie behouden

[Groen13]

In het Excel bestand kan op het tabblad "absent" een naam ingevuld worden, er wordt dan automatische een nieuw tabblad aangemaakt met deze naam. Nu wil ik graag het tabblad "Lay-out" verbergen maar wel zo dat er telkens nieuwe bladen bij blijven komen. Als je via tabblad verbergen kiest of in VBA visible XLsheetveryhidden selecteert komt er geen nieuw tabblad meer bij maar verandert het tabblad "absent" in de nieuwe naam... wie kan iets in de VBA veranderen zodat het tabblad Lay-out "verborgen" kan worden en telkens nieuwe bladen bij blijven komen?

 

[Warme bakkertje]

Je zal steeds het tabblad Layout tijdelijk zichtbaar moeten maken om te kopieëren en daarna terug verbergen.
Hierover is er meer dan voldoende code te vinden op dit of een ander forum.

 

[Groen13]

Hoi Rudi, dank je voor je snelle reactie! het gaat er juist om dat andere gebruikers dit blad niet kunnen verwijderen en de opmaak niet kunnen wijzigen

 

[Warme bakkertje]

Lees nog eens zeer aandachtig mijn antwoord door.
Tijdelijk = zichtbaar maken, kopieëren, verbergen.
Dit gaat zo snel in een macro dat de gebruiker het niet eens merkt.

 

[Groen13]

Beste mensen de afgelopen tijd overal gekeken maar alleen maar deel oplossingen gezien... Wie kan voor het voerbeeld bestand bewerken zodat deze: Tijdelijk = zichtbaar maken, kopieëren, verbergen. en dan dus een tabblad heeft?

B.v.d.
Erik

 

[Warme bakkertje]

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim sh       As Worksheet
  If Not Intersect(Target, Columns(12)) Is Nothing Then
  Application.ScreenUpdating = False
  If Target.Count > 1 Then Exit Sub
  If Target <> "" Then
      On Error Resume Next
      Set sh = Sheets(Target.Value)
      If sh Is Nothing Then
          With Sheets("Lay-out")
              .Visible = -1
              .Copy after:=Sheets(Sheets.Count)
              ActiveSheet.Name = Target.Value
              .Visible = 2
          End With
      Else
          MsgBox "Het werkblad " & Target.Value & " bestaat reeds!" & vbLf & "FATAL ERROR"
      End If
      sh = Nothing
  End If
  End If
  Application.ScreenUpdating = True
End Sub

 

[Groen13]

Hoi Rudi, Bedankt voor je code! deze werkt inderdaad prima