Du verwendest einen veralteten Browser. Es ist möglich, dass diese oder andere Websites nicht korrekt angezeigt werden. Du solltest ein Upgrade durchführen oder ein alternativer Browser verwenden.
Wenn Du den Dateinamen hast, kannst Du über ein FileSystemObject (Verweis auf die Microsoft Scriping Runtime) die Dateiattribute abfragen:
Code:
'Variablen deklarieren
Dim fso As FileSystemObject
Dim f As File
'Objekte erzeugen
Set fso = New FileSystemObject
Set f = fso.GetFile("C:\test.txt")
If (f.Attributes And ReadOnly) = ReadOnly Then
MsgBox "schreibgeschützt"
Else
MsgBox "nicht schreibgeschützt"
End If
'Objekte freigeben
Set f = Nothing
Set fso = Nothing
Wie bereits mitgeteilt die Schreibschutz abfrage über FileAttributes funktioniert bestens.
Mein nächstes problem ist der Kennwortschutz den ich direkt in Word bzw. Excel setzten kann.
Gibt es eine möglichkeit diesen Status abzufragen bevor die Datei pberhaupt geöffnet wird.
