 |
 | Home | Contact Us | FAQ | Search & Site Map | Link to Us |
 | Sign In | Join | Other 45 Sites in Network |
| HomeDiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWordDirectoryUser Groups Related Topics Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ... |
MS Office Forum / Word / Programming / February 2008Macros and Protect / Unprotect
I have created a form that a manager completes. I created a macro that changes the font to one colour, creates a header and saves to a certain file. It's run from a macro button on the end of the form. However, if the form is locked, i can't run it. Is there a way in the macro to first unlock the form, then run the macro, then password protect the form again? There shouldn't be any problem getting a macrobutton to run a macro, even in a protected form. The problem is that the macro can't make any changes to the document outside the form fields while the protection is turned on. To work around this, set up your macro like this: Sub DoSomething() With ActiveDocument If .ProtectionType <> wdNoProtection Then .Unprotect Password:="myPassWord" End If End With ' make your formatting changes here ActiveDocument.Protect Type:=wdAllowOnlyFormFields, _ NoReset:=True, Password:="myPassWord" End Sub -- Regards, Jay Freedman Microsoft Word MVP FAQ: http://word.mvps.org Email cannot be acknowledged; please post all follow-ups to the newsgroup so all may benefit. >I have created a form that a manager completes. I created a macro that >changes the font to one colour, creates a header and saves to a certain file. > It's run from a macro button on the end of the form. However, if the form >is locked, i can't run it. Is there a way in the macro to first unlock the >form, then run the macro, then password protect the form again? This worked great - thanks! One other tiny problem...after the new document is updated, protected and saved, when you re-open it the userform appears. How do i get rid of that? Thanks, Diana > There shouldn't be any problem getting a macrobutton to run a macro, > even in a protected form. The problem is that the macro can't make any [quoted text clipped - 28 lines] > >is locked, i can't run it. Is there a way in the macro to first unlock the > >form, then run the macro, then password protect the form again? Do you have two macros in the template named AutoNew and AutoOpen? If so, remove the one named AutoOpen. Read http://www.word.mvps.org/FAQs/MacrosVBA/DocumentEvents.htm for background on what happens when.  SignatureRegards, Jay Freedman Microsoft Word MVP FAQ: http://word.mvps.org Email cannot be acknowledged; please post all follow-ups to the newsgroup so all may benefit. > This worked great - thanks! > [quoted text clipped - 38 lines] >>> way in the macro to first unlock the form, then run the macro, then >>> password protect the form again? No - only AutoNew > Do you have two macros in the template named AutoNew and AutoOpen? If so, > remove the one named AutoOpen. [quoted text clipped - 44 lines] > >>> way in the macro to first unlock the form, then run the macro, then > >>> password protect the form again? Hmmm. A userform can't show itself; it *must* be called by a separate macro. And because it's showing up when the document opens, that macro has to be one of two kinds of "auto" macros. Look in the ThisDocument module of the template -- is there a Document_Open routine there? (That's also mentioned in the article I pointed to.) Are there any macros in the document itself? That's unlikely, because Word throws a security warning message or blocks macros altogether unless the security level is set to Low. But as Sherlock Holmes supposedly said, "When you have eliminated the impossible, what is left, no matter how unlikely, is the truth." -- Regards, Jay Freedman Microsoft Word MVP FAQ: http://word.mvps.org Email cannot be acknowledged; please post all follow-ups to the newsgroup so all may benefit. >No - only AutoNew > [quoted text clipped - 46 lines] >> >>> way in the macro to first unlock the form, then run the macro, then >> >>> password protect the form again? Jay, that was the problem - a document_open routine in the This Document module. (I'm in WAY over my head). Where would i be without all the help I've received from you people over the years? Thank you so much. Diana Morrison > Hmmm. A userform can't show itself; it *must* be called by a separate > macro. And because it's showing up when the document opens, that macro [quoted text clipped - 67 lines] > >> >>> way in the macro to first unlock the form, then run the macro, then > >> >>> password protect the form again? You're welcome. When you have some spare time(!), read that article. It'll help to get your head above water. <g> I will say that it's unusual to find both an AutoNew macro and a Document_Open macro in the same template; developers usually adopt one pair of auto macros or the other. SignatureRegards, Jay Freedman Microsoft Word MVP FAQ: http://word.mvps.org Email cannot be acknowledged; please post all follow-ups to the newsgroup so all may benefit. > Jay, that was the problem - a document_open routine in the This > Document module. (I'm in WAY over my head). Where would i be [quoted text clipped - 80 lines] >>>>>>> it. Is there a way in the macro to first unlock the form, then >>>>>>> run the macro, then password protect the form again? Hi Jay, I've tried your code but realise one problem with it - i.e. I could only run the macro once (by clicking the macrobutton) on the protected form, the 2nd attempt onward won't work unless I close the document and re-open it. Are there anyway to work around it so that user can click on the macro as many time as they want without close and re-open the form? > There shouldn't be any problem getting a macrobutton to run a macro, > even in a protected form. The problem is that the macro can't make any [quoted text clipped - 28 lines] > >is locked, i can't run it. Is there a way in the macro to first unlock the > >form, then run the macro, then password protect the form again? I have no problem at all getting this macro to run multiple times without closing the document. Exactly what happens when you try it? "It doesn't work" is not a useful description. It would help if you post your actual macro. -- Regards, Jay Freedman Microsoft Word MVP FAQ: http://word.mvps.org Email cannot be acknowledged; please post all follow-ups to the newsgroup so all may benefit. >Hi Jay, > [quoted text clipped - 36 lines] >> >is locked, i can't run it. Is there a way in the macro to first unlock the >> >form, then run the macro, then password protect the form again? My macro actually unlock the form, change colors, print the form and re-lock the form. Once the form is printed, it will disable all other macrobutton on the page (I had another macrobutton on the page to display a msgbox which works multiple times as well). The problem seems to lie with this particular macrbutton only. Sub test() With ActiveDocument If .ProtectionType <> wdNoProtection Then .Unprotect Password:="tony" End If End With Dim tblCurrent As Table Dim lngUndoCount As Long Dim rgeStart As Range Set rgeStart = Selection.Range 'Set to false to make code run faster 'In case of large document with many tables Application.ScreenUpdating = False lngUndoCount = 0 For Each tblCurrent In ActiveDocument.Tables tblCurrent.Shading.BackgroundPatternColor = wdColorWhite lngUndoCount = lngUndoCount + 1 Next With Application 'Reset to true or if user moves dialog around, 'there wil be traces on the screen .ScreenUpdating = True .Dialogs(wdDialogFilePrint).Show .ScreenUpdating = False ActiveDocument.Undo lngUndoCount rgeStart.Select .ScreenRefresh .ScreenUpdating = True End With ActiveDocument.Protect Type:=wdAllowOnlyFormFields, _ NoReset:=True, Password:="tony" End Sub Thx sin > I have no problem at all getting this macro to run multiple times > without closing the document. Exactly what happens when you try it? [quoted text clipped - 49 lines] > >> >is locked, i can't run it. Is there a way in the macro to first unlock the > >> >form, then run the macro, then password protect the form again? This is only a guess, but here's what I think may be happening: When you click the macrobutton to launch the macro, the Selection is on the macrobutton. As the macro starts, it assigns that location to rgeStart. Toward the end of the macro, you call rgeStart.Select, and then you protect the form. If the Selection is in a non-form-field piece of text when you start form protection, the cursor is forced to the next form field. I think it's at that time the macrobutton loses it. The trouble is, I can't reproduce the behavior you're seeing in a simplified version here. My macrobutton just continues to work. You could try putting the Selection in the next form field after the macrobutton instead. If that doesn't help, you can email the form to me if you want me to examine it. -- Regards, Jay Freedman Microsoft Word MVP FAQ: http://word.mvps.org Email cannot be acknowledged; please post all follow-ups to the newsgroup so all may benefit. >My macro actually unlock the form, change colors, print the form and re-lock >the form. Once the form is printed, it will disable all other macrobutton on [quoted text clipped - 102 lines] >> >> >is locked, i can't run it. Is there a way in the macro to first unlock the >> >> >form, then run the macro, then password protect the form again? Sorry that I cannot send you the form since it's confidential. Basically, the first 2 pages of the form is all writing with no form field, follwoing your comment below, what I found is that the macrobutton will work so long as it's placed on page with form field (regardless of the last cursor position) but it won't work if i place it on pages without form fields. Are you way to work around this? > This is only a guess, but here's what I think may be happening: > [quoted text clipped - 126 lines] > >> >> >is locked, i can't run it. Is there a way in the macro to first unlock the > >> >> >form, then run the macro, then password protect the form again? Sin was telling us: Sin nous racontait que : > Sorry that I cannot send you the form since it's confidential. > [quoted text clipped - 3 lines] > (regardless of the last cursor position) but it won't work if i place > it on pages without form fields. Are you way to work around this? I wrote the restart code.... At the time, it was in a different thread. I had no idea that it was going to be used sandwiched between two Unprotect/Protect statements, and I did not know it was destined to be activated from a MACROBUTTON. So, I never tested for that. Now, instead of playing around with a MACROBUTTON, if you are dealing with a template, why don't you use a Toolbar button? SignatureSalut! _______________________________________ Jean-Guy Marcil - Word MVP jmarcilREMOVE@CAPSsympatico.caTHISTOO Word MVP site: http://www.word.mvps.org The form is a downloadable template and the toolbar button won't be visible to other users. I managed to work around the problem by putting in a invisiable field on the first page, as such, the button will work multiple times. Thx Cindy > Sin was telling us: > Sin nous racontait que : [quoted text clipped - 16 lines] > Now, instead of playing around with a MACROBUTTON, if you are dealing with a > template, why don't you use a Toolbar button? Sin was telling us: Sin nous racontait que : > The form is a downloadable template and the toolbar button won't be > visible to other users. > > I managed to work around the problem by putting in a invisiable field > on the first page, as such, the button will work multiple times. Glad you worked it out! SignatureSalut! _______________________________________ Jean-Guy Marcil - Word MVP jmarcilREMOVE@CAPSsympatico.caTHISTOO Word MVP site: http://www.word.mvps.org Jay, I am still struggling to create a form in MS Word 2003 (XP). I want to use a macro button that allows a user to save/close a document and one that routes it. I tried using a macrobutton, but run into the protected/unprotected minefield. I double click on the macrobutton and nothing happens. :-) Public Sub SaveIt() ' With ActiveDocument If .ProtectionType <> wdNoProtection Then .UnProtect Password:="" End If End With ' 'Enable ENTER key on exit Application.Run MacroName:="ReinstateEnterKey" MsgBox Prompt:="SAVES and CLOSES supplier maintenance document, but does not route it." If ActiveDocument.Saved = False Then ActiveDocument.SaveAs ActiveDocument.protect Type:=wdAllowOnlyFormFields, _ NoReset:=True, Password:="" 'Close saved supplier maintenance form ActiveDocument.Close End Sub SignatureDJELLIOTT > There shouldn't be any problem getting a macrobutton to run a macro, > even in a protected form. The problem is that the macro can't make any [quoted text clipped - 28 lines] > >is locked, i can't run it. Is there a way in the macro to first unlock the > >form, then run the macro, then password protect the form again? The problem with using a macrobutton field in a protected form is that you can't really double-click it. Word sees the first click as an attempt to select something in the protected area of the form, and before your second click registers as being part of a double-click, the cursor is forced into the next available form field. The macro never gets invoked. The solution is another macro that tells Word to execute the macrobutton field on a single click instead of a double-click. See the "Double-click or single-click" section of http://www.word.mvps.org/FAQs/TblsFldsFms/HLinksInForms.htm. >Jay, I am still struggling to create a form in MS Word 2003 (XP). I want to >use a macro button that allows a user to save/close a document and one that [quoted text clipped - 20 lines] > ActiveDocument.Close >End Sub -- Regards, Jay Freedman Microsoft Word MVP FAQ: http://word.mvps.org Email cannot be acknowledged; please post all follow-ups to the newsgroup so all may benefit. Or use a custom toolbar button rather than a macrobutton? Signature<>>< ><<> ><<> <>>< ><<> <>>< <>><<> Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org <>>< ><<> ><<> <>>< ><<> <>>< <>><<> > The problem with using a macrobutton field in a protected form is > that you can't really double-click it. Word sees the first click as [quoted text clipped - 32 lines] >> ActiveDocument.Close >> End Sub |
Reply to this Message |
 Sign In
 Join
 My Latest Posts My Monitored Threads My Blog My Photo Gallery My Profile My Homepage Start New Thread Enable EMail Alerts Rate this Thread
|
©2008 Advenet LLC Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.