Worddokument über Excel schützen
06.06.2004 10:58:58
FloGo
Habe da ein kleines Problem und zwar möchte ich Daten in ein vorhandenes Worddokument eintragen. Es befinden sich auch mehrere CheckBoxen in diesem Dokument. Wenn ich nun das Dokument schütze und anschleißend manuell diese CheckBoxen aktiviere funktioniert das auch super. Um nun aber über VBA (Excel) die CheckBoxen bedienen zu können muss der Dokumentschutz aufgehoben werden! ....oder?
Nun möchte ich den Dokument schutz zuerst deaktivieren und nach abschluß der Prozedur wieder aktivieren, um noch manuell Veränderungen vornehmen zu können!
hier mein Code zur übergabe der Daten (aus der Recherche):
Private Sub CB_Ausgabe_Click()
Dim myWord As Object
If TB_FName = 0 Or TB_FName = "" Then
MsgBox "Es ist kein User ausgewählt!!!", vbInformation
Exit Sub
End If
Set myWord = GetObject("C:\Test.doc")
myWord.Application.Documents.Open "C:\Test.doc"
'Dokumentschutz deaktivieren!!!
'Die Daten werden in das Worddokument eingelesen:
myWord.bookmarks("FName").Range.Text = TB_FName
myWord.bookmarks("VName").Range.Text = TB_VName
'usw....
'Einlesen der Daten in das Word Objekt
If CheckBox_Desktop = True Then myWord.Formfields(4).CheckBox.Value = True
If CheckBox_Excel = True Then myWord.Formfields(5).CheckBox.Value = True
If CheckBox_Word = True Then myWord.Formfields(6).CheckBox.Value = True
'usw....
'Dokumentschutz aktivieren!!!
End Sub
Hoffe es kann mir jemand helfen!
Freue mich auf jede Antwort! :-)
FloGo