Altijd bovenaan werkblad

[wacco]

Hallo,
In een beveiligd werkboek, heb ik een werkblad waarbij alle cellen zijn beveiligd.
Geen enkele cel is benaderbaar (werkblad is een handleiding)
Nu zou ik graag willen dat elke keer als dit werkblad wordt geopend, wat d.m.v. een Commandbutton gebeurt, dit blad opend naar een vast ingestelde plaats.
Deze plaats zou de bovenzijde van het werkblad moeten zijn.
De bedoeling is dat, wanneer op dit werkblad wordt gekeken, en naar beneden wordt gescrollt, en daarna wordt afgesloten....dat de volgende keer dat dit werkblad wordt geopend, altijd wordt geopend aan de bovenzijde.

Is dit mogelijk, het liefst zonder de beveiliging eraf te halen.

 

[Roncancio]

Voeg onderstaande coderegel toe aan je macro.

Application.Goto Range("A1")

Met vriendelijke groet,


Roncancio

 

[hoogteijling]

Misschien gaat het wel goed als je het bestand als sjabloon opslaat (xltx of xltm)

Kun je er anders niet een pdf van maken ?

Groeten Marcel

edit: ik zag dat het een werkblad is die beveiligd is, ik dacht het complete bestand, dan klopt mijn oplossing niet

 

[wacco]

Misschien gaat het wel goed als je het bestand als sjabloon opslaat (xltx of xltm)

Kun je er anders niet een pdf van maken ?

Groeten Marcel

edit: ik zag dat het een werkblad is die beveiligd is, ik dacht het complete bestand, dan klopt mijn oplossing niet

Zowel werblad als werkboek zijn beveiligd.
En het werkblad maakt deel uit van andere werkbladen, het is dus geen op zich zelf stand werkblad.
Dus als sjabloon opslaan lijkt mij geen optie.

 

[hoogteijling]

Ik had mijn berichtje al aangepast,
zie edit in eerder bericht:

groeten Marcel

 

[wacco]

Voeg onderstaande coderegel toe aan je macro.



Code:
Application.Goto Range("A1") Met vriendelijke groet,


Roncancio

Ik heb het voorstel er tussen geplaatst, maar helaas.
Staat deze misschien op de verkeerde plaats??

Private Sub Help_Click()
Application.ScreenUpdating = False                  'Screen updating uit
ActiveWorkbook.Unprotect Password:=ww1              'Beveiliging van werkboek, inactief
Blad5.Visible = xlSheetVisible                      'Blad zichtbaar
Blad5.Select                                        'Selecteer blad
Application.Goto Range("A1")
Blad1.Visible = xlSheetHidden                       'Verberg blad
Blad2.Visible = xlSheetHidden                       'Verberg blad
ActiveWorkbook.Protect Password:=ww1                'Beveiliging werkboek, actief
Menu_gebruiker_1.Hide                               'Verberg menu
Application.ScreenUpdating = True                   'Screen upating aan

End Sub

 

[wacco]

De optie van Roncancio, heeft mij wel op een idee gebracht.
Nog wat verdergezocht, en regel gevonden om in te voegen.
Nu ingevoegd, en alles lijkt te werken.
Moest wel ff tijdelijk de beveiliging van het werkblad afhalen, en na regel er weer terug op.....maar dat is geen probleem.
Code is nu als volgt :

Private Sub Help_Click()
Application.ScreenUpdating = False                  'Screen updating uit
ActiveWorkbook.Unprotect Password:=ww1              'Beveiliging van werkboek, inactief
Blad5.Visible = xlSheetVisible                      'Blad zichtbaar
Blad5.Select                                        'Selecteer blad
Blad5.Unprotect Password:=ww1                       'Beveiliging werkblad, inactief
Application.Goto Reference:=Blad5.Range("A6"), Scroll:=True 'Ga naar cel A6, bovenzijde pagina
Blad5.Protect Password:=ww1                         'Beveiliging werkblad, inactief
Blad1.Visible = xlSheetHidden                       'Verberg blad
Blad2.Visible = xlSheetHidden                       'Verberg blad
ActiveWorkbook.Protect Password:=ww1                'Beveiliging werkboek, actief
Menu_gebruiker_1.Hide                               'Verberg menu
Application.ScreenUpdating = True                   'Screen upating aan

End Sub

 

[Warme bakkertje]

Private Sub Help_Click()
    Application.ScreenUpdating = False                  'Screen updating uit
    ActiveWorkbook.Unprotect Password:=ww1              'Beveiliging van werkboek, inactief
    With Blad5
        .Visible = xlSheetVisible                       'Blad zichtaar
        .Unprotect Password:=ww1                        'Beveiliging werkblad, inactief
        Application.Goto .Range("A6"), True             'Ga naar cel A6, bovenzijde pagina
        .Protect Password:=ww1                          'Beveiliging werkblad, inactief
    End With
    Blad1.Visible = xlSheetHidden                       'Verberg blad
    Blad2.Visible = xlSheetHidden                       'Verberg blad
    ActiveWorkbook.Protect Password:=ww1                'Beveiliging werkboek, actief
    Menu_gebruiker_1.Hide                               'Verberg menu
    Application.ScreenUpdating = True                   'Screen upating aan
End Sub

 

[snb]

Je kunt de handleiding ook gewoon in een tekstvakk van het userform zetten.

 

[wacco]

Warm Bakkertje,
De door jou voorgestelde aanpassing in tekst door gevoerd.
Werkt perfect, en maakt het geheel wat overzichtelijker.
Hartelijk dank.

SNB,
In een tekstvak zou een optie kunnen zijn, maar de handleiding beslaat een behoorlijk aantal pagina's inclusief scherm afbeeldingen.
Ik hou het voorlopig bij aan apart werkblad voor deze handleiding.
In ieder geval bedankt voor het meedenken.

Gr,
Jack