Button die email kan versturen werkt niet bij beveiligende cellen

[Bacio]

Ik heb in een button opgenomen in bijgaand formulier die het formulier moet versturen naar een emailadres. In het formulier moeten de cellen in kolom B beveiligd zijn om aanpassingen te voorkomen. Dit laatste is geen probleem. Echter wanneer de cel(len) beveiliging is geplaatst geeft de verzendbutton error 400. Als de beveiliging uitgeschakeld is werkt de button. Ik wil graag dat de verzend button ook werkt wanneer de cel beveiliging aan staat. Wie kan mij helpen?

 

[edmoor]

In je document zijn de cellen niet beveiligd. Plaats het document in de toestand zoals je het beschrijft.

 

[Bacio]

met bijlage beveiligde cellen

Bekijk bijlage Kopie van 611-002444A.xlsmBekijk bijlage Kopie van 611-002444A.xlsm

 

[edmoor]

In de code voor het mailen wijzig je ook de inhoud van cel B46 op het blad form. Dat gaat niet omdat ook die cel beveiligd is. Wijzig dat stukje dan in dit:

With Sheets("form")
    .Unprotect "JeWachtwoord"
    .Range("B46").Value = "Formulier Verrichtingen laatst verstuurd naar: QA D&R op " & Format(Date, "dd-mmm-yyyy") & " " & Format(Time, "hh:mm:ss")
    .Protect "JeWachtwoord"
End With

 

[Bacio]

Opgelost

Edmoor, GEWELDIG! voor zover ik met een formulier heb uitgeprobeerd werkt het. Bedankt!!!