Schreibschutzattribut einer geöffneten Datei löschen

Hallo Leute,

Eine mit Dateiattribut"Schreibschutz EIN" versehene Datei wird geöffnet, bearbeitet und soll anschließend mit dem GLEICHEN Dateinamen erneut gespeichert werden. Hierzu muss jedoch zunächst das Schreibschutzattribut entfernt werden.
Diese Lösung hat mir damals Nepumuk zugesandt.

If .ReadOnly Then Call .ChangeFileAccess(Mode:=xlReadWrite)

Ja, ich weiß, dieses ist ein EXCEL-Forum, dennoch hoffe ich darauf, dass mir jemand aus diesem Forum einen Lösungsvorschlag unterbreitet um eine mit Dateiattribut"Schreibschutz EIN" verse-hene WORD-Datei ebenso mit dem GLEICHEN Dateinamen erneut zu speichern.

Wie müsste dieser Code umgewandelt werden, damit er unter WORD 2007 funktioniert?

If .ReadOnly Then Call .ChangeFileAccess(Mode:=xlReadWrite)

mfG
reiner

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

hallo Thorsten,

es ist gut möglich, dass sich Word-Fachleute besser auskennen als Excel-Fachleute bei der von mir gestellten Frage. Es war ein Versuch meinerseits diese Frage im Excel-Forum zu veröffentlichen, da ich bislang noch nie nach einem WORD-Forum gesucht habe, weil ich es auch bisher nicht benötigte.
Meine Originalanfrage zum Thema Speichern unter gleichem Dateinamen stammt vom 2023-06-10 12:58:25. Wie schon beschriebn erhielt ich damals die Lösung von Nepumuk.

Zur Vorgehensweise: Ich öffne eine schreibgeschützte Excel-Datei und bearbeite diese. Wenn die letzte Dateispeicherung gestern oder davor war, wird diese Datei mit dem aktuellen Tagesdatum gespeichert.
Wurde diese Datei aber bereits heute Vormittag bearbeitet und schreibgeschützt gespeichert und soll heute Nachmittag erneut bearbeitet und schreibgeschützt gespeichert werden, dann öffne ich diese und während des Speichervorgangs wird der Schreibschutz mit

If .ReadOnly Then Call .ChangeFileAccess(Mode:=xlReadWrite)

deaktiviert, sodass die Datei mit dem gleichen Dateinamen schreibgeschützt gespeichert wird. Das funktioniert wunderbar.
Nun will ich diese Speicherroutine auch für ein WORD-Dokument einsetzen. Einige Änderungen habe ich schon vorgenommen. Es hakt lediglich an If .ReadOnly Then...usw.
Dieser Code funktioniert offensichtlich nur unter EXCEL, nicht unter WORD. (Mode:=xlReadWrite)ermutlich muss ich (Mode:=xlReadWrite) durch (Mode:=wdReadWrite) ersetzen, das wäre das kleinste Problem. Aber ChangeFileAccess wird unter WORD nicht erkannt, da liegt der Hintergrund meiner Frage.

reiner

Public Function toggleReadOnly(ByVal ChangeToReadOnly As Boolean) As Boolean On Local Error GoTo toggleReadOnlyERR Dim strDok As String Dim bReadOnly As Boolean Dim bChanged As Boolean strDok = ThisDocument.FullName If ChangeToReadOnly Then ' SetAttr strDok, vbReadOnly ' bChanged = (GetAttr(strDok) And vbReadOnly) = vbReadOnly If ThisDocument.ProtectionType > wdAllowOnlyReading Then ThisDocument.Protect Password:="", NoReset:=False, Type:=wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False bChanged = ThisDocument.ProtectionType = wdAllowOnlyReading Else bChanged = True End If Else ' SetAttr strDok, vbNormal ' bChanged = (GetAttr(strDok) And vbNormal) = vbNormal If ThisDocument.ProtectionType > wdNoProtection Then ThisDocument.Unprotect ' Password:="", NoReset:=False, Type:=wdNoProtection, UseIRM:=False, EnforceStyleLock:=False bChanged = ThisDocument.ProtectionType = wdNoProtection Else bChanged = True End If End If toggleReadOnlyOUT: toggleReadOnly = bChanged Exit Function toggleReadOnlyERR: bChanged = False Resume toggleReadOnlyOUT End Function

Public Sub toogle() ' 'Dim bOK As Boolean 'bOK = toggleReadOnly((GetAttr(strDok) And vbReadOnly) = vbReadOnly) If toggleReadOnly(True) Then '''ToTo End If End Sub Public Function toggleReadOnly(ByVal ChangeToReadOnly As Boolean) As Boolean On Local Error GoTo toggleReadOnlyERR Dim strDok As String Dim bReadOnly As Boolean Dim bChanged As Boolean strDok = ThisDocument.FullName If ChangeToReadOnly Then SetAttr strDok, vbNormal bChanged = (GetAttr(strDok) And vbNormal) = vbNormal Else SetAttr strDok, vbReadOnly bChanged = (GetAttr(strDok) And vbReadOnly) = vbReadOnly End If toggleReadOnlyOUT: toggleReadOnly = bChanged Exit Function toggleReadOnlyERR: bChanged = False Resume toggleReadOnlyOUT End Function

Sub test1() SetAttr "D:\Herber\Microsoft Word-Dokument (neu)1.docm", vbNormal 'deaktiviert den Dateischreibschutz End Sub Sub test2() SetAttr "D:\Herber\Microsoft Word-Dokument (neu)1.docm", vbReadOnly 'aktiviert den Dateischreibschutz End Sub

Beliebteste Forumthreads (12 Monate)

Schreibschutzattribut einer geöffneten Datei löschen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

112 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Schreibschutzattribut einer geöffneten Datei löschen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

112 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread