Code läuft nicht bei freigegeben
Wolfgang
der nachfolgende Code soll das versehentliche Anlegen von neuen Tabellenblättern verhindern. Er läuft auch grundsätzlich. Allerdings mußte ich nun feststellen, dass er bei freigebener Arbeitsmappe nicht mehr funktioniert - gibt es da evtl. Alternativen oder könnte ich den Code verändern, damit er unter freigegeben auch funktioniert-? Danke schon jetzt wieder für die Rückmeldungen.
Gruß - Wolfgang
'verhindert Anlegen neuer Tabellenblätter
Private Sub Workbook_NewSheet(ByVal Sh As Object)
With Application
.DisplayAlerts = False
Sh.Delete
.DisplayAlerts = True
End With
End Sub