MS Excel

Pokiaľ máš tlačítkom na mysli ovládací prvok formulára, nie prvok ActiveX, tak výzvu k zadaniu hesla je možné ošetriť napr. takto:Sub tlacitko_click()
'heslo nastavene na: HESLO
Dim pass As String
pass = InputBox("Heslo, prosim")
If pass <> "HESLO" Then Exit Sub
MsgBox "spravne heslo - makro pokracuje v behu"
'sem pride samotny kod s makrom,
'bud priamo dopises do kodu, alebo budes volat instrukciou Call
End SubV danom prípade sa ale heslo zapisované do Inputboxu zobrazí. Pokiaľ by si chcel, aby sa miesto neho zobrazovali hviezdičky, budeš musieť vytvoriť miesto InputBoxu vlastný formulár s TextBoxom, v jeho vlastnostiach nastaviť vlastnosť PasswordChar.

Zamknúť tlačítko (ovládací prvok formulára) proti "zmačknutiu" dosť dobre nejde.
Ovládaciemu prvku ActiveX je možné nastaviť vlastnosť Enabled na False, ale to tvoj problém pmn nerieši.citovat

Predošlý súbor som doplnil o formulár s overením heslom na prvé tlačítko. Heslo je "abc". Treba potom samozrejme zmeniť heslo pre vstup do makier, ktoré je tiež "abc" :
Vo VBA označ tento VBAProject(Zamknut tlacitko.xlsm) - Tools - VBAProject Properties - Protection - 2x heslocitovat

V tom príklade od "AL" nahraď :
If pass <> "HESLO" Then Exit Sub
za
If pass <> "HESLO" Then
MsgBox ("špatné heslo")
Exit Sub
End If
Po tomto bloku nasleduje Tvoj kód, ktorý sa vykoná keď je heslo správne, a ukončuje ho až ukončenie procedúry "End Sub"
Obdobne bez problémov upravíš aj ostatné príklady...citovat