excel - VBA: How can I password protect modules using code? -


i have file saves copy of go recipients, end many files contain recipient-specific information , original maste file contains information. when recipient-specific files made, have code deletes information related recipient , locks down workbook , sheets randomly made password using below function:

function pwd(ilength integer) string dim integer, itemp integer, bok boolean, strtemp string '48-57 = 0 9, 65-90 = z, 97-122 = z 'amend other characters if required = 1 ilength             itemp = int((122 - 48 + 1) * rnd + 48)         select case itemp         case 48 57, 65 90, 97 122: bok = true         case else: bok = false         end select     loop until bok = true     bok = false     strtemp = strtemp & chr(itemp) next pwd = strtemp end function

is possible lock down modules cannot edited? want same functionality excel provide in visual basic going tools -> vbaproject - project properties -> protection, through code can applied each of recipient specific files.

i can apply protection sheets using code like:

sheets(1).protect password, true, true

and workbook code like: 

activeworkbook.protect password, true, false

but there can use lock down modules?

notwithstanding advice given security of excel passwords/protection, , comprehensive (non-sendkeys) solution linked carl colijn, have used dirty sendkeys method myself success - see example below, , here more details on sendkeys. ymmv etc.

note have find option "trust access vba project object model" in excel trust center > macro settings, or equivalent version of excel

sub unprotectvbproj(byref wb workbook, byval pwd string)      dim vbproj object      set vbproj = wb.vbproject      if vbproj.protection <> 1 exit sub ' unprotected      set application.vbe.activevbproject = vbproj      sendkeys "%te" & pwd & "~~"  end sub  sub protectvbproj(byref wb workbook, byval pwd string)      dim vbproj object      set vbproj = wb.vbproject      if vbproj.protection = 1 exit sub ' protected      set application.vbe.activevbproject = vbproj      sendkeys "%te+{tab}{right}%v%p" & pwd & "%c" & pwd & "{tab}{enter}"  end sub

Comments

Post a Comment

Popular posts from this blog

php - Wordpress website dashboard page or post editor content is not showing but front end data is showing properly -

Image
recently have uploaded wordpress site onto server. have uploaded wordpress site in sub-folder under root folder ../root(domain root folder)/wordpress (where host wordpress folder). now problem content data in page or post in dashboard of wordpress admin panel not showing - see image. but data showing in front view - see image. if not browser cache issue , not issue happened tinymce editor during upgrade; try add config file: define('concatenate_scripts', false);
Read more

How to get the ip address of VM and use it to configure SSH connection dynamically in Ansible -

i trying ip address of vm , trying use establish ssh vm. following script: --- - hosts: localhost become: yes connection: local gather_facts: false serial: 1 vars_files: - createvmvars.yml tasks: - name: gathering vm info. vsphere_guest: vcenter_hostname: "{{vcenter_hostname}}" username: "{{vcenter_username}}" password: "{{vcenter_password}}" guest: "{{guest_name}}" vmware_guest_facts: yes register: var - debug: msg="{{var.ansible_facts.hw_eth0.ipaddresses[0]}}" - name: establishing ssh connection. script: /home/shasha/devops/scripts/ssh_configure.sh "{{var.ansible_facts.hw_eth0.ipaddresses[0]}}" following content of ssh_configure.sh : #!/bin/sh ssh-keygen -t rsa ssh-copy-id $1 but when running playbook, getting following error while executing third task: error! 'var' undefined but debug module(second task) printin
Read more

javascript - Get parameter of GET request -

i make request: createxhrrequest( "get", fileurl, function( err, response ) { if( err ) { alert( "error get!" ); } alert(response); }); and full response: { "status" : "ok", "message" : "jvberi0xljqkjdduxdgkmy how can jvberi0xlj ? i try response.message , response["message"]. nothing works. just simple access this: var json = json.parse(response); json.message
Read more