Unhide hidden Workbooks in a specific directory by password

[egemencoskun]

Hi All,

I have about 200 workbooks all in same directory. The reason why they are hidden is that each workbook should only be accessed by their specific users.

I need a macro to run on a separate workbook (call it log in workbook and this work book is not hidden - the only unhidden workbook in that directory -) for user to enter password to unhide specific file.

All file names with extensions are stored in "log in" workbook Sheet1 (Column A Workbook name and Column B Password).

I am also aware that this is not the most secure way to deal with this issue and an average computer user can easily access any file but I am fine with that. - All our users are well below average lol :-) -

Any help would be greatly appreciated.

Ege

[nathansav]

You'll need to use the FileSystemObject and look at the attributes of each of the files and change

Constant Value Description
Normal 0 Normal file. No attributes are set.
ReadOnly 1 Read-only file. Attribute is read/write.
Hidden 2 Hidden file. Attribute is read/write.
System 4 System file. Attribute is read/write.
Volume 8 Disk drive volume label. Attribute is read-only.
Directory 16 Folder or directory. Attribute is read-only.
Archive 32 File has changed since last backup. Attribute is read/write.
Alias 64 Link or shortcut. Attribute is read-only.
Compressed 128 Compressed file. Attribute is read-only.

[egemencoskun]

Thanks Nathan,

All the files are hidden, not archived, not compressed, no system files and all .xlsx files but unsure what you mean?

It should be a macro scan through all xlsx files including hidden xlsx files in that directory and unhide the one if the correct password is entered.

[nathansav]

Google the filesystem object






Constant Value Description
Normal 0 Normal file. No attributes are set.
ReadOnly 1 Read-only file. Attribute is read/write.
Hidden 2 Hidden file. Attribute is read/write.
System 4 System file. Attribute is read/write.
Volume 8 Disk drive volume label. Attribute is read-only.
Directory 16 Folder or directory. Attribute is read-only.
Archive 32 File has changed since last backup. Attribute is read/write.
Alias 64 Link or shortcut. Attribute is read-only.
Compressed 128 Compressed file. Attribute is read-only.

[egemencoskun]

Thanks again!!!

I did Google it and I do not understand a thing.

If I had the required programming knowledge to to be able to sort this by googling filesystemobject I wouldn't have come here.

[nathansav]

This didnt help 1st two on google?

http://stackoverflow.com/questions/3...mobject-in-vba

http://msdn.microsoft.com/en-us/libr...(v=vs.71).aspx

[egemencoskun]

For anyone if they need anything something similar in the future here is my solution works like a charm without making something simple a major task :-)

2 different solution one been hyperlink formula and other is macro (Macro1)

You don't need fileobject or whatever or hrs of google search for something you have no idea what it is.

You can make password tabs .veryhidden.

Please Login or Register  to view this content.

Link to file is on B9 of active worksheet and you can amend the formula in B9 if you want to use the code as currently it is set as it is not using the code but link in the file.

Regards,

Ege