This has to be a WORD bug with TextBox VBA and protection

Try this please:
1.  Create new doc as a dotm (macro enabled template)
2.  From the Developer tab, Insert a ActiveX textbox control
3.  Create a TextBox1.change routine, and apply some simple code – just 
MsgBox TextBox1 will suffice
4.  Turn on Protect Document with editing restrictions Filling in Forms  
5.  Switch off Design Mode and test  an entry in the text box
Works fine.
6.  Now close and save the dotm
7.  Double-click the dotm from explorer (opens a document based on the 
template)
8.  Take the Option (in toolbar) to allow active content
9.  Try the textbox entry
Can’t enter
10.  Take protection off then switch it on again
11.  Try the textbox entry
Works fine
This can’t be right surely?
I need to provide a template so that users can create their own docs from it 
(as you normally do).  I can’t use Forms, as I have a gigantic table within 
which I want to create my own totals using VBA to total  text box values.  It 
worked a charm while developing the Template, but I was staggered then to 
discover that it doesn’t work with a document created from the template 
(unless of course you do that stupid workaround off/on of protection as in 
step 10 above).  
Originally, the form was created with the table linked to an Excel, but that 
isn’t an option if you want the form protected, as it doesn’t count as an 
entry field.  Perhaps there is a way around that.  If so, please tell me.  

0
Utf
6/2/2010 11:04:12 PM
word.vba.general 1023 articles. 1 followers. Follow

0 Replies
1091 Views

Similar Articles

[PageSpeed] 41

Reply:

Similar Artilces:

Copying XML data to Word
I have got an Excel XML spreadsheet which grabs data from Microsoft CRM. I have set it up to have 5 different sheets. I want to copy information from each of these sheets into Word, but for some reason, only data from the first sheet is copied. When I try to copy cells from other sheets, I get blank cells in Word. Can anyone tell me why? And even better, is there an automatic way to copy this stuff into a Word template so I don't have to manually select the cells? ...

OUTLOOK 2003 BUG: Tasks do not accept HTML messages
When dragging a message received in HTML over to the Tasks folder the body of the message disappears. Tom Tulane University Works for me. What is your setup? Connected to Exchange? If so; are you using Cached Exchange mode? If not; POP3, IMAP or other...? and are you using an Outlook 2003 pst-file or an Outlook 97-2002 pst-file? -- Roady [MVP] www.sparnaaij.net Microsoft Office and Microsoft Office related News Also Outlook FAQ, How To's, Downloads and more... Tip of the month: -Create your own fully customized Toolbar Subscribe to the newsletter to receive news and tips & trick...

Execute a variable as an insertion into a VBA code line
2003 & 2007 Is there a way to obtain, via Inputbox, to run the code line below: "MyToolsObject.Test" X = "MyToolsObject." & Application.InputBox("VB.NET File to test: ", "ENTER PROCEDURE NAME") Assume: X = "MyToolsObject.Test " Effectively, how can I "Execute" X as if it were the codeline below? Sub DecodeRunDLL() ' Dim MyToolsObject As ToolsNET.Tools Set MyToolsObject = New ToolsNET.Tools MyToolsObject.Test ' <<<<< *********** ...

Help with Ask fields in Word 2007
I have a word template that I have created. I am going to be distributing this document internationally and don't want to have to manage change controls on multiple documents. Since we decided against using an Infopath form via forms services I had to scale back on the functionality in a few areas such as repeating rows and fields. That being said, I can't figure out how to accomplish something that should be rather simple. I need to ask the user to enter their region when the form template is first opened, display it in the footer. I can't figure out how to on...

Textbox on chart doesn't print in Office 2003, but does in 2007
I have some charts that I create through C# code on a "template" worksheet and then copy it over to a new worksheet using the following code. When looking at the chart.Shapes, I can see the three Textbox objects that I want and these are the only shapes available. I can see them on the screen in both Excel 2003 and 2007 correctly. When I print in 2003 though, the textboxes don't appear like they do for 2007. Can anyone shed some light on why this might be happening? // Copy the images and charts (note index starts at 1) for (int z = 1; z <= wsTemplate.Shapes.Count; ...

Protect Worksheet but allow to insert or delete rows
I have set up a worksheet, locked and unlocked cells as needed and I want to allow the user to insert and delete rows. But, when I set protection and tick "Insert Rows" and tick "Delete Rows"; the menu only will allow "Insert Rows", the "Delete Rows" field is not accessible. Solution? Do you get an error message saying that you can't delete the row since there are locked cells on that row? I do when I protect a worksheet using your options and then rightclick on a row number and choose delete. (And that row contains locked cells.) Bob L Hill...

