jackfish
Gebruiker
- Lid geworden
- 10 sep 2010
- Berichten
- 297
Ik wil graag dat een Excel-bestand alleen via een CMD-button (die op het werkblad staat) opgeslagen kan worden. Via onderstaande code kan ik wel voorkomen dat 'Opslaan Als' wordt gebruikt maar gewoon Opslaan gaat dan nog wel.
Op welke manier werkt het ook voor Opslaan?
Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = True Then
Cancel = True
MsgBox "Zo kunt u de tijdsregistratie niet opslaan. Gebruik de knop op het werkblad.", vbCritical
End If
End Sub
Op welke manier werkt het ook voor Opslaan?