(03.09.2022, 18:44)Fennek schrieb: [ -> ]Hallo,
spontan sehe ich 2 Möglichkeiten
- Sheet.Protect
- Prüfen, ob ein Chart existiert
Einfach zu realisieren ist:
Code-Teil des Workbooks:
Code:
Private Sub Workbook_Open()
Dim WS As Worksheet
Set WS = ThisWorkbook.Sheets(1)
WS.Protect , , , , 1
End Sub
Das "UserInterfaceOnly" erlaubt nur Änderungen per VBA.
In einem allgemeinen Modul sollte spezifiziert werden, welche Zellen ein User ändern darf:
Code:
Sub Daten_unprtect()
Range("A9:N9").Locked = False
End Sub
mfg
Moin,
ich bin erfreut wie gut Deine Beispiele funktionieren.
Nur wende ich diese selber an, funktioniert das nicht, lach .....
Der 2. Code, den Du dem Beispiel hinzugefügt hast, ist so simpel und elegant.
Hänge ich den Code(etwas abgeändert) unter den meinem, funktioniert das nicht
Sub Daten_unprtect()
Range("A6:N10").Locked = False
End Sub
In dergezeigten Beispieldatei geht es:
Fragen:
- gibt es verbundene Zellen
- sonstige Sperren
Dieser Code muss einmalig ausgeführt werden: (allgemeines Modul)
Code:
Sub WS_Protect()
Dim WS As Worksheet
Set WS = ActiveSheet
WS.Protect , , , , 1
Range("A1:N10").Locked = False
End Sub
Oder lade die Original-Datei hoch.
(05.09.2022, 08:14)Fennek schrieb: [ -> ]In dergezeigten Beispieldatei geht es:
Fragen:
- gibt es verbundene Zellen
- sonstige Sperren
Dieser Code muss einmalig ausgeführt werden: (allgemeines Modul)
Code:
Sub WS_Protect()
Dim WS As Worksheet
Set WS = ActiveSheet
WS.Protect , , , , 1
Range("A1:N10").Locked = False
End Sub
Oder lade die Original-Datei hoch.
Moin,
sorry, ich war ein paar Tage unterwegs.
Zu Deinen Fragen, es gibt keine zusammenhängenden Zellen und/oder Sperren.
In Deinem Beispiel "Sunburst Björn" funktioniert das genau so, wie ich das gerne hätte.
Das Diagramm kann nicht verändert werden und die Farben werden automatisch angepasst, wenn in der Tabelle ein Wert geändert wird.
Ich kann sehen, dass ein Blattschutz aktiv ist.
In meinem Beispiel ist das so, dsas sobald durch Deine Codes ein Blattschutz aktiv ist, die Farben nicht mehr geändert werden und eine Fehlermeldung (Laufzeitfehler 1004) erscheint.
Der Marko nimmt den Wert aus P9. Dort steht die Formel "=O9*100"
Im "Original" ist P9 leer.
(12.09.2022, 08:26)Fennek schrieb: [ -> ]Der Marko nimmt den Wert aus P9. Dort steht die Formel "=O9*100"
Im "Original" ist P9 leer.
Moin,
sorry, ich habe vergessen, die Schriftfarbe zurück zu ändern.
Die Zelle P9 ist nicht leer.