Word 2007 auto complete words or phrases
I have several long words and phrases that I use frequently. Can I tell Word 2007 to auto complete them when I start to type them? Yes, if you create AutoCorrect entries for them; see http://word.mvps.org/faqs/customization/AutoCorrect.htm -- Suzanne S. Barnhill Microsoft MVP (Word) Words into Type Fairhope, Alabama USA http://word.mvps.org "Lee Geer" <Lee Geer@discussions.microsoft.com> wrote in message news:59C19A2E-092D-4CEE-9AFA-371FB6BD61C4@microsoft.com... >I have several long words and phrases that I use frequently. Can I tell >Word > 200...

How do I merge an Excel mailing List with Microsoft Word Document
I have columns or in the old DOS version "fields" where I have placed first name, Last name, street address, City, State and Zip. In addition I have a field for the Salutation which may contain more than one first name, i.e. Mary and Joe. I want to merge these individual rows in excel into a Word document. Kookie For help on Word mail merge using Excel as the data source. http://www.mvps.org/dmcritchie/excel/mailmerg.htm http://www.mvps.org/word/FAQs/MailMerge/CreateAMailMerge.htm http://www.mvps.org/word/FAQs/MailMerge/CreateADataSource.htm And a training tutorial for c...

2 VBA Q
1. Cells(i, 9) = DateDiff(Cells(i,7), "12/31/2003", "m") - gives me type mismatch error - I need to check that the end date is before 12/31/2003 and then calculate the number of months till the end of the year. 2. If (Cells(i, 7) = "Complete" & Sheets("Plan").Cells(i, 7) = "mm/dd/yyyy") - does not work. It works for - If (Cells(i, 7) = "Complete") However, I need to check - that there is a date in the cells - Sheets("Plan").cells(i,7) else I want to leave the original comment - "Complete". TIA. di...

Using Access w/Word Merge (Access 2002)
I inserted a column in a data table for expiration date. While writing a merge letter where I wanted to insert that information I discovered it didn't show up in the Merge Fields. Should I have instead renamed an existing column (field) and moved it where I wanted it on the data table? I deleted all extraneous column/fields, so I don't have an empty field to utilize. Must I create a new database or is there a way to identify this new column as a data field? How are you getting the data into your merge document? Query from Word, Access query, VBA? Steve "Helen" w...

How to convert currency into words?
Can anyone advise how do I convert 1,223.35 to ONE THOUSAND TWO HUNDRED TWENTY THREE DOLLARS AND THIRTY FIVE CENTS? Would prefer to have a formula to do this, instead of via VBA. Thanks!!! Hi Derrick there is no inbuilt function for this - you need to use an add-in or code .... check out http://www.xldynamic.com/source/xld.xlFAQ0004.html for details Cheers JulieD "Derrick" <Derrick@discussions.microsoft.com> wrote in message news:A2E0EC09-DEE9-4C93-81D9-8CC58C4344BA@microsoft.com... > Can anyone advise how do I convert 1,223.35 to ONE THOUSAND TWO HUNDRED > TWEN...

Using VBA to define the ControlSource property of an unbound field
I have a text field in a subform which should display a result based on the user's selection in a combo box (cboEndDate) in the main form. I've gotten the code written in a sub named daycalc(), but can't figure out how to get the subform to recognize this code as its controlsource. It's just simply blank. How do you get the field in the subform to recognize the VBA as its controlsource? If you need more details, I'm glad to provide them. I'm hoping that this is a simple thing that I'm just overlooking. Thanks, Steve. daycalc() is a sub. I do, however, have a...

Word crashing when formatting bullets
Version: 2008 Operating System: Mac OS X 10.5 (Leopard) Processor: Intel I wonder whether anyone can help me. I have been having more and more frequent crashes with Word when I try and format my bullets. It doesn't everytime I format my bullets. Thanks in advance for any help rendered ...

How to protect a column?
Hi! I would like to protect some hidden columns. When I choose "protection" in the menu, I only find the possibility to define area to be modifed but I would like to do the opposite: define which areas can�t be modified. How can I do this? Thanks. -- xpucto ------------------------------------------------------------------------ xpucto's Profile: http://www.excelforum.com/member.php?action=getinfo&userid=23748 View this thread: http://www.excelforum.com/showthread.php?threadid=374127 Is there some kinf of options to protect all hidden columns? Or to protect function...

SUM in random files in the folder
I have files in the folder. how I consolidate in new sheet all the files, to sum for region, products? OBS: I not know the amount of files in this one folder, so I know that the these nominated archives for region, a994.xls region A, b423.xls b323.xls region B .... How to create a look with filename random ? and I not know the quantity file for region. But, all the worksheets have format the same. Necessary they to charts with it, then I want create the table consolidate thanks Marina ...

