09. november 2001 - 14:01Der er
14 kommentarer og 1 løsning
Skrivebeskyttelse af fil.
Jeg har en menu med et stort antal knapper med dertilhørende makros der hver især åbner forskellige filer.
Når en knap aktiveres og en fil hermed åbnes, ønsker jeg ikke at filen uden advisering åbnes som skrivebeskyttet såfremt den er i brug hos en anden brugen, men istedet at dialogboksen \"Filen er reserveret\" vises, og man derefter kan tage stilling til om man derefter overhovedet er interesseret i at åbne filen.
Kan nogen fortælle mig hvorledes en sådan makro ser ud ?
Jeg skylder at fortælle at jeg, har haft dette spørgsmål oppe og vende på Eksperten tidligere, dengang var jeg for hurtigt og godtog et svar der faktisk senere viste sig ikke at fungere...derfor prøver jeg lige igen.
Måden vi mødes på har ændret sig. Så hvorfor ser vores mødelokaler stadig ens ud?
Slettet bruger
09. november 2001 - 14:18#1
Jeg mener ikke, at det kan lade sig gøre. Dog er det muligt at anvende funtionen Delt projektmappe så alle har mulighed for at skrive samtidig. \\\\AMH
Synes godt om
Slettet bruger
09. november 2001 - 14:21#2
Det ville være rart om du henviste med det tidligere spørgsmål http://www.eksperten.dk/spm/107874 så vil det være nemmere at se hvad det var du ikke kunne bruge \\\\AMH
Synes godt om
Slettet bruger
09. november 2001 - 14:23#3
Hvilen version af Word bruger du? - for det er vel Word
Problemet sidste gang bestod i, at jeg fik en korrekt melding når filen var i brug hos anden bruger...altså makroen kørte umiddelbart fint.
Men hvis filen ikke var i brug fik jeg alligevel melding om at filen ville åbne som skrivebeskyttet (hvilken den selvfølgelig ikke gjorde).
Synes godt om
Slettet bruger
09. november 2001 - 14:39#6
OK, det var en prøve, men hvilker verson af Excel, der er flere versioner i brug ex. 95, 97, 2000 og XP. Og der meget store forskelle i kommandoer de nyere version i forhold til de gamle. Så det der altså væsenligt, at du fortæller hvilken version det er.
Sorry. her er den med forbedringer, jeg har jo fået point Sub testforandenbruger() Application.DisplayAlerts = False On Error GoTo test Workbooks.Open \"d:\\filnavn.xls\", , , , , , , , , , False Exit Sub test: svar = MsgBox(\"Filen er låst af anden bruger. Åbn alligevel ??\", vbOKCancel) If svar = 1 Then Workbooks.Open \"d:\\filnavn.xls\" Else Exit Sub Application.DisplayAlerts = True End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
