Private Sub Workbook_Open()
With Sheets("Tabelle1") 'Namen anpassen
.Unprotect Password:="xxx" 'Passwort anpassen
.Protect DrawingObjects:=True, _
Contents:=True, _
Scenarios:=True, _
AllowInsertingHyperlinks:=True, _
Password:="xxx"
End With
End Sub
mfg Kurt