Habe einige Tabelle mit Benutzer dürfen Bereiche bearbeiten geschützt. In den ungeschützten Teilen
dürfen sie rechnen.
Leider ist das Summensymbol nicht ansprechbar wenn die Tabelle schütze.
Weis jemand warum?
Gruß
Lars
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:C10")) Is Nothing Then
Target.Application.Undo
End If
End Sub
Gruß Gerd
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:H69")) Is Nothing Then
Application.EnableEvents = False
Target.Application.Undo
End If
Application.EnableEvents = True
End Sub
Gruß Gerd
Private Sub Worksheet_Change(ByVal Target As Range)
If Tabelle3.Range("A1")= "Lars" then Exit Sub
If Not Intersect(Target, Range("A1:H69")) Is Nothing Then
Application.EnableEvents = False
Target.Application.Undo
End If
Application.EnableEvents = True
End Sub
Gruß Gerd
Private Sub Worksheet_Change(ByVal Target As Range)
If Worksheets("Tabelle1").Protect Then
Application.CommandBars("Standard").Controls("AutoSumme").Enabled = True
End If
End Sub
Gruß
Lars
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Zelle As Range
For Each Zelle In Target
If Zelle.Locked Then Me.Protect ("") : Exit Sub
Next
Me.Unprotect("")
End Sub
Gruß Gerd