ניסיון 1 . . .
![](http://timg.co.il/f/Emo281.gif)
קוד:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("גיליון1").[D4] = Sheets("גיליון 1").[D4] + 1
Application.GetSaveAsFilename Sheets("גיליון 1").[D4]
Cancel = 1
End Sub