Hi Steve.. pls give me solution about password.. my entire work in that file.. it is not opening now..
When you are asked to 'Enter PAssword', hit CTRL+BREAK on your keyboard.
Replace the code with this..
Private Sub Workbook_Open() Correct_Password = "test" ' Set this to the password you want. myDate = "7/19/2019 8:21:22 AM" ' Set this to the date/time you want doOpen = False: aFail = 0 If myDate > Now Then Do Until doOpen uPwd = InputBox("Enter Password", "Authentication Required") If uPwd = Correct_Password Then doOpen = True End If Select Case doOpen Case True Exit Sub Case Else aFail = aFail + 1 If aFail >= 3 Then Application.DisplayAlerts = False ThisWorkbook.Close End If End Select Loop End If End Sub