Sub auto_open()<br><br><br> ' criar a variavel tipo string<br> Sheets("Entrada").Select<br> Dim Lee As String<br> Lee = InputBox("Digite uma senha")<br> <br> If UCase(Lee) = "ABC" Then
por Bruno