Freigabe der Arbeitsmappe/Blattschutz

[Madness]

Moin, ich bin jetzt eigentlich fertig mit meiner Excel Datei und bin jetzt auf ein Problem gestoßen, welches sich meiner Meinung nach nicht lösen lässt... 

Ich hab eine Excel Datei mir mehreren Seiten, diese würde ich gerne mit einem Blattschutz versehen. Muss diesen Blattschutz aber entweder deaktivieren um dann etwas in der Datenbank hinzufügen zu können oder mit diesem Code arbeiten:

Private Sub Workbook_Open()

Dim wSheet As Worksheet

For Each wSheet In Worksheets

wSheet.Protect Password:="PW", _
UserInterFaceOnly:=True

Next wSheet

End Sub

Mein Problem jetzt ist, dass die Arbeitsmappe am Ende für mehrer Benutzer freigegeben sein soll. Das Problem das ich nun habe ist, dass ich durch die Freigabe keinen Blattschutz aktivieren bzw. deaktivieren kann.

Gibt es da keine Möglichkeit, wie zum Beispiel, dass ich UserInterFaceOnly irgendwo einstellen kann bevor ich die Arbeitsmappe freigebe.

Ich finde leider nichts im Internet, vielleicht bin ich auch nur bisschen dumm und die Lösung liegt genau vor meinen Augen ...

Ich hoffe mir kann jemand helfen und ich habe meine Frage/Problem verständlich formuliert.

LG Madness

[schauan]

Hallöchen,

wenn Du Benutzereingaben in Deinem "Datenbankblatt" vermeiden willst kannst Du das Blatt eventuell ausblenden (xlVeryHidden) und ohne Schutz lassen. Ansonsten hat eine Freigabe immer den Nachteil, das programmtechnisch einiges nicht geht