ginogcsbelgie
Gebruiker
- Lid geworden
- 17 nov 2014
- Berichten
- 63
Goeiemorgen iedereen, ik ben met een stukje vba code aan het experimenteren om de vbinformatie in de balk van een messagebox of inputbox aan te passen, en het lukt me wel in een messagebox maar niet in een inputbox?
Kan iemand me hierbij verder helpen?
Nu krijg ik telkens Microsoft Exell in de bovenbalk van de inputbox wanneer deze verschjnt maar wil dezelfde tekst krijgen in de inputbox als in de messagebox, "Opdrachtenreeks"
Kan iemand me hierbij verder helpen?
Nu krijg ik telkens Microsoft Exell in de bovenbalk van de inputbox wanneer deze verschjnt maar wil dezelfde tekst krijgen in de inputbox als in de messagebox, "Opdrachtenreeks"
Code:
Sub okcode()
'
' okcode Macro
'
Do
wachtwoord = InputBox("Voer uw code in om te starten!)")
If wachtwoord = "" Then Exit Sub
Loop Until wachtwoord = "azerty"
ActiveSheet.Unprotect "7832"
Range("d17").Select
Selection.Copy
Range("l9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("d17").Select
Selection.Copy
Range("c17").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Protect "7832"
A = MsgBox("Uw opdracht is uitgevoerd!", vbInformation, "Opdrachtenreeks")
End Sub