Schreibschutz Erstellen eines Verzeichnisses

[Felix Penth]

Hallo Newsgroup !

Ich habe sehr viele Messreihen aufgenommen, die ich nach einem
bestimmten Schlüssel
abspeichern will. Geordnet sind alle Messreihen nach Datum, deswegen
soll für
jedes Datum ein eigenes Verzeichnis erstellt werden. Das Verzeichnis,
das erstellt
wird, ist jedoch schreibgeschützt. Gibt es eine Möglichkeit diesen
Schreibschutz per Makro zu entfernen,
da ich ansonsten immer eine Fehlermeldung ("Zugriff auf das
schreibgeschützte Dokument nicht
möglich!") erhalte ?

Es folgt der von mir fabrizierte Code:


Dim KeyType, KeyDate, KeyPressure, KeyDim, KeySpeed As String
Dim KeyPath As String

KeyDate = Range("Q24").Value
KeyPath = ActiveWorkbook.Path + "\" & KeyDate

If Dir(KeyPath, vbDirectory) = "" Then
MkDir KeyPath
End If

ChDir (KeyPath)

ActiveWorkbook.SaveAs Filename:=(KeyPath + KeyType),
FileFormat:=xlNormal, _
Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False, _
CreateBackup:=False

[Michael Schreiber]

Hallo Felix,
ich habe Deinen Code ausprobiert. Bei mir wird lokal ein Verzeichnis ohne
Schreibschutz erstellt. Ich vermute, dass Du das Verzeichnis auf einem
Netzwerk-Laufwerk erstellst und dieses automatisch den Schreibschutz
festlegt. Dazu könnstest Du Deinen Netzwerk-Administrator fragen.
Ein Ansatz mit VBA wäre, den Schreibschutz wieder zu entfernen
(entsprechende Berechtigungen vorausgesetzt).
Das geht ungefähr so:

Set FileSystemObject = CreateObject("Scripting.FileSystemObject")
Set Folder = FileSystemObject.GetFolder(KeyPath)
If Folder.Attributes And ReadOnly Then
Folder.Attributes = Folder.Attributes - ReadOnly
End If