Password protect as cell value

[Dibbley247]

I came across a problem with a macro button which wouldn't print on a protected sheet, so to get round it, ive had to put on every macros button unprotect and protect passwords. But some users may be clever enough to view what the password is in the macro. How would I add in the "unprotect sheet" but have it write the password which would be hidden in sheet 1 A1, and also I've heard of a macro which can make a sheet "very hidden" and then when required "very unhidden" so no one can see the password in theory???????

[brynbaker]

First to apply the password simply use a line like this:

Please Login or Register  to view this content.

Choose your own range rather than B6. Pewrhaps a very high (but not max) row and column You are (quite rightly as there are users involed) paranoid.
And you might as well change the password dynamically every time you save the file. But TEST carefully and save lots of backups until you're confident.
The hardest debug I did was probably on a screensaver with paasword. I kept having to rebbot!

[Dibbley247]

I'll use this and try to incorporate the very hidden also, I have over 6000 formulas in this sheet so last thing I want is an accident or someone thinking they're funny! Thanks for the help, il let you know how it goes.

[Dibbley247]

Didn't work, The first line will come up yellow. Here is the full code, so you know what I need, Also I have this on many many graphs!!!!

Please Login or Register  to view this content.

[john55]

try this...

Please Login or Register  to view this content.

[Dibbley247]

Says the singles graph can not be found, The actual TAB is written as Total Re Wraps(Products)
Would the brackets on the tab confuse this then?

[john55]

well it's very confused to me too! lol
change Sheets("Total Rewraps") with Sheets("Total Re Wraps(Products)")

[Dibbley247]

No same thing again, but this time i've renamed the sheet without any brackets so it's not as confusing

Sub SinglesGraph()

' SinglesGraphPrintout Macro

Sheets("Total Rewraps").Unprotect Password:=Sheets("3 DAYS").Range("A1").Value

    Sheets("Total Rewraps (Products)").Select
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.ChartArea.Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Total Rewraps").Protect Password:=Sheets("3 DAYS").Range("A1").Value
End Sub 

[Dibbley247]

Gone back to this and redone all the macro that this was part of, I managed to make a separate sheet with the password on which is very hidden, but requires a macro to I hide in hide which I feel safer with!