Detecting change in Save As filename before hitting OK

[Lassebasse]

Hi everyone,

Maybe a cryptic Title but I'll explain:

I Use "Application.Dialogs(xlDialogSaveAs).Show(filename)" (containing prompted filename) to open Dialog window Save As.
Now, I want to detect if that filename in an way is changed before hitting "OK" to save (actually I want to prevent/stop any change of the filename).

Can I lock the filename to the prompted one, or at least exit code if any change is made to the filename before hitting "OK"?


Thank you in advance!


Regards
lassebasse

 

[frank_AL]

Take a look at this Forum Post and give the code posted there a try. It seems to be exactly what you are looking for.

[h=2]Locking/Protecting the filename[/h]

 

[Lassebasse]

Hi frank,

No, I'm afraid that doesn't help me. After the user klicks a button, another box appears (to fill in). After that the SaveAs Dialog opens with the prompted filename which I want to lock or at least detect change in, before the user klicks "OK".

Any other suggestions?

/Lassebasse

 

[frank_AL]

Can you post the code you are referencing and I can see if I can modify.

 

[Lassebasse]

What happens previous to the Save As dialog is not really important (a textBox with preset values appears, whithin maybe 1 value (outof 2) is changed, or not).

Then this Dialog opens:

If Application.Dialogs(xlDialogSaveAs).Show(filename) = False Then
    Exit Sub
End If

... in which I think I need an "ElseIf (prompted name changes)"
OR some way of locking the prompted name to prevent any change.

/Lassebasse

 

[Youngdand]

This link may help
https://answers.microsoft.com/en-us...cel-2010/64143948-958a-4a0e-a903-374c51d0eb09

 

[Lassebasse]

Thank you for your post, Youngdand.

From what I understand that code locks path to a certain folder to save in.
I need 1) to open saveas Dialog where the prompted filename is locked (user not being able to change it), but 2) user must be able to choose folder to save in.

 

[Youngdand]

How about, allowing the saveas to proceed, and using an after save event to get the path of the saved file, and write the correctly named file back to that path. (you could then possibly delete the file they saved).
<code class="lang-vb hljs vbnet"><code class="lang-vb hljs vbnet">

</code>Private Sub Workbook_AfterSave(ByVal Success As Boolean) 
If Success Then 

your code

End If 
End Sub<code class="lang-vb hljs vbnet">

</code></code>

 

[Youngdand]

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Dim Sl As String
Dim newfname As String
If Success Then
Sl = ThisWorkbook.Path
newfname = ("test")
Do While ThisWorkbook.FullName <> Sl & "\" & newfname & ".xlsm"
ThisWorkbook.SaveAs Filename:=Sl & "\" & newfname, FileFormat:=52
Loop
End If
End Sub

 

[Lassebasse]

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Dim Sl As String
Dim newfname As String
If Success Then
Sl = ThisWorkbook.Path
newfname = ("test")
Do While ThisWorkbook.FullName <> Sl & "\" & newfname & ".xlsm"
ThisWorkbook.SaveAs Filename:=Sl & "\" & newfname, FileFormat:=52
Loop
End If
End Sub

Thank you for your answer.
I've never used "after-save"-event, interesting ... , but I think this "after-saveAs-Work" would be something that this requires.

Is newfname the prompted filename of my choice?

So, your code first let the user save the file even with a changed promted filename, correct?

... and then loop through the "saved-in-folder" to save it yet again, but now with the prompted filename?
So far, there is 2 new saved files in the chosen folder?

(Is FileFormat:=52 = ".xlsm"?)


You mentioned something about deleting the first file, if the user saved one with a changed filename ...?
I think I would need that, how would that look in code? Could it be done using code, when I don't know the name of file?



TY very much for your time and effort!

Please bare with me if I don't get it!