neuložení změn v red-only excelu

[butes]

Dobrý den všem

potřeboval bych poradit.

Máme v práci na serveru excel soubor, do kterého mají přístup cca 50 lidí. Pokud otevře tento soubor vícero lidí, dochází k uložení kopií.

Sharing nepříchází v úvahu.

Lze nějak přes VBA ověřit zda se jedná o Read-only dokument. A u něj potom neumožnit uložení a tím vytvoření kopie?

Díky za pomoc

[Reklama]

[petr22]

Nejjednodussi je na sitovem disku nastavit prava tak, aby uzivatel nemel opravneni vytvaret nove soubory.

[butes]

Asi jsme se nepochopili.

Já chci aby lidé zapisovali do excelu, ale v jeden čas pouze jeden. Pokud je excel otevřený na jiném počítači, tak druhý uživatel otevírá pouze read-only verzi, a udělá mi do této read verzi změnu a uloží to jako kopii.

žádné školení nepomáhá, chtěl bych udělat opravdu BLBUODOLNÝ způsob

[petr22]

Bez opravneni k zalozeni noveho souboru tu kopii neulozi.

Tudiz bud zapise do puvodniho souboru, nebo k sobe na lokalni disk.

[eLCHa]

Mno - ono by bylo ideální řešit to přes oprávnění. Problém ale je, že většinou nemáme oprávnění nastavovat oprávnění a s těma co na to oprávnění mají se nedomluvíme, protože v lepším případě sedí např na Slovensku, v tom horším někde v Asii. A když máme to štěstí, že sedí u nás, tak nám stejně nerozumí, i když na ně mluvíme česky - prostě kompíci no ;)))

Zkuste něco takového

Kód: Vybrat vše

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  Cancel = ThisWorkbook.ReadOnly
End Sub