automatically enter text into input box

[smichael]

Hello all,
I have a code that requires a user to enter a text before saving the file in order to protect changes to this. The code runs well in protecting the original document, but I also have a macro that would automatically save the file location to something else, which now prompts the inputbox.

My question is: Is there a way to automatically enter the password (in VBA)into this input box once running the macro so that the user does not have to know the password?

Here is my code for saving the file locations to something else:

Sub save_as_WB()
Application.DisplayAlerts = False
 
    ActiveWorkbook.SaveAs Filename:= _
    "[URL="file://\\Parts\CopyOfParts_Inventory.xlsm"]\\Parts\CopyOfParts_Inventory.xlsm[/URL]", _
    FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=FalseApplication.WindowState = xlNormal
    Application.DisplayAlerts = True
End Sub

 

[tweedle]

Password is one of the SaveAs parameters

ActiveWorkbook.SaveAs Filename:= _
"\\Parts\CopyOfParts_Inventory.xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, _
Password:="drowssap", _
CreateBackup:=False

 

[smichael]

in preventing others from saving the original file, there is an input box that comes up through vba code that asks them to enter it. when i ran the other macro that automatically saves the file, it stops as soon as it gets to the input box.

is there a way to do something similar to ActiveCell but for an input box? i'm not sure how to go about this