Activeworkbook.Close Problem

[AlbertJoseph]

Hi everyone, im unable to open my workbook due to the code below

Private Sub Workbook_Open()
Dim user as string

User = Inputbox ("Please type your password")
If typename(user)="albert"
Msgbox "thank you"
Else
activeworkbook.Close

End sub

I tried a lot typing albert in the inputbox but still closing. Need your expertise on this. That workbook means a lot to me. Thank you!!

 

[shg]

Private Sub Workbook_Open()
  If InputBox("Password?") = "albert" Then
    MsgBox "thank you"
  Else
    Me.Close SaveChanges:=False
  End If
End Sub

 

[AlbertJoseph]

Hi shg, the problem is i cannot open the workbook anymore, is there a way that i can bypass the inputbox so that i can edit the codes further?

 

[Joe4]

Temporarily change your Trust Center settings in Excel to "Disable all macros with notification", then try opening the workbook.

 

[shg]

Or follow the instructions at https://www.jkp-ads.com/articles/preventopenevent.asp to just disable the workbook_open macro.