Office: Intelligente Tabelle trotz Blattschutz

TottiToad · 13. Oktober 2019

Hallo,

leider ist mir bewusst, das es mein Problem schon länger gibt und es viele Einträge im Netzt dazu gibt ... Jedoch irgendwie keine Wirklich Lösung, oder ?

Es geht darum, das ich eine intelligente Tabelle nutze, die ich mit einem Blattschutz versehen will.
Es soll aber trotzdem eine neue formatierte Zeile eingefügt werden, sobald ich dort einen neuen Eintrag erstelle.

Ist dies mittels VBA lösbar ? Wie löst ihr das ?

Grüße & Danke vorab
Torsten

P.S.: Nutze Office 360 aufm Mac

:)

Mase · 15. Oktober 2019

Hi,

genügen da Stichworte oder suchst Du passende VBA-Zeilen?

Vorschlag:

[*]Worksheet_Change()-Event

[*].DataBodyRange

[*]Intersect

[*]Target

Flotter Feger · 15. Oktober 2019

Hallo,

sogar mein nicht vorhandenes Englisch findet da etwas ... ob das aber auf dem Mac geht ... ???

https://answers.microsoft.com/en-us/...5-98df8345db5d

https://www.extendoffice.com/documen...xpandable.html

https://www.excel-first.com/autoexpa...tected-sheets/

Per API kann frau die TAB-Taste abfangen ... aber API und MAC ... nicht wirklich !

Sabina

TottiToad · 15. Oktober 2019

Hi,

Danke schon mal für die Links und Stichwörter ... hab da die Nacht schon mal nen bisschen durchstöbert.

Da ich nicht wirklich fit bin in Programmierung und VBA wären natürlich passende VBA Zeilen super.
Ich versuch mir so immer was zu "basteln", wobei ich davon meist nur die hälfte verstehe *wink.gif*

Ich hab da was gefunden, nur irgendwie funktioniert es nur manchmal ?!?! Kann es auch nicht reproduzieren und sagen wann es warum klappt.

Code:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim oListRow As ListRow
Dim n1 As Long, n2 As Long

'Zeilenanzahl Listobjekt
n1 = [Umsatz].Rows.Count
'Spaltenanzahl Listobjekt
n2 = [Umsatz].Columns.Count

'Prüfen, ob Cursor genau eine Zeile unterhalb des ListObjekts steht
If Not (Application.Intersect([meineliste_1].Resize(n1 + 1, n2), Target) Is Nothing) Then
If Target.Locked Then
If ActiveSheet.ProtectContents Then
ActiveSheet.Unprotect "PASSWORD"
'1 neue Zeile an das Listobjekt anhängen
Set oListRow = [Umsatz].ListObject.ListRows.Add
'Zellen entsperren
oListRow.Range.Locked = False
Set oListRow = Nothing
'Blattschutz wieder setzen
ActiveSheet.Protect "PASSWORD"
End If
End If
End If
End Sub

Sub test1()
MsgBox [Umsatz].ListObject.Range.Address

End Sub

Sub test()
'getMoreSpeed True
getMoreSpeed False
End Sub

Sub tt11()

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Jemand ne Idee ?

Grüße & Danke

Luschi · 15. Oktober 2019

Hallo TottiToad,

warum holst Du Dir die Zeilen- und Spaltenanzahl vom Range-Objekt [Umsatz], und stülpst dann diese ermittelten Werte dem Range-Objekt [meineliste_1] über?

fragt sich Luschi
aus klein-Paris

PS: weitere Fragen:
- sind die Zellen unterhalb des ListObjects 'meineliste_1' auch schreibgeschützt?
- wie soll man Werte in 'meineliste_1' eintragen, wenn die Zellen darin schreibgeschützt sind?

Mase · 12. Januar 2021

von Mase

Hi,

genügen da Stichworte oder suchst Du passende VBA-Zeilen?

Vorschlag:

[*]Worksheet_Change()-Event

[*].DataBodyRange

[*]Intersect

[*]Target
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Jemand ne Idee ?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ja, gestern mal folgendes probiert.

Workbook_open() merkt sich die ListObject.Rows.Count in einer Variable
Worksheet_Change() prüft ob .Count Variablenwert.
Das Protect machst raus und verweigerst alle Änderungen in Bereichen per Event. (bin der Meinung in einem Projekt mal was bei Hajo_Zi gesehen zu haben; Stichwort: bestimmte Bereichsänderungen nicht zulassen ->Aber da kann Hajo sicherlich mehr dazu sagen)

TottiToad · 16. Oktober 2019

\@Luschi

Ups da habe ich ein Fehler im kopieren gemacht.

Aber in meiner Datei / Tabelle ist in VBA alles richtig eingetragen.

[meineliste1] ist natürlich auch [Umsatz]

Also RangeObject ist beides [Umsatz]

(liegt daran das im original Code meineliste1 genutzt wurde)

Die Zeilen unterhalb der bestehenden Tabelle habe ich extra beim Blattschutz ausgeschlossen, also bei gesperrt den Hacken weg gemacht.

Grüße & Danke
Torsten

TottiToad · 12. Januar 2021

von Mase

Ja, gestern mal folgendes probiert.

Workbook_open() merkt sich die ListObject.Rows.Count in einer Variable
Worksheet_Change() prüft ob .Count Variablenwert.
Das Protect machst raus und verweigerst alle Änderungen in Bereichen per Event. (bin der Meinung in einem Projekt mal was bei Hajo_Zi gesehen zu haben; Stichwort: bestimmte Bereichsänderungen nicht zulassen ->Aber da kann Hajo sicherlich mehr dazu sagen)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mmmh so richtig habe ich die Nachricht glaube ich nicht verstanden *wink.gif*

Also die Idee ist, eher die Sachen per VBA zu sperren als über den Blattschutz ?

Ich will halt eine Tabelle erstellen, in der die Rechnungen mit Datum Stundenzahl etc eingetragen werden. In dieser kann dann angeben werden ob bezahlt oder nicht.

Wenn bezahlt dann wird der Wert in andere Zelle übergeben.

Soweit alle ja kein Problem.

Jetzt soll es jedoch zum einen nicht möglich sein die Formeln zu verändern. Ebenso sollen nur die Zellen innerhalb der Tabelle "anklickbar" sein.
Alleine schon wegen der Übersichtlichkeit etc.
Und wenn eine neue Rechnung eingetragen wird, soll eine neue Zeile in der Tabelle erstellt werden.

So denn, danke für jede Hilfe
Grüße
Torsten

TottiToad · 17. Oktober 2019

So denn,

nach den Tipps hier und vielen Stunden im Forum und Netz habe ich es gelöst bekommen *wink.gif*

Es lag bei mir vor allem daran, das ich die Zeile unter der Tabelle gesperrt sein musste !

Jedoch habe ich noch ein Problem, bzw Frage ?!?!

Wenn ich das Blatt sperre und die gesperrten Zellen auswählbar sind, klappt alles bestens.
Ich möchte aber dass die gesperrten Zellen nicht auswählbar sind ! Also nur die Zellen innerhalb der Tabelle.

Ich muss aber für den VBA Code auf die Zelle unterhalb der Tabelle, damit die Tabelle erweitert wird !

Kann man das irgendwie lösen ?

Hier noch der Code:

Code:

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

ActiveCell.Value = "ü"

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Sheets("settings").Range("Formelpflege") = "Nein" Then
If Target.Cells(1).HasFormula Then
Target.Offset(0, 1).Select
Else
If Target.Row > 6 And Target.Column = 16 And Cells(Target.Row, 1) "" Then
Target.Offset(0, -1).Select
End If
End If
End If

Dim oListRow As ListRow
Dim n1 As Long, n2 As Long

'Zeilenanzahl Listobjekt
n1 = [Umsatz_2019].Rows.Count
'Spaltenanzahl Listobjekt
n2 = [Umsatz_2019].Columns.Count

'Prüfen, ob Cursor genau eine Zeile unterhalb des ListObjekts steht
If Not (Application.Intersect([Umsatz_2019].Resize(n1 + 1, n2), Target) Is Nothing) Then
If Target.Locked Then
If ActiveSheet.ProtectContents Then
ActiveSheet.Unprotect "password"
'1 neue Zeile an das Listobjekt anhängen
Set oListRow = [Umsatz_2019].ListObject.ListRows.Add
'Zellen entsperren
oListRow.Range.Locked = False
Set oListRow = Nothing
'Blattschutz wieder setzen
ActiveSheet.Protect "password"
End If
End If
End If
End Sub

Sub test1()
MsgBox [Umsatz_2019].ListObject.Range.Address

End Sub

Sub test()
'getMoreSpeed True
getMoreSpeed False
End Sub

Sub tt11()

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße & Danke
Torsten

Office: Intelligente Tabelle trotz Blattschutz

Intelligente Tabelle trotz Blattschutz

Intelligente Tabelle trotz Blattschutz

Intelligente Tabelle trotz Blattschutz

Intelligente Tabelle trotz Blattschutz

Intelligente Tabelle trotz Blattschutz - Similar Threads - Intelligente Tabelle trotz

Bedingte Formatierung funktioniert nicht

VBD Daten aus einer "intelligenten" Tabelle in einer anderen "intelligenten" Tabelle archivieren

Fehler in intelligenter Tabelle

Daten in intelligenter Tabelle updaten

Intelligente Tabelle erweitern trotz Blattschutz

Index/Aggregat in Intelligente Tabelle

Benutzerdefiniertes (Monats-)Format bei intelligenten Tabellen nicht möglich?