Delete all content if username isn't "x"

Hi there,

is such a code even possible? If yes, why doesnt it work ? ^^

Please Login or Register  to view this content.

I didn't include the saving part of the workbook yet as the code above still doesn't work

I'd really appreciate it if someone could try out my code and tell me what went wrong instead giving me another one that would do the requested task(i'd like to learn a bit this way).

Thanks

The whole purpose of this code is to erease all content if another user tries to open the file. So if someone opens the file, all he sees is blank cells. The procedure shouldn't stop when one worksheets name is test - it should skip that one (just for test purposes). As far as i know, Application.username will do the job (the enduser won't be able to revert the clearcontents since thisworkbook.save will occur at the very end).

thanks for the code - i screwed up with the next ws before end if.

thanks!

Hi, Bishonen,

saving the workbook with a password for opening would be a more secure way - if I open your workbook with 2003 and Extensions for 2007 and hold down the Shift-Key when opening the workbook I guess all you had was a plan while I see your data. Itīs possible to get the data out of a closed workbook as well. And what about taking that in consideration for your concept?

Excel is by far the weakest software when it comes to security matters - sadly enough.

Ciao,
Holger