» Poradna » Programy

Excel - makro proti odstranění/přidání řádků

 |   | 

Ahoj,

potřeboval bych radu jak zabezpečit makrem list tak, aby když se někdo pokusí odstranit nebo přidat řádek, aby se napsal varovný text a řádky se neodstranili/nepřidali. List nechci zamykat.

Pokud někdo víte jak na to byl bych moc vděčný za radu. Díky předem

Mohlo by vás také zajímat

Odpovědi na otázku

 |   | 

urcitym resenim je mimo oblast dat vlozit do bunky funkci =NYNÍ(), ktera je pri zmenach na listu prepocitavana ; napr.: N35 a do objektu list vlozit udalostni proceduru, ktera vyhodnoti zmenu radku s touto funkci pri vlozeni nebo odstraneni radku:

Private Sub Worksheet_Calculate()
Dim PoslRadek As Long, Response
PoslRadek = Range("n1", [n65000].End(xlUp)).Rows.Count
If PoslRadek = 35 Then Exit Sub ' nebyl pridan ani ubran radek
Application.EnableEvents = False
Application.Undo
If PoslRadek > 35 Then
Response = MsgBox("Řádek(y) nelze vložit!", vbCritical + vbOKOnly)
Else
Response = MsgBox("Řádek(y) nelze odstranit!", vbCritical + vbOKOnly)
End If
Application.EnableEvents = True
End Sub

Je dulezite, aby vlastnost EnableEvents byla nastavena na True, jinak nedochazi k prepoctu a volani procedury

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

Funkční a po všech stránkách vyhovující řešení.
Děkuji pěkně za pomoc

Souhlasím  |  Nesouhlasím  |  Odpovědět


Určitě si přečtěte

Nejlepší notebooky do 10 000 korun: Co má ještě smysl kupovat. A co ne?

Nejlepší notebooky do 10 000 korun: Co má ještě smysl kupovat. A co ne?

** Notebooky s cenou do deseti tisíc korun jsou plné kompromisů ** Existuje několik modelů dobře použitelných pro nenáročné použití ** Vhodnou alternativou jsou tablety nebo repasované počítače

David Polesný | 94

David Polesný
Jak vybrat notebookNotebooky
Jak se šíří Covid v Česku: Čerstvá data, semafor PES, mapy okresů a obcí. Každý den aktualizované grafy

Jak se šíří Covid v Česku: Čerstvá data, semafor PES, mapy okresů a obcí. Každý den aktualizované grafy

** Vývoj COVID-19 v Česku: nakažení, úmrtí, testovaní, hospitalizovaní ** Mapa podle okresů, přehled podle věku, situace v Evropě i ve světě ** Každý den aktualizované grafy a mapy

Marek Lutonský | 174

Marek Lutonský
COVID-19Koronavirus
Vodafonu se zhroutila kabelovka. Síť bývalého UPC má výpadky
Lukáš Václavík
VodafoneUPC
Nejlepší příslušenství k počítači. Tipy na osvědčené klávesnice, tiskárny, routery…

Nejlepší příslušenství k počítači. Tipy na osvědčené klávesnice, tiskárny, routery…

** Tipy na užitečné příslušenství k počítačům ** Poradíme, s jakými produkty neuděláte chybu ** Od drobností do USB až po routery a tiskárny

David Polesný, Stanislav Janů | 20

David PolesnýStanislav Janů
Příslušenství
Konec modrých obrazovek smrti? Microsoft vydává mimořádnou aktualizaci pro Windows 10
Karel Kilián
Windows UpdateAktualizaceWindows 10
Čím nahradit WhatsApp: Vyberte si z 10 alternativních komunikátorů

Čím nahradit WhatsApp: Vyberte si z 10 alternativních komunikátorů

** Z WhatsAppu kvůli novým podmínkám utíkají tisíce uživatelů ** Čím nahradit populární aplikaci pro zasílání zpráv? ** Vybrali jsme pro vás 10 alternativních komunikátorů

Karel Kilián | 113

Karel Kilián
KomunikaceWhatsAppInstant Messaging
Elon Musk podpořil Signal jako náhradu WhatsAppu. Aplikaci okamžitě zavalili uživatelé
Markéta Mikešová
WhatsAppElon MuskFacebook