Zeilen ausblenden mit aktivem Schutz

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Jiri,
dieser Code wurde hier im Forum mal vorgestellt
Option Explicit
Dim StAdresse As String


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'   Formeln dürfen nicht geändert werden
'   sollen Formeln geändert werden, sind diese einzeln auszuwählen
'   wird eine Zelle mit Formel ausgewählt, wird der zuletzt gewählte Bereich markiert
Dim RaZelle As Range
Dim InMldg As Integer
For Each RaZelle In Range(Target.Address)
'      es dürfen keine Zellen mit Formeln ausgewählt werden
If RaZelle.HasFormula Then
'            Diesen Teil reinnehmen, falls Formeln geändert werden dürfen
'            InMldg = MsgBox("Wollen Sie die Formel ändern", vbYesNo + vbQuestion, "Formelabfrage ?", "", 0)
'            If InMldg = 6 Then Exit Sub
Application.EnableEvents = False
If StAdresse <> "" Then
Range(StAdresse).Select
Application.EnableEvents = True
Exit For
Else
If RaZelle.Column < 256 Then
RaZelle.Offset(0, 1).Select
Else
RaZelle.Offset(0, -1).Select
End If
Application.EnableEvents = True
Exit For
End If
End If
Next RaZelle
StAdresse = Selection.Address
End Sub

Damit kann eine Zelle mit Formel nicht ausgewählt und überschrieben werden.
Kopiere diesen Code und in Excel rechten Mausklick auf Blattregister, code anzeigen und einfügen.
Gruß Hübi

Danke für die Antworten:
HerbertH:
Ich habe dein vba programm INSTALLIERT so wird bei öffnen automatisch der Blatschutz aktiviert, aber die Kontextmenubefehle Ausblenden und Einblenden werden leider auch desaktiviert.
Hübi:Bei deimen Code wird im wesentlichen das fokusieren von Zellen welche Formelnenthalten verhindert. Ich bin mir aber nicht sicher ob das auch verhindert, dass
ganze Bereiche oder Zeilen, welche zT Formeln besitzen, markiert und gelöscht werden können. Weiter weiss ich auch nicht ob dies Bezüge Schützt (ich habe zT. einen bezug auf externe Xls. zellen.
Werde dass sobald ich zeit habe Testen.
ULF:
Das tönt so als ob mein Problem unter Office 2002 nicht mehr present wäre?
Ich werde in der in Kürze eine neue Version von Office (Office 2003 Basic OEM) erhalten
und versuchen ob es dort klappt.
Nochmal allen herzlichen Dank

Beliebteste Forumthreads (12 Monate)

Zeilen ausblenden mit aktivem Schutz

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeilen ausblenden mit aktivem Schutz

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread