• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Odomknutie hárku makrom - chyba

Zaslal/a Zdeno-Frano 30.8.2018 12:26

Poprosím o pomoc. Mám makro na odomknutie hárku, ktoré ho odomkne, zmení bunky, ktoré majú byť zamknuté a znovu hárok zamkne s tým, že pred odomknutím musím zadať kód ktorým je hárok zamknutý. Ak však zadám iný kód, alebo zvolím možnosť ZRUŠIŤ, vyhodí mi to Run-Time error 1004:

Sub Odomkni()
ActiveSheet.Unprotect
Range("A1:DD179").Select
Selection.Locked = False
ActiveSheet.Range("A1:AK7 , A8:C131 , K8:AH131 , AK8:AK131 , A132:AK135 , A136:AE136 , AG136:AK136 , A137:AK171 , AO1:DD133").Select
Selection.Locked = True
ActiveSheet.Protect "1234"
End Sub

Potreboval by som, aby v takomto prípade nezobrazilo okno VBA s možnosťou úpravy makra, ale iba oznam napr.: "Nesprávne heslo. Zadaj iné heslo." a tlačítka na potvrdenie a Zrušiť.
Ďakujem za pomoc

Jméno
Kontrola
Text
	Ukázka

---

eLCHa(31.8.2018 8:48)#041366

Sub Odomkni()
On Error Resume Next
ActiveSheet.Unprotect
On Error GoTo 0
If ActiveSheet.ProtectContents Then
MsgBox "Špatné heslo"
Else
'kód
ActiveSheet.Protect "1234"
End If
End Subcitovat

Zdeno-Frano(2.9.2018 16:09)#041390

Ďakujem, pomohlo.citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse