macro aanpassen

[lsc.b]

deze code hier gevonden maar er rest een kleine vraag nog is het mogelijk dat het wachtwoord,
afgeschermd word met puntjes of steretjes wachtwoord is namelijk zichtbaar voor potekijkers

Public Sub MyMacro()
Const PWORD As String = "wachtwoord"
Dim response As String
Dim msg As String
msg = "Voer wachtwoord in:"
Do
response = Application.InputBox(Prompt:=msg, _
Title:="Password", Type:=2)
If response = CStr(False) Then Exit Sub 'Cancelled
msg = "Incorrect!" & vbNewLine & "Voer opnieuw wachtwoord in:"
Loop Until response = PWORD

'Voer code in

End Sub

 

[edmoor]

Niet zonder heel moeilijk te doen.
Maak er een Userform voor.
Het TextBox object van een Userform heeft daar namelijk wel een attribuut voor.

 

[lsc.b]

Edmoor dit heb ik meerderemalen geprobeerd maar dit lukt mij niet.
zie door de vele schermpjes niet meer wat ik aan het doen ben,
dus kun je en wil je mij helpen.

 

[edmoor]

Kijk maar eens naar dit:
Bekijk bijlage lsc.b.xlsm

Er wordt om een wachtwoord gevraagd bij het openen van het document.
Bij een juist wachtwoord verdwijnt het schermpje en kan je in het document werken.
Bij een klik op het kruisje van dat formulier wordt Excel afgesloten.

Het wachtwoord is lsc.b en staat in het Tag attribuut van van de textbox (txtWachtwoord).
Kijk ook naar het gebruikte font voor die textbox (Webdings) en het PasswordChar attribuut, de letter n.

 

[lsc.b]

Edmoor bedankt zover maar na een midagje froten kom ik er nog niet uit

ik wil de volgende code er bij plaatsen maar weet me geen raad waar.
( in de code die u heeft gemaakt )

in thisworkbook moet volgens mijn gegevens het volgende staan.

Private Sub workbook_open()
Application.ExecuteExcel4Macro "show.toolbar(""ribbon"",false)"
End Sub

en in de module zou dan het volgende moeten staan

Sub Show_menu()
Application.ExecuteExcel4Macro "show.toolbar(""ribbon"",True)"
End Sub

in blad kan men nog een macro knop maken voor de popup van het wachtwoord of alt+f8 en dan popup

hoe dit op te lossen ik weet het niet

 

[edmoor]

Begrijp ik goed dat je bij het openen van het document het lint wilt verbergen en deze d.m.v. een knop weer zichtbaar wilt maken waarbij eerst om een wachtwoord wordt gevraagd?

 

[lsc.b]

kun je het voor mij realiseren

 

[edmoor]

Ja, dat is simpel:
Bekijk bijlage lsc.b.xlsm

 

[lsc.b]

hartelijk bedankt