Log openen na VBA Visble script

[HyperXnl]

Goedenavond allemaal,

Vandaag aan de gang geweest met een script van Jeanpaul28/ laatste edit door Roncancio.
(logbestand scriptje) Linkje naar script met voorbeeld bericht #27

Alleen nu heb ik me tabbladen verborgen (via excel voorkeuren). Is er een mogelijkheid om op basis van bovenstaande scriptje, na het inloggen direct naar het "logblad" te gaan.

Private Sub Cmd_OK_Click()
Sheets("Log").Visible = Me.txt_Wachtwoord.Value = "xxx"
If Me.txt_Wachtwoord.Value = "xxx" Then Unload Me
End Sub

Zover ik kan zien zou het hier ergens in moeten dan, stukje van:

Sheets("Log").Visible = Me.txt_Wachtwoord.Value = "xxx"
If Me.txt_Wachtwoord.Value = "xxx" Then Unload Me

mag blijven staan, is wellicht ooit handig in de toekomst

Grtz. Michael

 

[HyperXnl]

Inmiddels oplossing gevonden:

Private Sub Cmd_OK_Click()
Sheets("Log").Visible = Me.txt_Wachtwoord.Value = "xxx"
Sheets("Log").Select
If Me.txt_Wachtwoord.Value = "xxx" Then Unload Me
End Sub

Grtz.

 

[HSV]

Test het maar eens.

Private Sub Cmd_OK_Click()
Sheets("Log").Visible = Me.txt_Wachtwoord.Value = "xxx"
If Me.txt_Wachtwoord.Value = "xxx" Then
  Unload Me
[COLOR=#3333ff]  application.goto sheets("Log").cells(1)
end if[/COLOR]
End Sub

Edit: Ik zie dat je wat gevonden hebt, maar dat is niet de oplossing.
Als het wachtwoord fout is loopt de code door en dan staat er dat je het betreffende blad moet selecteren, maar dat blad is verborgen.