VBA Excel Readonly

[cverkooyen]

Goede morgen,

ik ben bezig met een programma in Excel waarvoor ik moet weten of een ander Excel bestand Read Only is of niet. Nu heb ik het programma geschreven in de compatibility mode (Excel 97-2003) en voer ik de check als volgt uit (code van dit forum):


Dim strFullFilename As String

strFullFilename = "C:\test.xls"

If (GetAttr(strFullFilename) And vbReadOnly) = 1 Then
MsgBox strFullFilename & " Is readonly"
Else
MsgBox strFullFilename & " Is NOT readonly"
End If

Nu blijkt dat hij bestanden genaamd test.xlsx wél checkt of ze read only zijn terwijl bij bestanden opgeslagen voor Excel 97-2003 hij zegt dat ze niet read only zijn terwijl dat wel zo is.

Hebben jullie enig idee hoe ik dit kan oplossen?

 

[snb]

Lees de Hulp bij Attributes in de VBEditor.
Een readonly bestand kan als attributes-waarde meer waarden aannemen dan 1.
Kontroleer maar met

Sub tst()
  For Each fl In CreateObject("Scripting.filesystemobject").getfolder("E:\").Files
    If Right(fl.Name = ".xls", 4) Then MsgBox GetAttr(fl.Path)
  Next
End Sub

 

[cverkooyen]

Sorry voor de late reactie maar in de help word toch ook aangegeven dat read only de waarde 1 krijgen?

 

[cverkooyen]

Niemand?

 

[snb]

readonly =1
archive=x
archive+readonly =x+1