Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.
Private Sub START_TIME_GotFocus() Dim strPasswd strPasswd = InputBox("Please Enter Admin Password", "Start Time is Restricted") 'Check to see if there is any entry made to input box, or if 'cancel button is pressed. If no entry made then exit sub. If strPasswd = "" Or strPasswd = Empty Then MsgBox "No Password Provided", vbInformation, "Password Required" Exit Sub End If 'If correct password is entered unlock Start_Time 'If incorrect password entered give message and exit sub If strPasswd = "JAX" Then Me.START_TIME.Locked = False Else MsgBox "Sorry, you do not have access to the start time", vbOKOnly, "Password Incorrect!" Exit Sub End If End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Best way to get data into a database||12||54|
|Adjusting a Button Control to register a different number||12||41|
|Transfer Worksheet Data to Userform & Calculate based on Sum Range||28||42|
|Copy one row (from Word) into one cell||14||43|
Join the community of 500,000 technology professionals and ask your questions.