|
Schakel de Opslaan als uit |
|
|
|
|
Schakel de opslaan als-functie uit zodat alleen gewoon opslaan gebruikt kan worden; Private Sub Workbook_BeforeSave( _ ByVal SaveAsUI As Boolean, Cancel As Boolean) If SaveAsUI = True Then MsgBox "Please use 'Save' to Save this Workbook...", vbCritical Cancel = True End If End Sub
|