а если укажут тотже самое гназвание, что и файл?
а так, если только разрешить "сохранять как"
ОЧЕНЬ ЖЕСТОКО
1.
2.
3.
4.
5.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Not SaveAsUI Then
Cancel = True
ThisWorkbook.Close False
End If
End Sub
менне жестоко
1.
2.
3.
4.
5.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Not SaveAsUI Then
Cancel = True
MsgBox "Используйте пункт меню 'Сохранить как'", vbCritical+vbOKOnly
End If
End Sub
конечно нужно разрешить использование макросов
