Thank you GOrd and Alan!

I could use everything and it works:D

But: "
Private Sub Workbook_Open()
Dim n As Single
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If Not ws.Name = "Ark1" Then
ws.Visible = xlVeryHidden
End If
Next ws
End Sub "

didn't work out for me.

I'm done with my sheet now. The only problem I have is how to secure that
all the information is saved, when each person opens the file form the server.

Ideas are very welcome!


I thank you once again, great support!