How can I set a password for Visio files? -

-

i want put password on files no 1 can open without permission

it appears short answer not unless have password protection zip files.

you can test vba code , play visibility. won't guarantee security of document because visio doesn't have flexibility save macro-enabled drawing... limiting ability secure vba.

you pique confusion of undesired user reading/viewing having of pages hidden... security obscurity if will.... unless enable macros, can still ideally want document why should use encrypted zip software , password protect document way.

anyway... if you're still game crazy experiment tried...

enabled developer view. go view code. here's how works... first need generate password hash. once password hash created... delete entire

  1. copy main sub, temporary sub, , core subs , functions below "thisdocument" object in developer > view code page
  2. set password entering password in place of "mypassword" in genmypwd sub. can execute leaving curser in text of sub , clicking "run" button @ top of microsoft visual basic applications menu.

  3. once see pop-up, press ctrl+v , paste content notepad. you'll effect.

    --------------------------- password hash --------------------------- 78f56c460a6ca4b15554e5fe5469aa036fb21efa7151e991d6f9a9fda4548f79 --------------------------- ok    ---------------------------

  4. once have hash, set variable in private own unique hash value.

    mypassword = "78f56c460a6ca4b15554e5fe5469aa036fb21efa7151e991d6f9a9fda4548f79"

  5. one caveat though, you'll have create button hidepages script... or create key-capture event hotkey combination , use add additional vba code save, hidepages, , close visio.

main sub capture open document event. - before set variable

private sub document_documentopened(byval doc ivdocument)     unauthenticated = true     mypassword = ""     while unauthenticated         'add number of tries         tries = tries + 1         'prompt password         trypassword = inputbox("enter password", "password required!")         'hash password attempt , compare current hash         if sha256hash(trypassword) = mypassword             'escape loop             unauthenticated = false             call showpages         else             if ((tries > 2) , (unauthenticated = true)) killvisio         end if     loop end sub

main sub after set variable

private sub document_documentopened(byval doc ivdocument)     unauthenticated = true     mypassword = "6da6f219dac977da75f2f2894f33abad5052af2a60ae9219af0e302eddd5bbc4"     while unauthenticated         'add number of tries         tries = tries + 1         'prompt password         trypassword = inputbox("enter password", "password required!")         'hash password attempt , compare current hash         if sha256hash(trypassword) = mypassword             'escape loop             unauthenticated = false             call showpages         else             if ((tries > 2) , (unauthenticated = true)) killvisio         end if     loop end sub

additional required subs , functions

sub killvisio()     set wshshell = createobject("wscript.shell")     strcommand = "c:\windows\system32\taskkill /im visio.exe -f"     wshshell.run ("cmd /c " & strcommand) end sub sub genmypwd()     msgbox sha256hash("p@ssw0rd"), vbexclamation, "your password hash" end sub sub showpages()     set vpages = thisdocument.pages     = 1 vpages.count         set visibility = vpages(i).pagesheet.cellsu("uivisibility")         if visibility = 1             visibility.formulau = 0         end if     next end sub sub hidepages() set vpages = thisdocument.pages     = 1 vpages.count         set visibility = vpages(i).pagesheet.cellsu("uivisibility")         if visibility = 0             visibility.formulau = 1         end if     next end sub function sha256hash(str)     dim b() byte     b = str     sha256hash = bytestohex(sha256hashbytes(b)) end function function md5hashbytes(abytes)     set objsha256 = createobject("system.security.cryptography.md5cryptoserviceprovider")     s = objsha256.initialize()     md5hashbytes = objsha256.computehash_2((abytes)) end function function sha256hashbytes(abytes)     'set objsha256 = createobject("system.security.cryptography.md5cryptoserviceprovider")     set objsha256 = createobject("system.security.cryptography.sha256managed")     objsha256         s = .initialize()         sha256hashbytes = .computehash_2((abytes))     end end function function stringtoutfbytes(astring)     set utf8 = createobject("system.text.utf8encoding")     stringtoutfbytes = utf8.getbytes_4(astring) end function function bytestohex(abytes)     x = 1 lenb(abytes)         hexstr = hex(ascb(midb((abytes), x, 1)))         if len(hexstr) = 1 hexstr = "0" & hexstr         bytestohex = bytestohex & hexstr     next end function

Comments

Post a Comment

Popular posts from this blog

wordpress - (T_ENDFOREACH) php error -

-
creating wordpress website , i'm getting following php error: parse error: syntax error, unexpected 'endforeach' (t_endforeach) in /home/soralmedia/public_html/wp-content/themes/soral media/woocommerce/myaccount/my-orders.php on line 98 here's code file: <?php /** * orders * * shows recent orders on account page. * * template can overridden copying yourtheme/woocommerce/myaccount/my-orders.php. * * however, on occasion woocommerce need update template files , (the theme developer). * need copy new files theme maintain compatibility. try this. * little possible, happen. when occurs version of template file will. * bumped , readme list important changes. * * @see http://docs.woothemes.com/document/template-structure/ * @author woothemes * @package woocommerce/templates * @version 2.5.0 */ if ( ! defined( 'abspath' ) ) { exit; } $my_orders_columns = apply_filters( 'woocommerce_my_account_my_orders_columns', array( ...
Read more

Export Excel workseet into txt file using vba - (text and numbers with formulas) -

-
i new vba have developed code use in excel move text/numbers txt file. issue have 3 functions need go same txt file. when run first function has set fs = createobject("scripting.filesystemobject") set = fs.createtextfile(module1.nys45uploadfilename, true) a.writeline (str) a.close. the other 2 functions had save. set fs = createobject("scripting.filesystemobject") set = fs.savetextfile(module1.nys45uploadfilename, true) a.writeline (str) a.close. the first function go txt file, other 2 error object doesn't support property or method. when changed 3 create last function goes txt file. can not figure out word use in order make other 2 functions follow txt file in order keyed. the entire code follows private sub addrecord_click() on error goto errhandler module1.nys45uploadfilename = application.getsaveasfilename(filefilter:="textfiles (*.txt), *.txt") if module1.nys45uploadfilename = "false" exit sub ...
Read more

Using django-mptt to get only the categories that have items -

-
sample structure: all uppercase: category mixed case: item root ├── books │   ├── fiction │   │   └── classics │   └── non-fiction ├── clothing └── electronics ├── laptops ├── phones │   ├── apple │   │   ├── iphone 6 │   │   ├── iphone 6 plus │   │   ├── iphone 6s │   │   └── iphone 6s plus │   ├── motorola │   │   ├── moto g4 │   │   ├── moto g4 play │   │   ├── moto g4 plus │   │   └── moto x │   └── samsung └── tablets └── apple i'm trying have index page show "electronics" category. "clothing" category shouldn't show since it's empty , "books" category shouldn't show either since, although has child categories, child categories don't have items. similarly, "electronics" page should show "phones" category. "laptops" category shouldn't show since it's empty , "tablets" category shouldn't show either since...
Read more