EXCEL VBA: How to set a password to another VBProject programmaticaly -


i have created vba code creates new .xlms file, adding code file , problem cannot protect vbpoject of new file. instead, wrongly password protect current vbproject (not new one, want). here code:

sub create_xlsm_file()  dim vbproj vbide.vbproject dim vbcomp vbide.vbcomponent dim codemod vbide.codemodule dim linenum long dim modulename string dim newprocasstring string dim mydir1 string dim filename1 string dim folderpath1 string dim filepath1 string dim pass1 string dim sheetname1filename1 string dim mastername string dim noofsheets integer dim newbook1 workbook  mastername = environ("username") mydir1 = "c:\users\" & mastername & "\desktop" filename1 = "lockedvbaproject" pass1 = "123" noofsheets = 1 sheetname1filename1 = "sh1" modulename = "module1" '----creating , save file------------------------------------------- set newbook1 = workbooks.add newbook1.activate filepath1 = mydir1 & "\" & filename1 application.sheetsinnewworkbook = noofsheets activeworkbook.sheets(1).name = sheetname1filename1 newbook1.saveas filename:=filepath1, fileformat:=xlopenxmlworkbookmacroenabled, password:=pass1 workbooks(filename1).close false '----add vba code file------------------------------------- application.workbooks.open (filepath1), password:=pass1 workbooks(filename1).activate '===================================================================== 'this part problem. sendkeys applied current project , ' not desired "lockedvbaproject" '===================================================================== application       '//execute controls lock project\\       .vbe.commandbars("menu bar").controls("tools") _                   .controls("vbaproject properties...").execute        '//activate 'protection'\\       .sendkeys "^{tab}", true        '//caution: either checks or unchecks the\\       '//"lock project viewing" checkbox, if it's already\\       '//been locked viewing, unlock it\\       .sendkeys "{ }", true        '//enter password (password 123 in example)\\       .sendkeys "{tab}" & "123", true        '//confirm password\\       .sendkeys "{tab}" & "123", true        '//scroll down ok key\\       .sendkeys "{tab}", true        '//click ok key\\       .sendkeys "{enter}", true        'the project locked - takes effect       'the next time book's opened... end '===================================================================== '===================================================================== '=====================================================================  set vbproj = activeworkbook.vbproject set vbcomp = vbproj.vbcomponents.add(vbext_ct_stdmodule) vbcomp.name = modulename set vbcomp = vbproj.vbcomponents("thisworkbook") set codemod = vbcomp.codemodule  codemod     linenum = .createeventproc("open", "workbook")     linenum = linenum + 2     newprocasstring = "msgbox ""hola !!!"""     codemod.insertlines linenum, newprocasstring end  workbooks(filename1).save workbooks(filename1).close false   thisworkbook.activate  end sub

can please me select , password protect desired new "lockedvbaproject" file? other suggestions? in advance time.


Comments

Post a Comment

Popular posts from this blog

php - failed to open stream: HTTP request failed! HTTP/1.0 400 Bad Request -

this code i'm using find latitude , longitude of place: function coords($address){ echo $url="http://maps.googleapis.com/maps/api/geocode/json?address=".$address; $json = file_get_contents(urlencode($url)); $data = json_decode($json, true); print_r($data['results'][0]['geometry']['location']['lat']); print_r($data['results'][0]['geometry']['location']['lng']); } however returns warning: failed open stream: http request failed! http/1.0 400 bad request if use above code in simple procedure works fine not in function. note: have tried curl_init()... method produced same result? instead of encoding whole url encode address part. following code work fine $add='jamshoro phase 2'; $url="http://maps.googleapis.com/maps/api/geocode/json?address=".urlencode($add); $json = file_get_contents($url); $data = json_decode($json, true); print_r($data['r
Read more

java - How to filter a backspace keyboard input -

i have code gives message when key number pressed: txtvalueofclause.addeventfilter(keyevent.key_typed, new eventhandler<keyevent>() { @override public void handle(keyevent t) { char ar[] = t.getcharacter().tochararray(); char ch = ar[t.getcharacter().tochararray().length - 1]; if (!(ch >= '0' && ch <= '9')) { system.out.println("the char entered not number"); t.consume(); } } }); now if press on wrong button , press backspace remove it, error message. how can add backspace input if statement? i have found answer: txtvalueofclause.addeventfilter(keyevent.key_typed, new eventhandler<keyevent>() { @override public void handle(keyevent t) { char ar[] = t.getcharacter().tochararray(); char ch = ar[t.getcharacter().tochar
Read more

java - Show Soft Keyboard when EditText Appears -

i have code in android app, alert dialog , keyboard, , when dialog shown want keyboard appear. not , not sure why? here code: final alertdialog.builder alert = new alertdialog.builder(this); alert.settitle("title"); alert.setmessage("message"); final edittext input = new edittext(this); input.setinputtype(inputtype.type_class_number); alert.setview(input); input.setonfocuschangelistener(new view.onfocuschangelistener() { @override public void onfocuschange(view v, boolean hasfocus) { if (hasfocus) { log.i(tag, "in focus"); inputmethodmanager inputmethodmanager = (inputmethodmanager) getsystemservice(context.input_method_service); inputmethodmanager.showsoftinput(input, inputmethodmanager.show_implicit); } } }); but keyboard not appear though edit text in focus, , tell appear why, doesn't come up? thanks in advance.
Read more