Este fórum está sendo desativado

[marcoenz]

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

Código: Selecionar todos

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

[JCabral]

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

[marcoenz]

muito obrigado, eu vou tentar isso