Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Schreibschutz in Word mittels VBA aktivieren
zurück: Datum konvertieren aus Zahl... weiter: Makro für bestimmte Felder copy and paste Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Christoph21
Gast


Verfasst am:
03. Mai 2010, 09:22
Rufname:

Schreibschutz in Word mittels VBA aktivieren - Schreibschutz in Word mittels VBA aktivieren

Nach oben
       Version: Office 2007

Hallo.
Ich hab folgende Problemstellung:
Ich übergebe aus Excel Werte in eine Word-Dokument, dass auf einer Word-Vorlage basiert. Die Word-Vorlage ist schreibgeschützt. Bevor die Werte von Excel in Word übergeben werden können muss folglich den Schreibschutz aufheben. Dies mach ich wie folgt:
Code:
WordApp.ActiveDocument.Unprotect Password:="xxx"


Nun hab ich mein Word-Dokument mit den Werten aus Excel. Nachdem die Werte übergeben wurden hätt ich aber gerne, dass das Dokument über einen Schreibschütz verfügt. Dies versuch ich mit folgendem Code:
Code:
WordApp.ActiveDocument.Protect Password:="xxx"


Leider funktioniert dies nicht. Das Word-Dokument ist immer ohne Schreibschutz.
Was mache ich falsch?
Holger*
VBA-Freund


Verfasst am:
03. Mai 2010, 12:18
Rufname:


AW: Schreibschutz in Word mittels VBA aktivieren - AW: Schreibschutz in Word mittels VBA aktivieren

Nach oben
       Version: Office 2007

Hallo Christoph21,
du musst Word sagen, was im Dokument erlaubt ist, z.B. 'Lesen'. Sie in der VBA-Hilfe unter
Document.ProtectionType-Eigenschaft
nach.
Gruß
Holger
Hubert_R
Gast


Verfasst am:
03. Mai 2010, 12:24
Rufname:

AW: Schreibschutz in Word mittels VBA aktivieren - AW: Schreibschutz in Word mittels VBA aktivieren

Nach oben
       Version: Office 2007

Hallo,

die Art des Schutzes muss angeben werden.
Code:
If ActiveDocument.ProtectionType <> wdNoProtection Then
    ActiveDocument.Unprotect Password:=""
End If

'schützen, nur lesen
If ActiveDocument.ProtectionType = wdNoProtection Then
    ActiveDocument.Protect Type:=wdAllowOnlyReading, Password:=""
End If

Grüsse Hubert
Gast



Verfasst am:
03. Mai 2010, 13:03
Rufname:

AW: Schreibschutz in Word mittels VBA aktivieren - AW: Schreibschutz in Word mittels VBA aktivieren

Nach oben
       Version: Office 2007

Vielen Dank für die Antworten.
Was mir jedoch noch nicht so ganz klar ist, wo ich diesen Befehl absetze.
In ein Makro der Word-Vorlage oder in die Excel-Datei?
Das Word-Dokument wird von Excel-VBA geöffnet.

Code:
Set WordApp = CreateObject("word.application")
WordApp.Documents.Add ("G:\....\Angebot_Vorlage.dot")

WordApp.Visible = True


Nachdem nun die Daten von Excel in das Word-Dokument übergeben wurden, sollen Abschnitt 2 und 4 noch veränderbar sein. Der Rest soll geschützt sein.
Hubert_R
Gast


Verfasst am:
03. Mai 2010, 17:18
Rufname:


AW: Schreibschutz in Word mittels VBA aktivieren - AW: Schreibschutz in Word mittels VBA aktivieren

Nach oben
       Version: Office 2007

Hallo,

Code in Excel:
Code:
Sub WordStarten()
  Dim wdAnw As Object
  '
  Set wdAnw = CreateObject("Word.Application")
  'Pfad anpassen
  wdAnw.Documents.Add ("D:\Temp-Ablage\Angebot_Vorlage.dot")
  wdAnw.WindowState = 1 '0 = Normal; 1 = Maximized; 2 = Minimized
  wdAnw.Visible = True
  wdAnw.Activate
  DoEvents
  '
  'Vorlagenmakro starten
  wdAnw.Application.Run MacroName:="AbschnitteSchuetzen"
  '
  'wdAnw.Quit
  Set wdAnw = Nothing
End Sub

Code in einem Standard-Modul der Vorlage "Angebot_Vorlage.dot"
Code:
'nach Lisa
Sub AbschnitteSchuetzen()
    Dim mySec As Word.Section
    Dim i As Integer
           
    If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then
        ActiveDocument.Unprotect Password:=""
    End If
    ' Zunächst wird der Schutz mit Passwort für das ganze Dokument aufgehoben.
       
    For Each mySec In ActiveDocument.Sections
        mySec.ProtectedForForms = False
    Next mySec
    ' In der ersten Schleife werden alle Abschnitte ungeschützt.
       
    For i = 1 To ActiveDocument.Sections.Count Step 2
        ActiveDocument.Sections(i).ProtectedForForms = True
    Next i
    ' In der zweiten Schleife wird jeder 2. Abschnitt geschützt,
    ' beginnend mit Abschnitt 1
       
    ActiveDocument.Protect Type:=wdAllowOnlyFormFields, _
        NoReset:=True, Password:=""
    ' Der Formularschutz mit Passwort wird wieder eingeschaltet,
    ' und zwar für die "markierten" Abschnitte
End Sub
Grüsse Hubert
Christoph21
Gast


Verfasst am:
07. Mai 2010, 08:05
Rufname:

AW: Schreibschutz in Word mittels VBA aktivieren - AW: Schreibschutz in Word mittels VBA aktivieren

Nach oben
       Version: Office 2007

Vielen vielen Dank Hubert!
Hat prima geklappt. Cool
bubbles
Neuling


Verfasst am:
20. Mai 2011, 10:37
Rufname:
Wohnort: Lenzburg

AW: Schreibschutz in Word mittels VBA aktivieren - AW: Schreibschutz in Word mittels VBA aktivieren

Nach oben
       Version: Office XP (2002)

Guten Tag

Ich versuche ein Makro zu schreiben, welches in diversen Dokumenten (mit verschiedener Abschnittanzahl) angewendet werden kann um einen Abschnittwechsel gefolgt von einem Disclaimer einzufügen und diesen letzten Abschnitt dann zu schützen. Mit der hier beschriebenen Variante müsste ich nun aber die Nummer des letzten Abschnittes angeben.

Gibt es einen Befehl der den letzten Abschnitt ermittelt?

Danke für eure Hilfe!

Freundliche Grüsse
Janine
CHF-Gast
Gast


Verfasst am:
20. Mai 2011, 10:44
Rufname:

AW: Schreibschutz in Word mittels VBA aktivieren - AW: Schreibschutz in Word mittels VBA aktivieren

Nach oben
       Version: Office 2007

Hi
brauchst du nicht, sondern kannst direkt auf den letzten Abschnitt zugreifen:

Code:
    For Each mySec In ActiveDocument.Sections
        mySec.ProtectedForForms = False
    Next mySec
    ActiveDocument.Sections.[b]Last[/b].ProtectedForForms = True

    ActiveDocument.Protect Type:=wdAllowOnlyFormFields, _
        NoReset:=True, Password:=""


CHF
bubbles
Neuling


Verfasst am:
20. Mai 2011, 11:20
Rufname:
Wohnort: Lenzburg


AW: Schreibschutz in Word mittels VBA aktivieren - AW: Schreibschutz in Word mittels VBA aktivieren

Nach oben
       Version: Office 2007

Perfekt. Besten Dank!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word VBA Programmierung (Makros): Passwort in Userform eingeben um Schreibschutz Tabelle aufzu 1 Hansi0305 701 03. Mai 2010, 16:20
Hansi0305 Passwort in Userform eingeben um Schreibschutz Tabelle aufzu
Keine neuen Beiträge Word VBA Programmierung (Makros): Makros im Word aktivieren 0 Karl123 700 29. März 2010, 11:28
Karl123 Makros im Word aktivieren
Keine neuen Beiträge Word VBA Programmierung (Makros): mehrere Kontrollkästchen einzeln sperren bzw. aktivieren 4 Keller 3499 29. März 2010, 11:07
Keller mehrere Kontrollkästchen einzeln sperren bzw. aktivieren
Keine neuen Beiträge Word VBA Programmierung (Makros): Drucker auswählen mittels Makros 9 Muschimaus 27299 01. März 2010, 11:01
Gast Drucker auswählen mittels Makros
Keine neuen Beiträge Word VBA Programmierung (Makros): Word Seiten mittels Makro kopieren und einfügen 1 Fabian19098210 2635 08. Sep 2009, 10:38
Fabian19098210 Word Seiten mittels Makro kopieren und einfügen
Keine neuen Beiträge Word VBA Programmierung (Makros): Userform aktivieren/deaktivieren 2 mariowue 1416 30. Aug 2009, 15:33
mariowue Userform aktivieren/deaktivieren
Keine neuen Beiträge Word VBA Programmierung (Makros): Togglebutton im Ribbon aktivieren 4 marstusch 3480 25. Aug 2009, 14:21
Gast Togglebutton im Ribbon aktivieren
Keine neuen Beiträge Word VBA Programmierung (Makros): "Alles anzeigen" - aktivieren/deaktivieren 2 advin 2553 21. Jul 2009, 08:25
advin "Alles anzeigen" - aktivieren/deaktivieren
Keine neuen Beiträge Word VBA Programmierung (Makros): Wordinhalte nach Excel exportiert und dann Schreibschutz?! 7 ACEofSPADES 1012 05. Jun 2009, 13:11
CHF Wordinhalte nach Excel exportiert und dann Schreibschutz?!
Keine neuen Beiträge Word VBA Programmierung (Makros): Texte mittels Optionsfeld ein- bzw. ausblenden 5 Kiri_1 1106 29. Dez 2008, 14:41
Kiri_1 Texte mittels Optionsfeld ein- bzw. ausblenden
Keine neuen Beiträge Word Formate: Wie kann ich die schriftarten aktivieren?! 2 StifflersMom 4878 02. Okt 2008, 00:39
Gast Wie kann ich die schriftarten aktivieren?!
Keine neuen Beiträge Word Formate: Tabellenbeschriftung mittels Formatvorlage einfügen 1 patmet 4453 07. Dez 2007, 18:16
Hübi Tabellenbeschriftung mittels Formatvorlage einfügen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML CSS