Robert Smidt
Gebruiker
- Lid geworden
- 26 mei 2009
- Berichten
- 901
Beste Helpmij'ers,
Ik heb een code die in een beveiligd werkblad een aantal regels zichtbaar moet maken, echter is het niet de bedoeling dat een onbevoegd iemand dat ook kan doen. Daarom heb ik bewust in de vba de code "ActiveSheet.Unprotect" zonder het wachtwoord erbij geplaatst, de reden hiervoor is dat iemand die bekend is met vba dan makkelijk de code kan ontfutselen.
Mijn probleem is wanneer iemand het script wil activeren het systeem om de code vraagt en bij een foute code of wanneer deze op annuleren drukt, het systeem een foutmelding (Eigenschap Hidden van klasse Range kan niet worden ingesteld) geeft. Vervolgens wanneer deze op foutopsporing klikt deze onbedoeld naar het script gaat.
Mijn bedoeling is: wanneer iemand het script activeert en een foute code, annuleren of helemaal niets invult, het systeem hier ook niets mee doet. Wat kan ik hiervoor aan onderstaande code toevoegen dat het systeem de code dan verlaat?
De code is:
Alvast hartelijk dank.
Robert
Ik heb een code die in een beveiligd werkblad een aantal regels zichtbaar moet maken, echter is het niet de bedoeling dat een onbevoegd iemand dat ook kan doen. Daarom heb ik bewust in de vba de code "ActiveSheet.Unprotect" zonder het wachtwoord erbij geplaatst, de reden hiervoor is dat iemand die bekend is met vba dan makkelijk de code kan ontfutselen.
Mijn probleem is wanneer iemand het script wil activeren het systeem om de code vraagt en bij een foute code of wanneer deze op annuleren drukt, het systeem een foutmelding (Eigenschap Hidden van klasse Range kan niet worden ingesteld) geeft. Vervolgens wanneer deze op foutopsporing klikt deze onbedoeld naar het script gaat.
Mijn bedoeling is: wanneer iemand het script activeert en een foute code, annuleren of helemaal niets invult, het systeem hier ook niets mee doet. Wat kan ik hiervoor aan onderstaande code toevoegen dat het systeem de code dan verlaat?
De code is:
Code:
Sub Overzichtenzichtbaar()
ActiveSheet.Unprotect
Rows("8:60").Select
Selection.EntireRow.Hidden = False
Range("C8").Select
ActiveSheet.Protect
End Sub
Alvast hartelijk dank.
Robert