TIP - Kuleha na kolegov/kolegyne - makro na ošéfovanie vlastnej práce - Word aj Excel

 Option Explicit

Private Sub Document_Open()
    Dim Doc As Document
    Dim wSection As Section
    Set Doc = ThisDocument
        For Each wSection In Doc.Sections
        With wSection.Footers(wdHeaderFooterPrimary)
              .Range.Text = "Podklady vypracoval/a: Meno, priezvisko"
End With
Next wSection
Set Doc = Nothing
End Sub

Sub FileSaveAs()
MsgBox ("Podklady vypracoval/a: Meno, priezvisko, uloženie nie je možné")
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then
    MsgBox "Podklady vypracoval/a: Meno, priezvisko, Uloženie nie je možné", vbInformation
    Cancel = True
End If
End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
ActiveSheet.PageSetup.CenterFooter = "Podklady vypracoval/a: Meno, priezvisko"
Application.EnableEvents = False
ActiveSheet.PrintOut
Application.EnableEvents = True
ActiveSheet.PageSetup.CenterFooter = ""
End Sub