VBA Code Share en Unshare

[Scallebe]

Beste programmeurs,

ik heb in mijn form de volgende codes :

Sub MakeExclusive() 
     
    If ActiveWorkbook.MultiUserEditing Then 
        Application.DisplayAlerts = False 
        ActiveWorkbook.ExclusiveAccess 
        Application.DisplayAlerts = True 
        MsgBox "Now Exclusive" 
    End If 
     
End Sub 
 
Sub MakeShared() 
     
    If Not ActiveWorkbook.MultiUserEditing Then 
        Application.DisplayAlerts = False 
        ActiveWorkbook.SaveAs ActiveWorkbook.Name, accessmode:=xlShared 
        Application.DisplayAlerts = True 
        MsgBox "Now Shared" 
    End If 
     
End Sub

Mijn Form begint met de code : Sub MakeExclusive()... dan komen er diverse codes en de form eindigt met de code : Sub MakeShared()...

Excel voert al deze opdrachten uit, dus de form werkt perfect.

Het enige probleem is wanneer ik Excel afsluit en het bestand opnieuw open dan staat mijn "Worbook" niet meer in de "SHARE-MODUS"

Desondanks voldoende de veranderingen bewaard te hebben respecteerd Excel de "SHARE-Modus" niet.

Ik heb al geprobeerD met een Option Explicit en dan een Workbook_open() of Workbook_close() maar dit werkt ook niet.

De protect blijft behouden, maar de SHRARE niet.

Hoe kan ik dit oplossen?

Bedankt.

Pascal

 

[edmoor]

Heb je die beide Subs in een module staan? Plaats deze dan in de ThisWorkbook sectie:

Private Sub Workbook_Open()
    Application.Run MakeShared
End Sub

Zo wordt het document bij het openen al op Shared gezet.

 

[Scallebe]

Edmoor,

Beide Subs staan in een module en toch vind hij de MakeShared niet bij openen van mijn Workbook.

krijg de volgende error : Compile error : Expected variable or procedure, not module

Volgens mij is de module er wel (zie foto)

???

Groetjes

 

[edmoor]

Wijzig dan dat stukje dat ik plaatste eens in het volgende:

Private Sub Workbook_Open()
    Application.Run "MakeShared"
End Sub

Dus het woord MakeShared tussen aanhalingstekens.

 

[Scallebe]

Edmoor,

Lukt nog niet :



Greetz

Pascal

 

[edmoor]

Dat kan je alleen nog maar je document plaatsen zodat ik er zelf naar kan kijken.

 

[Scallebe]

Bekijk bijlage Problemfile.xlsm

Ik heb er wel heel wat sheets uitgehaald dus het kan zijn dat er wat knoppen niet werken. Anders was de file te groot.

Het paswoord om eventueel te unprotecten : ynnewg1994

Greetz

Pascal

 

[edmoor]

Het probleem is dat je de Sub MakeShared aanroept en dat je een module met dezelfde naam hebt en in Module2 ook een Sub met de naam Makeshared staat. Verwijder deze daar, zet de Sub MakeShared in Module2 en verwijder de MakeShared module.

 

[Scallebe]

Edmoor,

Ik heb gedaan wat je hebt voorgesteld en het werkt.

Enkel als ik de knop nieuwe lijn aanklik vul ik de gegevens in en zet hij deze in de voorziene rij. Tot daar geen problem.

Ik safe nogmaals en sluit af. Als ik de file terug open is mijn laatste ingevoerde lijn niet te bespeuren.

Als ik het probeer met de file die ik hier meegestuurd heb dan blijft de nieuwe ingevoerde lijn wel staan.
Ik heb daar ook de aanpassingen doorgevoerd zoals je hierboven aanbeveelde.

Alhoewel de code van de file hierboven identiek dezelfde is als in mijn originele file.

Pffffff...

Pascal

 

[edmoor]

Dat is een compleet ander probleem dat niets met het aanroepen van MakeShared te maken heeft.