Thema Datum  Von Nutzer Rating
Antwort
Rot VBA - Bearbeitung einschränken
09.02.2024 15:14:36 Word_Beginner_777
NotSolved
09.02.2024 19:29:05 ralf_b
NotSolved
12.02.2024 09:44:58 Word_Beginner_777
NotSolved

Ansicht des Beitrags:
Von:
Word_Beginner_777
Datum:
09.02.2024 15:14:36
Views:
296
Rating: Antwort:
  Ja
Thema:
VBA - Bearbeitung einschränken

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA - Bearbeitung einschränken
09.02.2024 15:14:36 Word_Beginner_777
NotSolved
09.02.2024 19:29:05 ralf_b
NotSolved
12.02.2024 09:44:58 Word_Beginner_777
NotSolved