Zavrieť

Porady

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

Kabaka123 Kabaka123

Kabaka123 je offline (nepripojený) Kabaka123

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.
Naposledy upravil Kabaka123 : 30.08.22 at 10:54

Porady, ktoré by ťa mohli zaujímať

Prihlás sa a sleduj na hlavnej stránke len Porady, ktoré ťa zaujímajú.

Podobné témy

  1. Príspevkov: 4, Posledný príspevok: 28.07.17
  2. Príspevkov: 1, Posledný príspevok: 24.09.10
  3. Príspevkov: 1, Posledný príspevok: 27.01.07
  4. Príspevkov: 7, Posledný príspevok: 29.11.06
  5. Príspevkov: 30, Posledný príspevok: 06.02.06