DeadLine, muito obrigado!
Estou enviando um código parecido que gera o mesmo erro. O código é este:
Private Sub CommandButton1_Click()If TextBox1 = "RH" Then Sheets("RH").Visible = True worksheets("RH").Activate Sheets("RH").Cells(5, 5).SelectEnd IfUnload MeEnd Sub
Quando o usuário clica no botão RH, uma janela é aberta. Nessa janela, o usuário digita a senha "RH" numa textbox e clica em OK. Clicando em OK, este código é executado. Quando este código termina de rodar, a sheet RH fica visível.
Se eu digito algo na célula A1 de RH, fica como se eu não tivesse digitado coisa alguma. Mas, quando volto para a sheet Início, o conteúdo que eu tentei digitar em RH aparece na célula A1 de Início como se esta fosse a sheet ativa.
O curioso é que eu coloquei, só pra testar, uma linha de código que escreve um número 1 numa das células do RH. Com o código, o conteúdo é escrito na sheet correta. Mas, assim que o código para de rodar, eu tento escrever algo manualmente e o conteúdo vai para a sheet errada.
PS.: a ideia do cliente é tornar a sheet RH visível somente por quem tem a senha. Eu sei que dá pra quebrar esse mecanismo de "segurança" desabilitando as macros, avisei isso ao cliente, mas ele quer que seja feito assim.