Seite 2 von 2 ErsteErste 1 2
Ergebnis 11 bis 13 von 13

Thema: Kontrollkästchen wenn dann (Office 2016)

  1. #11
    Office-Hilfe.com - Neuling
    Registriert seit
    15.09.2020
    Beiträge
    7
    Hallo Gerhard,
    tatsächlich noch eine weitere Frage: Wie bekomme ich es hin, dass die eingefügten Makros (sprich färben+sperren der Zellen) weiterhin ausgeführt werden, wenn man das Formular sperrt, damit man es eben nur als Formular ausfüllen kann? Wenn ich nun das Formular unter "Bearbeitung einschränken" sperre, passiert nun nichts mehr mit den gesetzten Änderungen (sperren+färben).

    Vielen Dank!

  2. #12
    Office-Hilfe.com - Auskenner
    Registriert seit
    06.06.2016
    Beiträge
    187
    Hallo sea...,

    dann musst du als erste Aktion des OnEnter-Makros den Dokumentschutz aufheben und als letzte wieder setzen:

    Code:
    Private Sub Document_ContentControlOnEnter(ByVal CC As ContentControl)
    
    If ActiveDocument.ProtectionType <> wdNoProtection Then
        ActiveDocument.Unprotect Password:=""
    End If
    
    'hier das OnEnter-Makro
    
    If ActiveDocument.ProtectionType = wdNoProtection Then
        ActiveDocument.Protect Type:=wdAllowOnlyFormFields, noreset:=True, Password:=""
    End If
    
    End Sub
    Das wirkt dann aber jedesmal, wenn irgendein Inhaltssteuerelement angeklickt wird. Wenn du möchtest, dass dies nur bei den beiden Checkboxen passiert, musst du das zweimal notieren. Struktur:

    Code:
    Private Sub Document_ContentControlOnEnter(ByVal CC As ContentControl)
    
    'auf die "local"-Checkbox reagieren:
    If CC.Tag = "local" Then
    
    'Dokumentschutz aufheben
    'Teilmakro
    'Dokument schützen
    
    End if
    
    If CC.Tag = "yes"
    
    'Dokumentschutz aufheben
    'Teilmakro
    'Dokument schützen
    
    End if
    
    End Sub
    Die anderen Teilmakros bleiben, wie sie sind.

  3. #13
    Office-Hilfe.com - Neuling
    Registriert seit
    15.09.2020
    Beiträge
    7
    Hallo Gerhard,

    vielen Dank und einen schönen Wochenstart!

Stichworte

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •  
Excel Ticker - News, Tipps und Tricks zu Microsoft Excel