Ανανέωση ιστοσελίδας

[devcon]

Καλησπέρα,

Θα ήθελα την βοήθεια σας ώστε να υπάρχει ένα μήνυμα πριν κλείσω το υπολογιστικό φύλλο να δώσω το όνομα στην επικεφαλίδα (header) και ακολούθως να αποθηκευθεί με το όνομα της επικεφαλίδας.

ActiveSheet.PageSetup.CenterHeader.Filename = _      “prompt to insert header name”

And then

ActiveWorkbook.SaveAs Filename:="C:\Users\Exon\Documents\AAA PDF Files" _
& "\" & ActiveCell.Value & ".xls", _
FileFormat:=xlWorkbookNormal
ActiveWorkbook.Close

Σας ευχαριστώ.

[gr8styl]

Φίλε Θανάση,
δοκίμασε τον παρακάτω κώδικα στο κώδικα του βιβλίου

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim sht As Worksheet

On Error Resume Next
For Each sht In ActiveWorkbook.Sheets
    sht.PageSetup.CenterHeader = "&Z&F"
Next
ActiveWorkbook.SaveAs Filename:=InputBox("Give filename:", , ActiveWorkbook.FullName), _
    FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
    ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

[devcon]

Θανάση καλημέρα,

Όπως πάντα άψογες οι λύσεις σου.

Σε ευχαριστώ και σου εύχομαι καλό Σαββατοκύριακο.