Thank you for investigating.
Yes, I verified that (the uncoded) Excel allows saving once before print is fired using Private Sub Workbook_BeforePrint. However not with the command ThisWorkbook.Save (in the uncoded Excel this command does not initiate saveas and no dialog). The command (or set of commands) needed to saveas with dialog in the uncoded Excel are different. They work in any sub, they are integrated in. However all the different commands explored do not work correctly within the coded Excel.
It is the padlock-coded Excel that does not execute the command ThisWorkbook.Save (saving with xlsc-save-dialog-box) correctly when this command is integrated in the Private Sub Workbook_BeforePrint (cancel As Boolean) or in any other sub called within the Private Sub Workbook_BeforePrint.
So the problem only arises with the padlock-coded Excel. Why?
For the padlock-coded Excel to initiate saving with the xlsc-save-dialog-box the command ThisWorkbook.Save was recommended. It seems strange to me, that with this command a different action is initiated in the coded Excel (saveas with dialog) than in the uncoded Excel (save without dialog). Why?
Are there alternative commands or set of commands for the coded Excel to initiate saving with xlsc-save-dialog-box?
How can I solve my problem?