< návrat zpět

MS Excel


Téma: Odomknutie hárku makrom - chyba rss

Zaslal/a 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

Zaslat odpověď >

icon #041366
eLCHa
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 Sub
citovat
#041390
avatar
Ďakujem, pomohlo.citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Nahrazení kontingenční tabulky vzorcem

lubo • 9.6. 9:39

Nahrazení kontingenční tabulky vzorcem

elninoslov • 8.6. 19:03

Nahrazení kontingenční tabulky vzorcem

lubo • 8.6. 16:18

tisk do pdf

titus • 8.6. 14:01

Nahrazení kontingenční tabulky vzorcem

spoko33 • 8.6. 13:25

Nahrazení kontingenční tabulky vzorcem

spoko33 • 8.6. 13:24

Nahrazení kontingenční tabulky vzorcem

elninoslov • 8.6. 13:13