Minimal Excel UI

[JasonSelf]

I am trying to the UI from excel to be as minimal a part of the sheet
am working as possible. I would like to get the scrollbars t
dissapear, the tabs to dissapear, and the column/row headings t
dissapear as well. Any other ideas would be great. If any one ha
any information on this or could point me in the right direction
would appreciate it.

Thank you,
Jason Sel

 

[Guest]

Lots of stuff you can do. I am working on something that barely resembles
Excel. Here are a few things.

'Lock the scroll area
sheets("Sheet1").ScrollArea = "A1:B2"
If Application.DisplayFormulaBar Then Application.DisplayFormulaBar = False
Application.DisplayAlerts = False
Application.MoveAfterReturn = False
Application.Cursor = xlNorthwestArrow
Application.ActiveWindow.DisplayHeadings = False
Application.ActiveWindow.DisplayWorkbookTabs = False
Application.Caption = APP_NAME
If Application.Calculation = xlManual Then Application.Calculation =
xlAutomatic
Call SetKeyboardState 'disable jumps to different sheets
Call RemoveExcelToolbars


Private Sub SetKeyboardState()
On Error GoTo ErrorHandler
If Not g_cDebug Then
Application.OnKey "{ESC}", ""
Application.OnKey "^{BREAK}", ""
Application.OnKey "^{PGDN}", "" 'Disable Ctrl-PageUp
Application.OnKey "^{PGUP}", "" 'Disable Ctrl-PageDown

Application.OnKey "^{s}", ""
Application.OnKey "^{c}", ""
Application.OnKey "^{g}", ""
Application.OnKey "^{n}", ""
Application.OnKey "^{f}", ""
Application.OnKey "^{x}", ""
End If
End Sub

Public Sub RemoveExcelToolbars()
Dim cbar As CommandBar

On Error GoTo RemoveExcelToolbars_Err

DeleteSetting thisworkbook.Name, "Toolbar"

For Each cbar In CommandBars
If cbar.Visible And cbar.Name <> "Worksheet Menu Bar" Then
If cbar.Name = MAINTOOLBARNAME Then
cbar.Delete
Else
cbar.Visible = False
SaveSetting ThisWorkbook.Name, "Toolbar", CStr(cbar.Index),
"True"
End If
End If
Next

Set cbar = Nothing

Exit Sub

RemoveExcelToolbars_Err:
If Err = 5 Then
Resume Next
Else
MsgBox Err.Number & " - " & Err.Description
End If
Application.ScreenUpdating = True

Set cbar = Nothing
End Sub

There are a few subs missing along with some Global constants so this won't
compile but it give you a few ideas...

 

[Steve Smallman]

Try tools/options

and the View tab, uncheck the Scroll bars, row and column headings etc.
here

Steve