MS Excel

Téma: TIP - Kuleha na kolegov/kolegyne excel aj word

Zaslal/a kabaka 30.8.2022 10:39

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
(Ďakujem elninoslov)

Excel (2007) - ThisWorkbook

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

Word (2007) - ThisDocument
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

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.

Zaslat odpověď >

eLCHa(1.9.2022 10:40)#053304

Pokud tu dáváte nějaký tip a chcete, aby si ho někdo našel v budoucnu tak vlákno lépe pojmenujte. Tuším, že 'kuleha' tady nikdo hledat nebude.

A jen poznámka k tomu zákazu ukládání. Zakázat to makrem je nejméně bezpečná cesta jak toho dosáhnout. V jiném makru používáte Application.EnableEvents = False, pokud vám to za tímto příkazem zkolabuje a už to nezapnete zpět, událost Workbook_BeforeSave se nespustí.
Lepši variantou je prostě označit soubor jen pro čtení
Ještě lepší variantou je uložit s možností otevřít pro zápis jen pomocí hesla, jinak pro čtení (nastavuje se v dialogu Uložit jako -> Nástroje -> Obecné možnosti)
Nejlepší variantou je dát do adresáře, kde máte přístup pro zápis pouze vy a ostatní pouze pro čtení (tohle je 100%, jediné co si hlídáte je oprávnění)citovat

kabaka(6.9.2022 13:02)#053327

eLCHa napsal/a:

Pokud tu dáváte nějaký tip a chcete, aby si ho někdo našel v budoucnu tak vlákno lépe pojmenujte. Tuším, že 'kuleha' tady nikdo hledat nebude.

A jen poznámka k tomu zákazu ukládání. Zakázat to makrem je nejméně bezpečná cesta jak toho dosáhnout.

Ďakujem za upozornenie, premenovať sa mi to už nedá.
A k tej poznámke, ďakujem za doplnenie a informácie.citovat

Téma: TIP - Kuleha na kolegov/kolegyne excel aj word

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje