Template vergrendeld

[Killerclown]

Ik heb in Word een invulformulier dat een nieuw document creëert waaraan ik een template koppel.
Wanneer het document dan opgeslagen wordt, krijg ik de melding dat de template vergrendeld is (zie afbeelding)
Nochtans zit er geen paswoord ofzo op die template.




Iemand enig idee wat dit kan zijn?

Alvast dank.

 

[OctaFish]

Je hebt een invulformulier dat een nieuw document maakt, maar waar zit de template dan aan vast? En is dat dan het formulier? En staat dat dan nog open?

 

[snb]

Ja dat idee heb ik.

Verstrek eerst maar eens wat meer informatie, plaats bij voorkeur de bestanden waar het om gaat en een duidelijker beschrijving wat je doet voordat je deze melding krijgt.
Aan plaatjes hebben we meestal niets om een vraag te begrijpen; die zijn nl. niet de oorzaak van het probleem.

 

[Killerclown]

Inderdaad, mijn uitleg was nogal sumier

Het bestand dat ik open, is "bericht.dotm". Daarin staat volgende code die het nieuwe document creëert:

Sub BerichtCheckbox2(FolderName As String, FileName As String, Password As String)

Dim fso
Dim fol As String
Dim FileSaveName As String
Dim sUniekNummer As String

fol = "F:\L\Berichten\ASB\Nieuw"
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(fol) Then fso.CreateFolder (fol)

sUniekNummer = Format(Now(), "-(DDMMMMYYYY)")
FileSaveName = FolderName & FileName & sUniekNummer & ".doc"

Dim nd As New Document
With nd
    nd.Activate
    Selection.HomeKey wdStory
    Selection.Font.Bold = wdToggle
    Selection.Font.Underline = True
    Selection.TypeText "U heeft bericht van:"
    Selection.Font.Underline = False
    Selection.Font.Bold = wdToggle
    Selection.TypeText " "
    Selection.TypeText txtNaam
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.Font.Bold = wdToggle
    Selection.Font.Underline = True
    Selection.TypeText "Verzonden op:"
    Selection.Font.Underline = False
    Selection.Font.Bold = wdToggle
    Selection.TypeText " "
    Selection.TypeText Format(Now, "d mmmm yyyy")
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.Font.Bold = wdToggle
    Selection.Font.Underline = True
    Selection.TypeText "Onderwerp:"
    Selection.Font.Underline = False
    Selection.Font.Bold = wdToggle
    Selection.TypeText " "
    Selection.TypeText txtOnderwerp
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeText txtBericht
    Selection.TypeParagraph
    If ChkLeesbevestiging = True Then nd.AttachedTemplate = "F:\L\Berichten\ASB\leesbevestiging.dotm"
    .ReadOnlyRecommended = False
    .Password = ""
    .WritePassword = ""
    nd.SaveAs FileSaveName
    nd.Close
End With

End Sub

Zoals je kunt zien onderaan in de code, wordt aan het nieuwe document de template leesbevestiging.dotm gehangen en dan wordt alles opgeslagen.

Wanneer je dan het nieuwe document opent, wordt de VBA-code die in de template leesbevestiging.dotm ingeladen. Dit was volgens mij de manier om een stuk VBA-code aan een nieuw document te koppelen.
Alles werkt, behalve dan dat ik die vervelende melding krijg :-s

Indien nodig, wil ik ook wel het volledige bestand hier uploaden.

 

[Killerclown]

Hier zijn dan de 2 bestanden:

Bekijk bijlage bericht2.3.dot
Bekijk bijlage leesbevestiging.dot

Hopelijk weet iemand een oplossing.

Met dank!

 

[Killerclown]

Niemand een idee?
Ik ben echt radeloos