Makro in einen Tabellenblatt mit Button schalten?
21.06.2015 14:02:36
Helmut
Hallo liebes Forum
Habe wieder einmal eine für mich komplizierte Frage:
Ich habe hier ein Makro das in einen Tabellenblatt eingefügt ist. Dies überwacht einen gewissen Bereich und gibt bei "Enter" eine Msgbox aus und macht anschließend die letzte Eingabe rückgängig. Sinn der Sache ist, dass niemand eine Veränderung der Datei vornehmen soll / kann. Nun bin ich aber auch betroffen und müsste jedes mal wenn ich als Berechtigter eine Änderung durchführen möchte, den Entwicklermodus aus und wieder einschalten. Meine Frage also: ist es möglich, dies mit einen Togglebutton zu bewerkstelligen?
(Spalte wo sich der Button befinden würde, würde ich ausblenden.)
Besten Dank im voraus.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Set Bereich = Range("AH226:AH260")
If Intersect(Target, Bereich) Is Nothing Then
Else
MsgBox "Sie sind nicht berechtigt," & vbCr & "änderungen am Dienstplan durchzuführen!!!", _
vbOKOnly, "Max Mustermann informiert:"
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
End Sub