Meine Datei ist Freigegeben (Multi-User) und über andere Makros werden Tabellenblätter generiert.
Einen vergleichbaren Hinweis gibt es schon, aber mit diesem komme ich nicht weiter:
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
MsgBox "Sie haben keine Berechtigung", vbOKOnly + vbExclamation, "Hinweis"
Sh.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Dabei wird zuerst das neue Blatt angelegt und versucht es wieder zu löschen. Dies geht dann allerdings aufgrund Multi-User-Fähigkeit nicht mehr.
Ich möchte generell verhindern, dass die verschiedenen Anwender über normale Befehle oder Mouseclicks ein neues Blatt anlegen können.
Kennt einer eine Lösung dazu?