1. Vloženie textu do pätičky: Podklady spracoval/a: Meno, priezvisko
2. Zakázaný príkaz Uložiť ako, vyskakujúce okno: Podklady spracoval/a: Meno, priezvisko, uloženie nie je možné
3. Zaheslované makro
Word (2007) - ThisDocument
Code:
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
Excel (2007) - ThisWorkbook
Code:
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
VBA projekt - makro - zaheslovanie
Celý projekt zbalený-klik pravým tlačidlom myši-Project Properties-Properties (alebo Tools-Project Properties-Properties)
Zaškrtneme možnosť Lock project for wieving a 2x napíšeme heslo.