VBA Schutz/Teilschutz/Optionen
05.12.2016 10:36:27
Csf
ich habe ein kleines Problem, denn ich versuche mich an einer Option um eine Tabelle, wo bestimmte Bereiche die Formeln geschützt sein sollen.
Der als Tabelle formatierte Bereich soll dennoch vom Enduser erweiterbar sein.
Ich bin nun schon se weit gekommen, dass die Tabelle am Ende mit der Tab Taste erweitert wird und der Schutz wieder gesetzt wird.
Jedoch verliere ich dadurch die vorher eingestellten Optionen um Zeilen einzufügen, zu löschen und den Autofilter zu verwenden.
Momentan habe ich in dieser Arbeitsmappe folgenden code:
' DieseArbeitsmappe
Private Sub Workbook_Activate()
If ActiveSheet.Name = "OEE" Then Application.OnKey "{TAB}", "ListTab"
End Sub
Private Sub Workbook_Deactivate()
Application.OnKey "{TAB}"
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "OEE" Then Application.OnKey "{TAB}", "ListTab"
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Application.OnKey "{TAB}"
End Sub
Und das Modul:'Standardmodul
Public Sub ListTab()
Application.ScreenUpdating = False
With ActiveSheet.ListObjects(1)
If ActiveCell.Address = Cells(.ListRows.Count + 1, _
.ListColumns.Count).Address Then
ActiveSheet.Unprotect "Cherry"
.ListRows.Add
ActiveSheet.Protect "Cherry"
Cells(.ListRows.Count + 1, 1).Select
Else
ActiveCell.Offset(0, 1).Select
End If
End With
Application.ScreenUpdating = True
End Sub
Ich hoffe Ihr könnt mir hier auf die Sprünge helfen, da ich in VBA noch recht neu bin.Vielen Dank im Voraus.