Foutmelding tijdens opslaan

[alfa911]

Goedemiddag,

Als een excel-file is geopend en iemand anders heeft deze file ook geopend om alleen in te zien en hij bediend een macro waarin een opslaan regel in staat krijgt hij de foutmelding dat je dit bestand niet mag opslaan.
Dit klopt ook. Hoe kan ik de macro aanpassen zodat de macro alleen opslaat als hij niet lezen is.

Alvast bedankt.

Bekijk bijlage test opslaan.xlsm

 

[gast0660]

Lost deze uw probleempje op?

Sub testopslaan()
On Error GoTo oops
    [K2] = 1
    [K3] = 2
    [K4] = 3
    [K5] = 4
    [K6] = 5
    [K7] = 6
    [K2:K7].Interior.Color = 65535
ActiveWorkbook.Save
oops:
End Sub

 

[SjonR]

If Not ActiveWorkbook.ReadOnly Then

"jouw code ertussen'

End if

 

[edmoor]

Dit dus in de ThisWorkbook sectie:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If ActiveWorkbook.ReadOnly Then Cancel = True
End Sub

 

[alfa911]

Dank jullie wel.
Ik ga hem proberen.

 

[alfa911]

Allen bedankt,

Ik heb die van Edmoor getest, als je afsluit vraagt hij nu of hij save as moet opslaan. Hij laat dan de directory zien waar het bestand staat.
Deze twee laatste stappen wil ik liever niet, dus bij sluiten ook direct sluiten zonder die laatste twee stappen.

 

[edmoor]

Doe er eens een extra stukje bij. Het totaal wordt dan dit:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If ActiveWorkbook.ReadOnly Then
        ActiveWorkbook.Saved = True
    End If
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If ActiveWorkbook.ReadOnly Then
        Cancel = True
    End If
End Sub

 

[alfa911]

Dank je, alleen krijg je nog de melding of je de wijzigingen op wil slaan. Kan deze melding ook uit geschakeld worden en direct naar afsluiten gaan.

 

[edmoor]

Dat is wat dat extra stukje doet. Staat je document wel op Alleen lezen?

 

[alfa911]

Het blijft helaas hetzelfde, ook als je dit bestand op een andere naam op wil slaan gaat dit niet.

 

[edmoor]

En hier werkt het prima met het document dat je in #1 plaatste.
Plaats hem nog eens zoals je hem nu hebt.

 

[alfa911]

Klopt, in voorbeeld bestand werkt hij goed. De toepassing in mijn eigen bestand werkt nu ook. Bedankt voor alle moeite.