Blattschutz deaktiviern und wieder aktivieren
13.07.2016 16:13:17
Friedl
Habe wieder einmal ein (hoffentlich) kleines Problem.
Ich öffne in Excel mittels VBA ein Word Dokument.
Das Word Dokument ist geschützt.
Wie kann ich den Schutz deaktivieren und nach erledigter Arbeit wieder aktivieren.
hier mein Code mit dem ich das Word dokument aufrufe
Private Sub Zuweisung() 'Zuweisung drucken und als PDF in Ordner speichern
Dim strText As String
Dim lngZeile As Long
Dim objAppWord As Object
Dim objWordDoc As Object
Dim pdfName As String
On Error Resume Next
Set objAppWord = GetObject(, "Word.Application")
On Error GoTo 0
If objAppWord Is Nothing Then
Set objAppWord = CreateObject("Word.Application")
End If
objAppWord.Visible = True
objAppWord.Activate
Set objWordDoc = objAppWord.Documents.Open("H:\Desktop\Zuweisung_ohne_Parkplatz.docx")
End Sub
Also ohne Blattschutz funktioniert es super. Da aber mehrere Leute damit arbeiten möchte ich die Vorlage schützen damit ich nicht immer wieder alles neu einstellen muss.
Danke für eure Hilfe
Gruß Friedl