Skrivebeskyttelse !!

Dlg. \"Filen er reserveret\" kommer ganske automatisk, såfremt filen IKKE er oprettet med skrivebeskyttelse anbefalet.
Dlg. \"Filen er reserveret\" giver dig valgmulighed mellem Påmind, Skrivebekyttet el Annulleret.
\\\\AMH

Ikke hos mig....det er jo derfor jeg spørger !!

Min makro kunne se således ud...ikke noget hokus pokus

Sub RAP_KNAP1()

    Workbooks.Open FileName:= _
    \"K:\\OEKONOMI\\Menu\\Budget\\Rap\\KNAP1_RAP.XLS\"

End Sub

Prøv at åbne filen, og gem den igen med GemSom og chek at der ikke er \"flueben\" under indstillinger, skrivebeskytelse anbefalet.

Filen er IKKE oprettet med skrivebeskyttelse anbefalet.

Når jeg åbner  filen \"manuelt\" opnår jeg den ønskede effekt, jeg får besked hvis filen er åben andetsteds og derfor skrivebeskyttet.

Når jeg åber via makroknap modtager jeg ingen besked, filen åbnes skrivebeskyttet.

Jeg har kigget lidt WordBasic hjælp, og fundet følgende:

Egenskaben Workbooks
Returnerer en samling Workbooks, der repræsenterer alle åbne projektmapper. Egenskaben er skrivebeskyttet.

Håber, at en af de andre eksperter kan hjælpe, jeg kan desværre ikke.
\\\\AMH

Hej tida

Denne macro checker om filen er skrivebeskyttet, hvis den ikke er skrivebeskyttet så vil macroen hente filen ind. Macroen forudsætter at filen har et flueben under Arkiv, som vist nok er default. Dvs filen bliver taget med i en evt. backup.
Prøv den om den ikke virker efter dit behov

Hilsen

Lars

Sub CheckForReadOnlyBit()
    \' Pre : filen har et flueben ved Arkiv
    \' Post: Check for Read Only Bit, åbner filen,
    \'      filen ikke er skrivebeskyttet
   
    Dim fs, f
    Dim filename As String
    filename = \"c:\\dokumenter\\filnavn.xls\"
    Set fs = CreateObject(\"Scripting.FileSystemObject\")
    Set f = fs.GetFile(fs.GetFileName(filename))
    If f.Attributes = 33 Then \' Attributes = 32 og 1,dvs Arkiv og skrivebeskyttet
        MsgBox \"Regnearket er skrivebeskyttet\"
    Else
        Workbooks.Open filename:=filename
    End If
   
End Sub

Hvis jeg har forstået spm. rigtig så virker denne her. desværre bliver du spurgt 2 gange.
Sub testforandenbruger()
On Error GoTo test
    Workbooks.Open \"C:\\dokumenter\\filnavn.xls\", , , , , , , , , , False
test:
    svar = MsgBox(\"Filen er låst af anden bruger. Åbn alligevel ??\", vbOKCancel)
    If svar = 1 Then Workbooks.Open \"C:\\WINNT\\Profiles\\tbk\\Personal\\afvigelser maj.xls\" Else Exit Sub
End Sub

sidste linie skulle sølvfølgelig have været
If svar = 1 then workbooks.open \"c:\\dokumenter\\filnavn.xls\" else exit sub

Til Isimony :

Tak for makro, har forsøgt, men kan simpelthen ikke få den til at køre.

Til bak :

Også tak for makro, det gik bedre denne gang, den kører...det er godt nok lidt irreterende at den kommer ud med meddelelsen to gange, men hellere det end ingenting.

Det var ærgeligt at min macro ikke virkede hos dig. Den virker hos mig Excel 2000.

Du vil heller ikke få en meddelse to gange.

Lars