|
Hallo VBA Word Forums,
wir nutzen Office 365 und kommen bei der Erstellung eines Formulares nicht weiter.
Ziel war / ist es in einem Formular eine Art bedingte Formatierung zu implementieren. Dies ist uns auch gelungen -> mittels eines Dropdown Menüs wählen wir den Status der Bearbeitung aus und entsprechend dessen färbt sich die Zelle mit der definierten Farbe.
Um die wilde Formatierung einzuschränken und Platzhalter / Dropdowns zu nutzen haben wir die Bearbeitung eingeschränkt.
Nun erhalten wir aber bei der Auswahl der "bedingten Formatierung" den Laufzeitfehler 4605 und den Hinweis, dass diese Methode oder Eigenschaft nicht verfügbar ist, da das Objekt auf einen geschützten Dokumentbereich verweist.
Hat jemand eine Idee, was man hier machen könnte?
Vielen Dank euch schon mal im Voraus
VBA Code:
Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
With ContentControl.Range
If ContentControl.Title = "Status" Then
Select Case .Text
Case "OK / Done"
.Cells(1).Shading.BackgroundPatternColor = RGB(146, 208, 80)
Case "Overdue"
.Cells(1).Shading.BackgroundPatternColor = RGB(255, 192, 0)
Case "Critical"
.Cells(1).Shading.BackgroundPatternColor = RGB(255, 0, 0)
Case "Ongoing"
.Cells(1).Shading.BackgroundPatternColor = wdColorAutomatic
Case Else
.Cells(1).Shading.BackgroundPatternColor = wdColorAutomatic
End Select
End If
End With
End Sub
|