Ir ao conteúdo
  • Cadastre-se

Excel 07 botão


Aguiabrasil

Posts recomendados

  • 2 meses depois...

Fala pessoal ja consegui tb:

usei um codigo no vba bem simples que é:

Sub entra()

Dim x, z As Variant

x = Cells(7, 7)

z = Cells(8, 7)

If x = "jribeiro" And z = "112233" Then

Plan3.Activate

ElseIf x = "mferreira" And z = "112232" Then

Plan3.Activate

ElseIf x = "pcesar" And z = "112231" Then

Plan3.Activate

ElseIf x = "acorreia" And z = "112234" Then

Plan3.Activate

Else

MsgBox "Não é possível abrir o arquivo especificado.", vbExclamation

End If

End Sub

Link para o comentário
Compartilhar em outros sites

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...