Userform herstarten vanuit word document

[Miraculous]

Ik ben nog niet zolang bezig in VBA maar het lukt me al aardig om wat in elkaar te knutselen maar na het volgende loop ik al een uur te zoeken.

Ik heb een uitgebreid userform gemaakt. bij het opstarten van het sjabloon wordt deze gestart en bij het drukken op de oke knop wordt het formulier verstopt en het document gevuld.

nu wil ik dat als iemand klikt op het document (liefst alleen op de gevulde velden) dat het formulier weer word gestart .show

Is dat mogelijk of is er een andere nette manier om weer terug te komen in het formulier.

Mijn dank is groot.

Tom

 

[OctaFish]

Ik zou zeggen: zet het voorbeeldje eens online, dan kunnen we meedenken/

 

[snb]

Heb je een userform in Excel of in Word ?

 

[Miraculous]

Ging even mis,
website loopt vast als ik iets upload wat niet is toegestaan dus de dotm was de eerste en daarna de bestandsgrote 100k.

nogmaals proberen.
Ik heb het bestand een beetje moeten krimpen en moeten zippen.

Ik wil nog een paar dingen erin maken o.a.
* Het document moet schrijfbeveiligd zijn en alleen te beschrijven via het Userform.
* Na het drukken van de ok knop moet het worden opgeslagen in mijn documenten maar wel met een dialoog venster zodat de gebruiker het nog ergens anders kan opslaan en de bestandsnaam kan aan passen.
* De 15 EVN nummers moeten gecontroleerd worden en evt met een kleurtje aangeven als het checum niet klopt.
Bovenstaande zaken kom ik wel uit denk ik.

Maar goed als ik het bestand dan toch upload

Ik zoek een oplossing om vanuit het document terug in het userform te komen met een knop maar het liefst door op het document te klikken.
Dat laatste lukt me wel in Excel maar in Word bestaat dat niet denk ik.
Wie weet een goede methode om weer terug in het userform te komen?

Alvast bedankt voor het meedenken.
Tom

 

[snb]

I.p.v.

    If chkCode2_5_101.Value = True Then Code = Code & "|2.5.101"
    If chkCode2_5_102.Value = True Then Code = Code & "|2.5.102"
    If chkCode2_5_103.Value = True Then Code = Code & "|2.5.103"
    If chkCode2_5_104.Value = True Then Code = Code & "|2.5.104"
    If chkCode2_5_105.Value = True Then Code = Code & "|2.5.105"
    If chkCode2_5_106.Value = True Then Code = Code & "|2.5.106"
    If chkCode2_5_107.Value = True Then Code = Code & "|2.5.107"
    If chkCode2_5_108.Value = True Then Code = Code & "|2.5.108"
    If chkCode2_5_109.Value = True Then Code = Code & "|2.5.109"
    If chkCode2_5_110.Value = True Then Code = Code & "|2.5.110"
    If chkCode2_5_111.Value = True Then Code = Code & "|2.5.111"
    If chkCode2_5_112.Value = True Then Code = Code & "|2.5.112"
    If chkCode2_5_112.Value = True Then Code = Code & "|2.5.113"
    If chkCode2_5_114.Value = True Then Code = Code & "|2.5.114"
    If chkCode2_5_115.Value = True Then Code = Code & "|2.5.115"
    If chkCode2_5_116.Value = True Then Code = Code & "|2.5.116"
    If chkCode2_5_117.Value = True Then Code = Code & "|2.5.117"
    If chkCode2_5_118.Value = True Then Code = Code & "|2.5.118"
    If chkCode2_5_119.Value = True Then Code = Code & "|2.5.119"
    If chkCode2_5_120.Value = True Then Code = Code & "|2.5.120"
    If chkCode2_5_121.Value = True Then Code = Code & "|2.5.121"
    If chkCode2_5_122.Value = True Then Code = Code & "|2.5.122"
    If chkCode2_5_123.Value = True Then Code = Code & "|2.5.123"

kan dit ook

    For j = 1 To 23
       Code = Code & IIf(Me("chkCode2_2_5_1"), "|2.5.1" & Format(j, "00"), "")
    Next

 

[Miraculous]

Bedankt snb,


Ik was er al bang voor maar goed. Ik ben ook nog niet zolang bezig. Hehe.
Bedankt voor je aanpassing ik zal het morgen eens uit proberen.

Groet,
Tom

 

[Miraculous]

@snb

Het werkt inderdaad moest nog wel even wat foutjes uit de regel halen.

    For j = 1 To 23
       Code = Code & IIf(Me("chkCode2_5_1" & Format(j, "00")), "|2.5.1" & Format(j, "00"), "")
    Next

Mijn dank is groot,
Kan je me ook helpen om een manier te vinden om terug te komen in het Userform?

Groet,
Tom

 

[snb]

In Excel lukt het alleen maar met extra code, er is geen ingebouwde faciliteit voor.
In Word kun je een knop opnemen in het lint.
Dat lijkt me sowieso handig, want als je wil voorkomen dat gebruikers in het bestand wijzigingen aanbrengen, kun je dat het beste doen door het document onzichtbaar/ontoegankelijk te maken: 'beveiligen' is dan niet nodig.

 

[Miraculous]

Hoi snb,

In Excel kan je het doen in bijvoorbeeld "Private Sub Worksheet_Change(ByVal Target As Range)" zodra er een wijziging plaatsvind kan je het formulier oproepen.
in word staat ook een heel lijstje maar geen change, klick of iets dergelijk.

Als ik het in het lint wil opnemen kan dat dan automatisch doen of moet ik bij elke gebruiker dat handmatig doen?

 

[snb]

Het is toch helemaal niet nodig het userform te verbergen ?
Zeker niet als je wil voorkomen dat een gebruiker iets in het document gaat doen.
Na het wegschrijven van de gegevens kun je alle ingevoerde gegevens uit het userform verwijderen en met een schone lei beginnen.

 

[Miraculous]

Hey goed plan snb
Bedankt voor het meedenken.