Нашел код
Код |
---|
Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim lReply As Long
If SaveAsUI = True Then
lReply = MsgBox("К сожалению, вы не можете сохранить эту книгу под этим имеенм. " _
& "Сохранить под другим именем?.", vbQuestion + vbOKCancel)
Cancel = (lReply = vbCancel)
If Cancel = False Then Me.Save
Cancel = True
End If
End Sub |
Но есть небольшая проблема , надо необходимо чтобы он сохранял файл при закрытии без запроса у пользователей
то есть автоматическое сохраненеи при закрытии