Lås excel-dokument mod redigering af flere på én gang

Må der indlægges en makro i filen?

Umiddelbart ja. Hvad vil det betyde for brugeren hvis der lægges en makro ind og er det noget vi selv kan gøre?

Hvilken version af Excel anvendes?

version 2010

Ok - vender tilbage..

Hej Sofie
Har en model -  via www.supertekst-it.dk | Kontakt - så sender jeg forslaget.

Kære Supertekst
Tak for beskeden. Min kollega Nadja vil kontakte dig vedr. forslaget.

Ok

Er der nogen tidsplan?

Jeg kan forstå, at der ikke er blevet fulgt op på denne hvilket jeg skal beklage. Jeg hører gerne dit løsningsforslag, men idet du har henvist mig til din virksomhedsside skal jeg for god ordens skyld nævne, at jeg ikke vil have mulighed for at betale for en evt. løsning.

Ok -
I dette forum er det jo gratis med mindre andet er aftalt - og det er det jo ikke - så derfor.. :-)

Tak for din tilbagemelding. Da jeg som sagt ikke vil have mulighed for at betale for en evt. løsning vil jeg lukke sagen. Endnu engang tak :-)

I #11 tydeliggør jeg netop, at det er GRATIS - når der ikke er aftalt andet og det er der jo ikke.
Så ???

ok, min misforståelse. Så retter jeg henvendelse via kontakt.

Ok .

VBA-koden:
Private Sub Workbook_Open()
'Stop
Rem Er filen i brug (Egenskaben Status udfyldt med evt. aktuelle bruger)
    If ActiveWorkbook.CustomDocumentProperties("Status") <> "" Then
        MsgBox "Filen opdateres - prøv senere"
        ActiveWorkbook.Close False
    Else
Rem Filen markeres som værende i anvendelse - egenskaben Status => brugernavn
        ActiveWorkbook.CustomDocumentProperties("Status") = "Anvendes af " & Environ("UserName")
        Application.DisplayAlerts = False
        ActiveWorkbook.Save
    End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Stop
    With ActiveWorkbook
        If InStr(ActiveWorkbook.CustomDocumentProperties("Status"), Environ("Username")) = 13 Then
Rem        If Cancel = True Then
            .CustomDocumentProperties("Status") = ""
            .Save
        End If
    End With
End Sub