Aktionen verbieten OHNE Blattschutz
Ralf
ich möchte in Excel das Einfügen oder Löschen von Zeilen und Spalten
verbieten, wobei ich aber ohne den Battschutz auskommen möchte.
Dazu habe ich schon viiiiiiel gesucht, u.a. im Archiv. Am nähesten kam
dabei dieser Code ( der auch supergut funktioniert ), einziger Nachteil :
es betrifft nur Spalte A. Ich hätte aber gerne, daß das Verbot für alle
Spalten und alle Zeilen gilt. Hat vielleicht jemand eine Idee, wie ich den
Code anpassen müßte ?
Viele :-) Grüße aus dem Teutoburger Wald
Ralf
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
If Target.Column = 1 And InStr(Target.Address, ":") > 0 Then
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
MsgBox "Diese Spalte sollte nicht gelöscht werden!" _
, vbInformation + vbOKOnly
End If
End Sub
Anzeige