Spreadsheet appearance
Scroll bars, and row and column headers are set in ToolsOptions.
Toolbars can be removed with on opening and restored on close with this code
Option Explicit
Private mFormulaBar
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim oCB As CommandBar
For Each oCB In Application.CommandBars
oCB.Enabled = True
Next oCB
Application.DisplayFormulaBar = mFormulaBar
End Sub
Private Sub Workbook_Open()
Dim oCB As CommandBar
For Each oCB In Application.CommandBars
oCB.Enabled = False
Next oCB
mFormulaBar = Application.DisplayFormulaBar
Application.DisplayFormulaBar = False
End Sub
'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code
--
HTH
RP
(remove nothere from the email address if mailing direct)
"Ken G." wrote in message
...
I have a spreadsheet (not mine) which when opened displays no tool bars,
scroll bars, or row and column headers. I know it is easy to break a
password on Excel and I'd like to be able to convert some of the sheets I
send out to various people in our organisation to the above format. I
would
think it would be very difficult for an unauthorised user to get behind
the
scenes.
How do you create a spreadsheet that looks like that? Can the readily
available password crackers be used on a sheet like this?
|