Pomocí makra změna jiného makra

[revol]

V návaznosti na můj předchozí příspěvěk, kde jste mi poradili makro jak upravit pomocí makra mnou zamčenou buňku,

Kód: Vybrat vše

Sub ZmenaZamcenehoListu()
With ThisWorkbook.Worksheets(1)
    'odemkne
    .Protect Password:="123456", UserInterfaceOnly:=True
    'zmeni obsah bunky A1
    .Range("A1").Value = "blabla"
End With
End Sub

1) bych se chtěl zeptat, zda je možné, vytvořit makro, které upraví jiné makro? V souboru, který mají uživatelé je makro na seřazování buněk (jmenuje se Sort) a definuje, že má řadit podle sloupce B a pak A, potřeboval bych makrem (které si pak pustí každý sám), aby nejprve řadil podle D a až potom podle B. Lze to?

2) lze pomocí makra upravit oblast, která nemá být zamčená? V listu mám nadefinováno, že uživatel může upravovat buňky A6:G157 a potřeboval bych, aby mohli upravovat A6:H157


Moc děkuju za pomoc.

[Reklama]

[cmuch]

ad1)
To makro, které si pustí sám bude kde? V tom samém sešitě?

ad2)
zamknu vše a pak odemknu co potřebuji

Kód: Vybrat vše

Cells.Locked = True
Range("G8:O24").Locked = False

[revol]

ad1) makro bude v novém souboru, který pošlu všem, kdo používá původní excel. V něm bude to makro, se kterým potřebuji pomoci, pod klávesovou zkratkou. Každý si otevře toto a ten původní, stiskne zkratku a makro se opraví. Následně mu pak bude fungovat tlačítko sort dle té úpravy, ale nevím, zda to lze?

[cmuch]

Lze, ale je to nebezpečné!

Stejně by si musel každý uživatel přenastavit nastavení excelu a stávající projekt VBA.
Což se asi nechce.

Další možnost je vytvořit doplněk, který by se dal pak aktualizovat automaticky, ale pro první spuštění by si zase musel každý uživatel nastavit sám.

Nebo Udělat nový soubor s novým makrem a stávající data do něj nakopírovat, ale záleží na původním souboru jak vypadá.

[revol]

- o jaké nastavení jde? Zvládne to dle instrukcí běžný uživatel?
- jaký by to byl doplněk a opět co by obnášel?
- nový soubor nelze. Nyní soubor používá 36 kolegů a každý má 5-10 jeho kopií, každý soubor má pak 7 listů. Takže jsem na cca 2000 listů,které by se museli překopírovat, proto to řeším opravným makrem, které vždy uživateli pošlu a pod zkratkou si to každý sám opraví. Formátování jsem takto vyřešil, jen nevím co s tím makrem...

[cmuch]

A nebude jednodušší jim říci aby si naimportovali to makro sami.
Nevím zda je uloženo v modulu, na listu...
Nebo aby to staré smazali a nové nakopírovali místo něj.

Než zasahovat do nastavení excelu.

[revol]

Není protože neznají heslo, jedná se o zahelsovaný excel i makra. Proto používám jiné makro, které napřed soubor odhesluje, upravý a zase zahesluje

[cmuch]

Pokud neznají heslo tak si sami nic nezmění a ty to budeš muset u každého provést sám.
Tyto nastavení nejdou měnit makrama.

[revol]

Pro úpravy používám buď

Kód: Vybrat vše

.Protect Password:="123456", UserInterfaceOnly:=True

nebo

Kód: Vybrat vše

ActiveSheet.Unprotect Password:="123456"

a dalšíma funkcema upravím dokument. Pro makro to tedy nejde? Tušil jsem to:(

Napadá Vás jak byste to řešili. V každém listu mají uživatelé různá tlačítka s různými funkcemi (makro), jak jim tam přidat nebo změnit tlačítko s makrem s co nejmenší potřebou mého zásahu?

Zatím mě nic nenapadá