MS Excel

Dobrý den,

řeším do práce jednoduchý prográmek v excelu na cestovní výkazy viz příloha.
Pozn. všechny hesla jsou nastavené na "123" k visual basic heslo není.

Mám zde nastavené makro v jednotlivých listech proti změně formátu.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rngHlidani As Range
Dim VlozenaHodnota As Variant

'nastaveni hlidani oblasti
Set rngHlidani = Range("B8:J52")

VlozenaHodnota = Target.Value

' pokud je vybrana bunka z definovane oblasti tak proved
If Union(rngHlidani, Target).Address = rngHlidani.Address Then

With Application
.EnableEvents = False
.Undo
Range(Target.Address) = VlozenaHodnota
.EnableEvents = True
End With
End If
End Sub

Dále mám přidané tlačítko VBA "NOVÝ MĚSÍC", které nachystá formuláře na další měsíc .Tzn, že pouze vymaže obsah z neuzamčených buňek.

Po spuštění tlačítka "NOVÝ MĚSÍC" mi vyskočí error 1004 (.Undo). Pokud vymažu z jednotlivých listu VBA proti změně formátu. Tak to funguje, ale toto musí být zachováno.

Prosím pomůžete mi s tím někdo?

Moc děkuji.

Zaslat odpověď >

1234567890123(6.1.2020 15:55)#045473

Není vložen příloha.
Pro vložení souboru s makrem se musí soubor nejdříve zazipovat.citovat

elninoslov(6.1.2020 16:03)#045474

Pred použitím makra na nový mesiac, použite najskôr EnableEvents = False, aby sa nevyvolali makrá jednotlivých listov.
Inak to stráženie oblasti cez Address nieje dobré. Čo ak dôjde k zmene oblasti čiastočne prekrývajúcej stráženú oblasť ? Nebude to vyhodnotené ako strážená oblasť. Treba použiť Intersect.citovat

marjankaj(6.1.2020 18:01)#045479

řeším do práce jednoduchý prográmek v excelu na cestovní výkazy viz příloha.
Pozn. všechny hesla jsou nastavené na "123" k visual basic heslo není.
A k čomu je táto informácia? Myslíš, že si budeme sami vytvárať prílohy ako elninoslov? Takéto zadanie ani nebudem čítať nieto ešte riešiť.citovat

ambraa(6.1.2020 19:15)#045482

Nebyl jsem schopen to poslat z práce. Moc díky, že se na to podíváte.

Děkujucitovat

Téma: Zakázání úprav formátu vs Error 1004

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje