Guru do Excel e Power BI

Enviado: **15 Jul 2021 às 19:05**

Prezados, como faço para poder alterar o título de uma inputbox?

Sub ABRIR_PLANILHA_RH()

Dim SENHA As String
SENHA = InputBox("DIGITE A SENHA PARA ACESSAR A PASTA RH")
If SENHA <> "1234" Then
MsgBox ("SENHA INCORRETA, ACESSO NEGADO"), vbCritical, "ERRO"
Else
Sheets("RH").Select
ActiveSheet.Unprotect "1234"
MsgBox "SEJA BEM VINDO", vbInformation, "Aviso"
End If
End Sub

no código acima, a minha inputbox vem com o nome padrão do excel, porém eu gostaria de poder alterar esse nome para por exemplo:

Código: Selecionar todos

InputBox("DIGITE A SENHA PARA ACESSAR A PASTA RH"),"Para acessar digite a senha correta"

sei que não é assim, mas a ideia seria essa

desde já agradeço pela atenção de todos

Enviado: **15 Jul 2021 às 19:32**

Tenta assim:

Código: Selecionar todos

Sub ABRIR_PLANILHA_RH()

    Dim SENHA   As String
    
    SENHA = InputBox("DIGITE A SENHA PARA ACESSAR A PASTA RH", "Para acessar digite a senha correta")
    
    If SENHA <> "1234" Then
        MsgBox ("SENHA INCORRETA, ACESSO NEGADO"), vbCritical, "ERRO"
    Else
        Sheets("RH").Select
        ActiveSheet.Unprotect "1234"
        MsgBox "SEJA BEM VINDO", vbInformation, "Aviso"
    End If
    
End Sub

Enviado: **16 Jul 2021 às 05:37**

muito obrigado, eu vou tentar isso

Guru do Excel e Power BI

Alterar título da inputbox

Alterar título da inputbox

Re: Alterar título da inputbox

Re: Alterar título da inputbox