[mso] Re: Problem with Symbol in Protected form
- From: "Dian Chapman" <dian@xxxxxxxxxxxxx>
- To: <mso@xxxxxxxxxxxxx>
- Date: Mon, 7 Apr 2003 17:44:37 -0500
Okay...I'll assume you DEFINED it by recording a macro?
Some things don't work in forms due to the protection. So you have to =
get
around it by very quickly having the doc unlocked, enter the info and =
relock
the doc to continue. This happens so quickly, users won't notice.=20
So here's what you'll have to do...take the code below and add it to =
your
macros. If you don't know how to do this...you'll have to read this =
TechTrax
article called Sharing Macros, which will explain how it must be done.
Sharing Macros
http://pubs.logicalexpressions.com/Pub0009/LPMArticle.asp?ID=3D166
Once you have this new macro created...you can *call* it just BEFORE and
just AFTER the insert macro you created.=20
In other words, say you click Tools/Macro/Macro, highlight your =
InsertSymbol
macro you created, click Edit and see code similar to the following...
Sub InsertSymbol()
Selection.InsertSymbol Font:=3D"Wingdings", =
CharacterNumber:=3D-4041, _
Unicode:=3DTrue
End Sub
Then you'll create a new macro with the code below, which will be called
ToggleDocLock. So you'll need to CALL this one before/after the other =
code.
The final code for the above macro you created should NOW look something
like this...
Sub InsertSymbol()
ToggleDocLock
Selection.InsertSymbol Font:=3D"Wingdings", =
CharacterNumber:=3D-4041, _
Unicode:=3DTrue
ToggleDocLock
End Sub
------------------------
Sub ToggleDocLock()
If ActiveDocument.ProtectionType =3D wdAllowOnlyFormFields Then
ActiveDocument.Unprotect 'Password:=3D"password" add/change if pass =
wanted
Else
ActiveDocument.Protect Type:=3DwdAllowOnlyFormFields, =
NoReset:=3DTrue
End If
End Sub=20
------------------------
NOTE...be sure you max out this email if you retype the code, since a
wrapped like typed incorrectly will cause an error.
Hope this helps!
Dian Chapman
Technical Consultant
& Microsoft MVP
Free Word Tips & Tricks eBook: http://www.mousetrax.com/books.html
Free Tutorial site: http://www.mousetrax.com/techpage.html
Free Support Ezine: http://www.mousetrax.com/techtrax/
=20
-----Original Message-----
From: mso-bounce@xxxxxxxxxxxxx [mailto:mso-bounce@xxxxxxxxxxxxx] On =
Behalf
Of Sewell, Fred
Sent: Monday, April 07, 2003 5:11 PM
To: 'mso@xxxxxxxxxxxxx'
I have defined a symbol using the wingdings font (through insert symbol,
assigned a shortcut key alt I. I use it to fill in a text form field. =
When I
test it without the document being protected, it works. When I protect =
the
document the alt I doesn't work
-----Original Message-----
From: Dian Chapman [mailto:dian@xxxxxxxxxxxxx]
Sent: Monday, 7 April 2003 23:26
To: mso@xxxxxxxxxxxxx
Subject: [mso] Re: Problem with Symbol in Protected form
I don't quite understand what you mean by "inserting a tick" with =3D
Alt/I?????
Alt/I simple opens the Insert menu????
Are you attempting to add a symbol???
Are you actually using Form Fields (from the Forms Toolbar) or are you =
=3D
using Fill-in fields? (Insert/Field). Or are you using ActiveX controls
(from Control Toolbox toolbar)???
Since there are THREE ways to create forms, with those objects mentioned
above...you need to supply more details before we can help.
You may also want to check out the pile of free tutorials I've written
related to forms in Word. See =
www.mousetrax.com/techpage.html#autoforms=3D20
Dian Chapman
Technical Consultant
& Microsoft MVP
Free Word Tips & Tricks eBook: http://www.mousetrax.com/books.html
Free Tutorial site: http://www.mousetrax.com/techpage.html
Free Support Ezine: http://www.mousetrax.com/techtrax/
=3D20
-----Original Message-----
From: mso-bounce@xxxxxxxxxxxxx [mailto:mso-bounce@xxxxxxxxxxxxx] On =3D =
Behalf
Of Sewell, Fred
Sent: Monday, April 07, 2003 1:59 AM
To: 'mso@xxxxxxxxxxxxx'
I am using Word 97, but the problem also occurs in Word 2002. If I =3D =
create
a form and setup a field that I want users to use <alt i> to insert a =
=3D
tick, it all works well until I protect the document. I have selected
fill-in =3D enabled in the text form field options.
when the user presses <alt i>, nothing is inserted. The user can enter =
=3D
other characters in the filed (ie Normal text)
> Fred Sewell
> IT Manager
> Moriah College
> Queens Park Road
Bondi Junction NSW 1355
Phone: (02)93873555
Fax: (02)93873490
*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx =
=3D or
MicrosoftOffice@xxxxxxxxxxxxxxxx
To send mail to the group, simply address it to mso@xxxxxxxxxxxxx
To Unsubscribe from this group, send an email to =3D =
mso-request@xxxxxxxxxxxxx
with the word "unsubscribe" (without the quotes) in the subject line.
Or, visit the group's homepage and use the dropdown menu. This will =3D =
also
allow you to change your email settings to digest or vacation (no mail).
//www.freelists.org/webpage/mso
To be able to use the files section for sharing files with the group, =
=3D send
a request to mso-moderators@xxxxxxxxxxxxx and you will be sent an =3D
invitation with instructions. Once you are a member of the files group, =
you
can go here to upload/download files:
http://www.smartgroups.com/vault/msofiles
*************************************************************
*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx =
or
MicrosoftOffice@xxxxxxxxxxxxxxxx
To send mail to the group, simply address it to mso@xxxxxxxxxxxxx
To Unsubscribe from this group, send an email to =
mso-request@xxxxxxxxxxxxx
with the word "unsubscribe" (without the quotes) in the subject line.
Or, visit the group's homepage and use the dropdown menu. This will =
also
allow you to change your email settings to digest or vacation (no mail).
//www.freelists.org/webpage/mso
To be able to use the files section for sharing files with the group, =
send a
request to mso-moderators@xxxxxxxxxxxxx and you will be sent an =
invitation
with instructions. Once you are a member of the files group, you can go
here to upload/download files:
http://www.smartgroups.com/vault/msofiles
*************************************************************
*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx =
or
MicrosoftOffice@xxxxxxxxxxxxxxxx
To send mail to the group, simply address it to mso@xxxxxxxxxxxxx
To Unsubscribe from this group, send an email to =
mso-request@xxxxxxxxxxxxx
with the word "unsubscribe" (without the quotes) in the subject line.
Or, visit the group's homepage and use the dropdown menu. This will =
also
allow you to change your email settings to digest or vacation (no mail).
//www.freelists.org/webpage/mso
To be able to use the files section for sharing files with the group, =
send a
request to mso-moderators@xxxxxxxxxxxxx and you will be sent an =
invitation
with instructions. Once you are a member of the files group, you can go
here to upload/download files:
http://www.smartgroups.com/vault/msofiles
*************************************************************
*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or
MicrosoftOffice@xxxxxxxxxxxxxxxx
To send mail to the group, simply address it to mso@xxxxxxxxxxxxx
To Unsubscribe from this group, send an email to
mso-request@xxxxxxxxxxxxx with the word "unsubscribe" (without the quotes) in
the subject line.
Or, visit the group's homepage and use the dropdown menu. This will also allow
you to change your email settings to digest or vacation (no mail).
//www.freelists.org/webpage/mso
To be able to use the files section for sharing files with the group, send a
request to mso-moderators@xxxxxxxxxxxxx and you will be sent an invitation with
instructions. Once you are a member of the files group, you can go here to
upload/download files:
http://www.smartgroups.com/vault/msofiles
*************************************************************
Other related posts:
