Scrollbereich "festzurren"-Erbitte Hilfe!
14.10.2004 08:58:45
birgit
die birgit hier mit einer frage zum thema scrollbereich.
ich habe in meiner tabelle folgenden code eingegeben auf dem ersten tabellenblatt, um das scollen in der tabelle zu verhindern, da sich unterhalb der tabelle, also im nicht sichtbaren bereich, daten befinden, die sensibler art sind und nur mich und meinen chef etwas angehen.
Private Sub Workbook_Open()
Dim ws As Worksheet, rc As Long
For Each ws In Worksheets
If Not ws.Name = "Grundeinstellungen" Then
rc = ws.Rows.Count
ws.Columns("N:IV").Hidden = True
ws.Rows("40:" & rc).Hidden = True
ws.ScrollArea = "$A$1"
End If
Next
End Sub
per zufall habe ich allerdings nun festgestellt, dass man das scrollen leicht aktivieren kann, indem man die strg-taste gedrückt hält und mit dem mausrad scrollt.
nun wird zwar die schrift kleiner, aber mit etwas übung kann man sich das, was nicht lesbar sein soll, lesbar machen, da bin ich mir sicher.
nun könnte ich natürlich die schrift ausblenden, oder zeilen ausblenden, oder oder oder....aber das ist nun mal für jeden auch etwas ungeübten sichtbar.
welche möglichkeit habe ich, diese tastenkombination zu killen?
danke an euch alle und liebe grüße
birgit