Makro

Ja!

Hvis du sender dit ark til jan_vogt_hansen@hotmail.com med nærmere beskrivelse skal jeg gøre det.

ActiveWorkbook.UnprotectSharing Password:=\"drowssap\"

En lille kodelinie er nok :-)

Hvis du skal beskytte igen, så kig i VBA hjælpen for ProjektSharing.

Det må nærmere være denne kode vi skal have fat i:

ActiveWorkbook.ExclusiveAccess

Beklager Jan, men verden ser lidt anderledes ud.

UnprotectSharing - er den der fjerner markeringen for delt projektmappe.

Med ExclusiveAccess - kan du sikre dig, at det kun er dig ene ret til en projektmappe som er delt. Det vil sige, at du kan sikre dig, at det kun er dig, som arbejder i regnearket.

OK - der er lidt snik snak - glem lige dette stykke \"at det kun er dig\"  (lige før \"ene ret\")

Beklager Flemming - ikke enig!

ActiveWorkbook.ExclusiveAccess fjerner delt projektmappe - præcis det, der bliver spurgt om!

>>>Jan - så må du finde dig i, at få citeret fra hjælpen, den er du måske heller ikke enig med :-)


UnprotectSharing Method
Turns off protection for sharing and saves the workbook.


ExclusiveAccess
Assigns the current user exclusive access to the workbook that\'s open as a shared list.

The ExclusiveAccess method saves any changes you\'ve made to the workbook and requires other users who have the workbook open to save their changes to a different file.


>>>javid - nu skulle du vist kunne løse dit problem :-)

Jeg er helt enig med hjælpen - men prøv lige at læse, hvad der står!

Prøv at oprette en delt projektmappe og kør ExclusiveAccess.
Hermed får du \"exclusive access\" og \"delt\" fjernes fra arket! ;-)

Hvis du har mange brugere med password kan det da godt være, at den skal kombineres med \"UnprotectSharing Method\".

Du har lidt ret, men ExclusiveAccess virker kun hvis der er andre brugere, som bruger projektmappen samtidig - du skal således lave et check alla

If ActiveWorkbook.MultiUserEditing Then
    ActiveWorkbook.ExclusiveAccess
End If

Hvis ikke der kombineres med MultiUserEditing men blot ActiveWorkbook.ExclusiveAccess, så får du fejl.

Helt enig, det læste jeg også i hjælpen!

:-)

;-)