opslaan als alleen lezen

[W Bloemendal]

ik wil een bestand opslaan als alleen lezen om te voorkomen dat anderen wijzigingen aan kunnen brengen. nu had ik het volgende gevonden

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If ThisWorkbook.ReadOnly Then
        Cancel = True
        MsgBox "Opslaan niet toegestaan!!!"
    End If
End Sub

dit had ik hier gevonden

http://www.helpmij.nl/forum/showthread.php/716161-beveiligen-tegen-opslaan-toch-kunnen-omzeilen?highlight=bestand+opslaan+uitschakelen


Nu had ik dit in mijn bestand gezet maar dat is niet voldoende, daar het niet als read only opgestart wordt.

nu wil ik het zo maken dat als ik kom en het bestand is geopend en ik breng een wijziging aan dat ik het bestand door een macro toch op
kan slaan.

het is eventueel ook voldoende dat als het bestand afgesloten wordt er niet gevraagd word of het bestand opgeslagen moet worden.

 

[W Bloemendal]

ik heb het gevonden om het Read only op te slaan.

Maar is het mogelijk om als het bestand readonly geopend is en je er wijzigingen er in aan gebracht hebt om het met behulp van vba toch op te slaan.

nu sla ik het ook met vba op.

Sub MacroO()


    ActiveWorkbook.SaveAs Filename:= _
        "M:\My Documents\berekening 4spil nieuw.xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

    ActiveWorkbook.SaveAs Filename:= _
        "M:\Mijn Documenten\berekening 4spil nieuw.xls", FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
    
End Sub

nu zou dus eerst de read only uitgeschakeld moeten worden.

Wim

 

[Warme bakkertje]

Misschien denk ik te simpel, maar als je onderstaande in ThisWorkbook zet en je sluit je bestand dan af, krijg je geen vraag en worden wijzigingen niet opgeslagen.
Wil jij dan toch wijzigingen aanbrengen, open je bestand dan 'clean', wijzig je bestand en sla dan handmatig of via je macro op.
Op die manier hoef je niet te spelen met Readonly, want met een open workbook is dit niet te wijzigen(enkel bij afsluiten)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ThisWorkbook.Saved = True
End Sub

 

[W Bloemendal]

het werkt bedankt

wim