Hallo zusammen,

ich habe einen Code für ein Word-Formular geschrieben, der in einer Tabelle über ein Drehfeld Zeilen hinzufügt oder löscht. Soweit, sogut.

Mein Problem: Wenn ich die Funktion ausführe, werden die Textinhalte in der Tabelle gelöscht. Dies geschieht, wenn ich den Blattschutz am Ende wieder aktiviere. Wer kennt eine Lösung für mein Problem?

Vielen Dank und Gruß

Michi

Mein Code:

Option Explicit
    Dim intZeilenAnzahl As Integer
    Const strPW As String = "MM"

Private Sub DF_ZeilenAnzahl_SpinUp()
On Error GoTo Ende
    
    If Not ActiveDocument.ProtectionType = wdNoProtection Then
        ActiveDocument.Unprotect Password:=strPW
    End If
    
        ThisDocument.Tables(2).Rows(ThisDocument.Tables(2).Rows.Count - 7).Select
        Selection.Copy
        Selection.MoveLeft Unit:=wdCharacter, Count:=1
        Selection.PasteAndFormat (wdFormatOriginalFormatting)

Ende:
    
    ActiveDocument.Protect wdAllowOnlyFormFields, , Password:=strPW
End Sub

Private Sub DF_ZeilenAnzahl_SpinDown()
On Error GoTo Ende

    If Not ActiveDocument.ProtectionType = wdNoProtection Then
        ActiveDocument.Unprotect Password:=strPW
    End If
    
        Dim strText As String
    
        intZeilenAnzahl = ThisDocument.Tables(2).Rows(5).Cells.Count
            If intZeilenAnzahl > 1 Then
        
                ThisDocument.Tables(2).Rows(3 + InputBox("Welche Themen-Zeile möchtest Du löschen?", "Zeile löschen")).Select
                Selection.Copy
                Selection.Cut
            Else
                MsgBox ("Du kannst keine Zeile mehr löschen.")
            End If
        

Ende:
    
    ActiveDocument.Protect wdAllowOnlyFormFields, , Password:=strPW
End Sub