Password lock everything in sheet

[pedie]

Hi,
Can password lock everything in sheet including the view tab....As i dont want the user to be able to
unfreeze(which is now working), + i dont want them to be able to click on formula bar check box and headings...
Is there a way to achieve this as normally it cant be?
Thanks for suggesting.
Pedie

 

[VoG]

Hi.

You can hide pretty much anything. In XL 2007+ you'd need to hide the ribbon and QAT as well. This will only work if macros are enabled:

Sub DictatorApplication()
Dim cBar As CommandBar
Application.ScreenUpdating = False
ThisWorkbook.Protect Windows:=True
With ActiveWindow
    .WindowState = xlMaximized
    .DisplayHorizontalScrollBar = False
    .DisplayVerticalScrollBar = False
    .DisplayWorkbookTabs = False
    .DisplayHeadings = False
End With
With Application
    .DisplayFormulaBar = False
    .DisplayStatusBar = False
End With
For Each cBar In CommandBars
    cBar.Enabled = False
Next cBar
Application.ScreenUpdating = True
End Sub

 

[pedie]

Peter, this is cool and pretty much everything but i can still click on formula bar check box under view tab. I also want to disable that...please.
Thanks again!

 

[VoG]

You can hide the ribbon like this

Application.SendKeys ("^{F1}") 'hide ribbon (Yuk! but it works)

Not sure about the QAT. I don't think that is accessible from VBA.

 

[pedie]

But still I can click on view...lol!

Thats k, Peter. This much will do.

You have a great weekend!

 

[pedie]

Sorry but how to bring things back to normal??? after executing this code????

is this it?

ThisWorkbook.Protect Windows:=False

 

[VoG]

ThisWorkbook.Unprotect

 

[pedie]

ThisWorkbook.Unprotect

'Just
ThisWorkbook.Unprotect '?
 or 
 ThisWorkbook.Unprotect Windows:=False

 

[VoG]

I think so, yes.

 

[pedie]

Thanks again!<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>