how do i get rid of dots between words in outlook?
There are dots between every word in my Outlook messages. How do I get rid of them? So far, I have searched every term I can in help... to no avail. In Word, it's the Paragraphy feature, but I guess not in Outlook. Please help! (outlook 2003) it's the same in outlook. are you using word or outlook's editor as the email editor? -- Diane Poremsky [MVP - Outlook] Author, Teach Yourself Outlook 2003 in 24 Hours Coauthor, OneNote 2003 for Windows (Visual QuickStart Guide) Need Help with Common Tasks? http://www.outlook-tips.net/beginner/ Outlook Tips: http://www.outlook-tip...

Import Word document into existing Publisher document
Is there a way to import a Word document into an existing Publisher document? I know how to do it by creating a NEW Publisher document. The cut-and-paste method does NOT work--all the formatting is lost. Help, please ...

how do i save a new address typed on an envelop in word 2003
i want to save the address i type on an envelop under the envelop and labels under tools. Save it where? You could add the envelope to a document and save the document or You could use an envelope template - see the link at the end of http://www.gmayor.com/changing_envelope_layout.htm and create and save an envelope document including the address. or You could save the address in Outlook and insert the address from the addressbook function in the envelope/label dialog, which stores recent addresses. To do this Outlook must be your default e-mail application. -- <>...

Excel 2003 - VBA
Does anyone out there have a good source for reference material (beginner please) on the listbox function that would help with the following task. I have created a 2 column, 50 row listbox, fed from a 2000 element table in the spread sheet. Column one is the item number and column 2 is the name. I also have 2 textbox fields where I can enter either the number or the name and would like the listbox to scroll so that the matching item is displayed in the center, or as close as possible, of the 50 row window. I have found many sources of information on the listbox and have figured out much of ...

Restart heading numbering in each new section of a Word 2007 docum
I have produced a thesis of around 100,000 words in Word 2007 using docx format (because I want to use automated TOC and Indexing). My doucment is divided into sections (using section breaks), each comprising a chapter with a Title. I have been using the outline headings provided in Styles, using levels 1 through to 6. Presently the numbering runs on through the sections which results in huge numbers, as you would imagine. How do I make the heading numbers reset to 1 in each new section of the document? First of all, although there may be other good reasons for using Word 2007, ...

Word 2003
When I click on Edit and drop down to Undo - Undo is grayed out. Any idea why? Have you performed some action that can be undone? Note that protecting and unprotecting a form clears the Undo stack (as of course also does closing and reopening the document). -- Suzanne S. Barnhill Microsoft MVP (Word) Words into Type Fairhope, Alabama USA http://word.mvps.org "Shels" <Shels@discussions.microsoft.com> wrote in message news:473B79C8-4538-4F74-AFCB-B2D02CA48C07@microsoft.com... > When I click on Edit and drop down to Undo - Undo is grayed out. Any idea >...

CTRL+Z Lock & Protects Worksheet
When I press CTRL+Z, instead of performing an "undo", all cells in the worksheet become protected and an unknwon password has been assigned. Has anyone else experienced this? Hi Greg maybe a macro is assigned to this shortcut. check the macros in your workbook or in your personal.xls file -- Regards Frank Kabel Frankfurt, Germany Greg wrote: > When I press CTRL+Z, instead of performing an "undo", all > cells in the worksheet become protected and an unknwon > password has been assigned. Has anyone else experienced > this? Thanks, Frank, I will check. ...

SumProduct in VBA
I have the following macro: Sub tracking() engid =3D "'[Export January.xls]Export_January'!$aq$2:$aq$43735" rev =3D "'[Export January.xls]Export_January'!$ag$2:$ag$43735" engid2 =3D Sheets("actual").Range("H4").Value If Not IsNumeric(engid2) Then engid2 =3D """" & engid2 & """" End If pct =3D Application.Evaluate("SUMPRODUCT(--(" & engid & "=3D" _ & engid2 & "),--(" & rev & "))") ThisWorkbook.Worksheets(&q...

Using radio button controls in a Word form
I'm creating forms for users to download from a website. The first form I developed contained a drop-down list and numerous radio buttons from the Controls toolbar, and works perfectly for everyone who has downloaded one. And they open ok for me, i.e. NOT in design view, when they are e-mailed to me by users. The second one I'm developing is similar and has no drop-down list and only 3 radio buttons. But after downloading to my PC this second form frustratingly opens in controls design view so the buttons don't work. Why is this? How can one form work perfectly an...

Word 2003: Section breaks & page formatting
I have a Word 2003 document with 5 sections. Sections 1,2,3 are in portrait. Section 4 is in landscape. Section 5 returns to portrait. When doing a print preview, all formatting appears to be correct. But when I print, the 1st page of Section 5 prints in a reduced font in landscape formatting. I have looked at all page and print settings and can't seem to find where the issue is located. I have tried removing section breaks and reinserting them. Help! Any thoughts on what is causing this issue? Are you tracking changes? Or are there comments in the document? In eithe...