Msgbox bij openen bepaald blad

[Schipperjte]

Hoi,

Ik probeer een msgbox te laten komen bij openen van een bepaald werkblad (gegevens)

HIj is al verborgen maar het zou fijn zijn als er een msgbox tevoorschijn komt met een melding .

Heb wel dit gevonden bij veranderen cel

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
MsgBox "U hebt de inhoud van cel A1 veranderd!"
End If
End Sub


Maar dit zou moeten komen als ik het werk blad open voor er een cel veranderd word ivm koppelingen

 

[zapatr]

Als je rechtsboven in Excel waar je macro staat en waar je "Change" ziet staan, op het pijltje daarnaast had geklikt, dan had je meteen het antwoord op je vraag gevonden. Want wat ligt er - gelet op je vraag - meer voor de hand dan daar in plaats van "Change" te kiezen: "Activate"?

 

[Schipperjte]

Inderdaad ,daar keek ik overheen

Heb er nu dit van gemaakt

Private Sub Worksheet_Activate()
MsgBox "Jij hebt een blad geopend wat niet mag ,kijk uit voor veranderingen!"
End Sub


Bedankt.:thumb: