25-11-11, 21:23
|
 | Super Moderator Όνομα: Θανάσης Στυλιανίδης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2010 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 18-10-2009 Περιοχή: Βρυξέλλες, Βέλγιο
Μηνύματα: 758
| |
Φίλε Θανάση,
δοκίμασε τον παρακάτω κώδικα στο κώδικα του βιβλίου Κώδικας: 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
|