AW: Formel ausblenden
07.08.2003 14:34:55
Michael Brüggemann
Hallo Wang,
ich würde wie folgt vorgehen:
1.
Über "Extras - Optionen - Ansicht" die "Bearbeitungsleiste" abschalten
2.
Alle Zellen des Arbeitsblattes schützen (ist Default), indem Du alle Zellen markierst und über rechte Maustaste "Zellen formatieren - Schutz - Gesperrt" die Zellen schützt.
3.
Die Zellen wieder freigeben, in die Eingaben erfolgen sollen (markieren der Zellen, rechte Maustaste, "Zellen formatieren - Schutz - Gesperrt" ausschalten.
4.
Das Arbeitsblatt mit Kennwort schützen über "Extras - SChutz - Blatt".
Wenn Du den Benutzer nun auch noch einschränken möchtest, so dass er die Bearbeitungszeile überhaupt nicht aktivieren kann, kannst Du folgenden Code in "Diese Arbeitsmappe" kopieren.
Option Explicit
Dim blnFormulaBarVisible, blnExtrasOptionenEnabled As Boolean
Private Sub Workbook_BeforeClose(Cancel As Boolean)
' Anzeige der Bearbeitungszeile zurücksetzen
Application.DisplayFormulaBar = blnFormulaBarVisible
' Aktivierung des Menüpunktes "Extras - Optionen" zurücksetzen
Application.CommandBars(1).Controls("Extras").Controls("Optionen...").Enabled = True
End Sub
Private Sub Workbook_Open()
' merken, ob die Bearbeitungszeile sichtbar ist
blnFormulaBarVisible = Application.DisplayFormulaBar
' merken, ob Menüpunkt "Extras - Optionen" verfügbar ist
blnExtrasOptionenEnabled = Application.CommandBars(1).Controls("Extras"). _
Controls("Optionen...").Enabled
' Bearbeitungszeile deaktivieren
Application.DisplayFormulaBar = False
' Menüpunkt "Extras - Optionen" deaktivieren
Application.CommandBars(1).Controls("Extras").Controls("Optionen..."). _
Enabled = False
End Sub
CIAO
Michael