#1
|
|||
|
|||
Button with VBA to attach a file in a protected document
I've got a form running perfectly with the exception of my "attach" button. I've got this macro attached to my button:
Code:
Private Sub CommandButton2_Click() ' Browse & Select File With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = False .Title = "Select the File that you want to insert" If .Show = True Then FiletoInsert = .SelectedItems(1) Else Exit Sub End If End With ' Embed File Inline Application.Selection.InlineShapes.AddOLEObject _ FileName:=FiletoInsert, _ LinkToFile:=False, _ DisplayAsIcon:=True, _ IconLabel:=Right(FiletoInsert, Len(FiletoInsert) - InStrRev(FiletoInsert, "\")) End Sub I've got my protection set up as shown in the attachment. How can I get the attach macro to play nice with the protection? Thank you! |
#2
|
|||
|
|||
add code in your macro to unprotect and then reprotect the document.
|
#3
|
|||
|
|||
@gmaxey
I've found your code here: VBA code in word 2007 for "protect" and "unprotect" - Microsoft Community I need to adapt this for password-protected forms. Can you please assist? Thank you! |
#4
|
|||
|
|||
Quote:
Are you able to assist? Thank you! |
#5
|
|||
|
|||
Something like this should do. Change "Password" to your document password:
Code:
Option Explicit Private Sub CommandButton2_Click() With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = False .Title = "Select the File that you want to insert" If .Show = True Then FiletoInsert = .SelectedItems(1) Else Exit Sub End If End With UnProt "Password" Application.Selection.InlineShapes.AddOLEObject _ FileName:=FiletoInsert, _ LinkToFile:=False, _ DisplayAsIcon:=True, _ IconLabel:=Right(FiletoInsert, Len(FiletoInsert) - InStrRev(FiletoInsert, "\")) Prot "Password" End Sub Sub Prot(strPW As String) 'A basic Word macro coded by Greg Maxey ActiveDocument.Protect wdAllowOnlyFormFields, True, strPW End Sub Sub UnProt(strPW As String) 'A basic Word macro coded by Greg Maxey If ActiveDocument.ProtectionType <> wdNoProtection Then ActiveDocument.Unprotect strPW End If End Sub |
#6
|
|||
|
|||
Nevermind - I got it. Thank you!
|
#7
|
|||
|
|||
So you image doesn't show:
Code:
Sub Prot(strPW As String) 'A basic Word macro coded by Greg Maxey ActiveDocument.Protect wdAllowOnlyFormFields, True, strPW End Sub Sub UnProt(strPW As String) 'A basic Word macro coded by Greg Maxey If ActiveDocument.ProtectionType <> wdNoProtection Then ActiveDocument.Unprotect strPW End If End Sub Where did you put them? Put them in your userform module with the command button code. |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
VBA to create a button to attach the active word doc to an email as a PDF without using Outlook | TAKMalcolm | Word VBA | 1 | 09-21-2017 01:52 AM |
How do I attach a ribbon button to a particular template in Word 2010? | HelenT | Word VBA | 1 | 10-07-2015 03:32 AM |
File Not Found error when trying to attach Word document to email | Kimber | Word | 0 | 03-06-2015 06:47 PM |
Command Button will not work when document is protected | brockjensen | Word | 1 | 11-02-2012 06:59 PM |
Debug for macro run through button only when sheet protected | leahca | Excel Programming | 0 | 11-24-2011 04:47 AM |