Tabellenblatt kopieren unterbinden
06.11.2005 23:30:36
Jonny
Mein Problem:
Ich möchte das kopieren der Tabellenblätter unterbinden.
Für das anlegen neuer Tabellenblätter habe ich im Achiv den VBA-Code gefunden.
*****
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
MsgBox "Sie haben keine Berechtigung" & vbLf & _
"neue Tabellenblätter anzulegen!", vbOKOnly + vbExclamation, "Hinweis"
Sh.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
*****
Neue Blätter können damit verhintert werden, aber leider nicht das Kopieren.
Vielleicht könnt ihr mir ja helfen.
Cu Jonny
Anzeige