Help with a macro in Word 2010

-

i have inherited a form created a macro-enabled template in word 2003.  form contained form fields , upon completing form, user clicked command button prompted user id, password, , added date stamp. locked form , kept form fields being edited.  there second command button when clicked prompted user for password used lock form.  if entered password matched original, form fields edited.

i have had add date picker , change legacy drop-down form fields drop-down list content cotrols due need more 25 listings in drop-down boxes , have done in word 2010.

my issue macro locks form fields to editing, not lock content controls.  need macro keep both form fields , content controls being edited second macro open both form fields , content controls being edited.

i know little vba , appreciate help. here macros written:

private sub commandbutton2_click()
dim pw
dim pwb
pw = me.pw.value
pwb = inputbox("please enter password used sign document.", "unlock document")

if pw = pwb then
msgbox ("this document has been unlocked editing.  please resign document lock before submission.")
me.commandbutton3.enabled = true
me.commandbutton2.enabled = false
me.pref_id = ""
me.pw = ""
me.dt = ""
dim ofmfld formfield
activedocument
each ofmfld in .formfields
ofmfld.enabled = true
next
end with

else
msgbox ("the password entered not match value on form.")
exit sub
end if
end sub

private sub commandbutton3_click()
dim pref
dim datestamp
datestamp = now
pref = inputbox("please enter preferred id lock document.", "electonic signature")
if pref = "" then
me.pref_id = ""
me.dt = ""
me.commandbutton2.enabled = false
msgbox ("preferred id required sign document.")
exit sub
end if

dim pw
pw = inputbox("please provide password lock document.", "enter password")
if pw = "" then
me.pref_id = ""
me.dt = ""
me.pw = ""
msgbox ("a password required")
me.commandbutton2.enabled = false
exit sub

else

me.pref_id = pref
me.pw = pw
me.pw.passwordchar = "*"
me.dt = datestamp

dim ofmfld formfield
activedocument
each ofmfld in .formfields
ofmfld.enabled = false
next
end with
me.commandbutton2.enabled = true
me.commandbutton3.enabled = false

end if
end sub

 

as said, changes suggested not related error message. perhaps problem did not implement them correctly. code should read:

private sub commandbutton2_click()
    dim pw
    dim pwb
    pw = me.pw.value
    pwb = inputbox("please enter password used sign document.", "unlock document")
    if pw = pwb then
        msgbox ("this document has been unlocked editing.  please resign document lock before submission.")
        me.commandbutton3.enabled = true
        me.commandbutton2.enabled = false
        me.pref_id = ""
        me.pw = ""
        me.dt = ""
        dim ofmfld formfield, cctrl contentcontrol
        activedocument
            each ofmfld in .formfields
                ofmfld.enabled = true
            next
            each cctrl in .contentcontrols
                cctrl.lockcontentcontrol = true
            next
        end with
    else
        msgbox ("the password entered not match value on form.")
        exit sub
    end if
end sub

private sub commandbutton3_click()
    dim pref
    dim datestamp
    datestamp = now
    pref = inputbox("please enter preferred id lock document.", "electonic signature")
    if pref = "" then
        me.pref_id = ""
        me.dt = ""
        me.commandbutton2.enabled = false
        msgbox ("preferred id required sign document.")
        exit sub
    end if
    dim pw
    pw = inputbox("please provide password lock document.", "enter password")
    if pw = "" then
        me.pref_id = ""
        me.dt = ""
        me.pw = ""
        msgbox ("a password required")
        me.commandbutton2.enabled = false
        exit sub
    else
        me.pref_id = pref
        me.pw = pw
        me.pw.passwordchar = "*"
        me.dt = datestamp
        dim ofmfld formfield, cctrl contentcontrol
        activedocument
            each ofmfld in .formfields
                ofmfld.enabled = false
            next
            each cctrl in .contentcontrols
                cctrl.lockcontentcontrol = false
            next
        end with
        me.commandbutton2.enabled = true
        me.commandbutton3.enabled = false
    end if
end sub

cheers
paul edstein
[ms mvp - word]



Microsoft Office  >  Word IT Pro Discussions



Comments

Post a Comment

Popular posts from this blog

2008 Windows Deployment Server Properties Error

-
currently wading through setup , configuration of wds on 2008 server. have captured xp sp2 image , purposes of testing not prestaging. pxe response settings have been set "respond (known & unknown) client computers" leaving "for unknown clients, notify administrator etc" unchecked when ok properties sheet error "server properties error" "the system cannot find file specified" when attempting use command "wdsutil /approve-autoadddevices /requestid:1" in response pending devices within gui "an error occurred while trying execute command. error code: 0x6 error description: access denied" surely if not attempting add workstations domain (no prestaging) there shouldn't problem. any appreciated  answering part of own question although if can explain reason appreciated. server properties error occurs when launching windows deployment services using start>all programs>administrative tools. if access via server manager...
Read more

Can no longer user MS Update - Files required to use Microsoft Update are no longer registered

-
hi, i'm new server 2003.  installed it.  removed enhanced ie security.  proceed download , install windows server 2003 sp1, of dot net (1.1, 2.0, 3.0, 3.5, , updates), , sp2. after downloaded , installed of above, tried windows update menu option in ie.  (ie 8 windows server 2003) , sits there "done" in lower left hand corner.  never brings in window. so try www.microsoft.com -> download , trails -> update.  received error message "files required use microsoft update no longer registered or installed on computer".  click on register or reinstall files me now.  window changes , "check latest version of windows updating software .... ".   sits there (last time sat there on hour). i went on internet , found instructions: regsvr32 wuapi.dll regsvr32 wups.dll regsvr32 wuaueng.dll regsvr32 wucltui.dll regsvr32 atl.dll regsvr32 msxml3.dll did not work either.  have other suggestions?...
Read more

How do a find data in one file, search for it in another file and if not found, write a custom message to another file

-
in file if.txt, starting on 2nd line of file, data formatted follows: ah10551,a10551,cn=a10551,a10551@qts.com ah10600,a10600,cn=a10600,a10600@qts.com ah10608,a10608,cn=a10608,a10608@qts.com in file sf.txt, data formatted follows: 2011-02-16 17:26:44 sid acme\ah10551 added sid history of qts\a10551 2011-02-16 17:26:44 sid acme\ah10244 added sid history of qts\a10244 2011-02-16 17:26:45 sid acme\ah10425 added sid history of qts\a10425 please provide suggestions on how following: 1. in if.txt file, read first field first ',' , store in variable called $if1 2. in sf.txt file, search for the value stored in $if1 , if found, ignore.  if not found, write custom message in another file such as: $if1 sidhistory not migrated. these files wont large.  im trying build 'exception file' of items in if.txt file not occurring in sf.txt file. thanks in advance ideas. mtv99 many ways that... here's one... (using example data) [array]$if1=@() gc d:\if.txt...
Read more