Hvordan tester jeg om filen er åbnet som skrivebeskyttet version?

se evt http://www.erlandsendata.no/english/index.php?d=envbafoldersfileinuse

Jeg han ikke helt se at jeg kan bruge omtalte funktion her...

For det første...
Hvis jeg skal bruge omtalte funktion, så har jeg brug for at køre den inden brugeren åbner vores fælles fil - hvordan kan jeg det...

Måske skal jeg forklare bedre hvad jeg har brug for. de fleste af brugerne vælger jo selv at få en readonly-version (fordi de ikke kender password til redigering) og det er dem jeg gerne vil lave nogle specielle facilitetter til.

Kan jeg teste om brugeren har valgt en readonly-version ?
Kan jeg lave et script der kører inden filen åbnes ?

Denne funktion vil forsøge at gemme filen og hvis det lykkes er filen tilgængelig ellers er den readonly

Kald funktionen fra modulet ThisWorkBook under WorkBook_open

Function check_readonly() As Boolean
    On Error GoTo fejl
    ThisWorkbook.Save
    check_readonly = False
    Exit Function
fejl:
    check_readonly = True
End Function


Private Sub Workbook_Open()
    Dim bReadOnly As Boolean
    bReadOnly = check_readonly
    MsgBox bReadOnly
End Sub

Det lyder da rigtig godt...
Jeg er på vej på natarbejde nu, så jeg har ikke tid til at teste nu, men kan jeg så også sætte et eller andet ind ind der gør at når brugeren lukker readonly-versionen, så spørges han ikke om den skal gemmes - eller er kan det kun gøres i Workbook_BeforeClose ?

Private Sub Workbook_Open()
If ThisWorkbook.ReadOnly Then
    MsgBox " skrivebeskyttet"
End If

End Sub

Jamen dog kabbak, den har jeg da ledt efter, men fandt den ikke...perfekt til formålet 
Nu må jeg se at få nye briller, det kan vel ikke udskydes længere :-)

ja, men aldersmæssig er jeg nok den ældste 53

Ja, det kan jeg ikke slå, Holger, men 46 er vel også nok til begyndende gammelmandssyn :-)

Det var jo alle tiders - hvem vil smide et svar...

Jeg vil gerne bygge videre på svaret - kan jeg også sætte noget tilsvarende i Workbook_BeforeClose, eksempelvis

If ThisWorkbook.ReadOnly Then
    Workbook.Saved = True
End If

og derved undgå at den spørger om der skal gemmes

jeg har brugt kabbaks løsning fordi den er go' og enkel...

jeg brugte den også i Workbook_BeforeClose til at lave linien
ActiveWorkbook.Saved = True
og det virker helt super

takl for hjælpen - smid lide et svar
mvh Folmer

et svar ;-))