Hajo´s Bereich sperren VBA

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) '* H. Ziplies * '* 08.01.03 * '* erstellt von Hajo.Ziplies@web.de * '* <a href="http://home.media-n.de/ziplies/">http://home.media-n.de/ziplies/</a> * ' ein bestimmter Bereich darf nicht ausgewählt werden Dim RaBereich As Range, RaZelle As Range ' Bereich der Wirksamkeit Set RaBereich = Range("E28:E381") ' ActiveSheet.Unprotect For Each RaZelle In Range(Target.Address) If Intersect(RaZelle, RaBereich) Is Nothing Then Else Range("A1").Select Exit For End If Next RaZelle ' ActiveSheet.protect End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Hajo, hallo xlGemeinde,
ich habe den Code jetzt so geändert.


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'* H. Ziplies                                     *
'* 28.03.03                                       *
'* erstellt von Hajo.Ziplies@web.de               *
'* <a href="http://home.media-n.de/ziplies/">http://home.media-n.de/ziplies/</a> *
'   Formel dürfen nicht geändert werde
'   Makros müssen aktiv sein
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
BoPasswort = False
UserForm1.Show
If BoPasswort = True Then Exit Sub
RaZelle.Offset(0, 1).Select
Exit For
End If
Next RaZelle
'   ein bestimmter Bereich darf nicht ausgewählt werden
Dim RaBereich As Range
' Bereich der Wirksamkeit
Set RaBereich = Range("E27:F381")
'    ActiveSheet.Unprotect
For Each RaZelle In Range(Target.Address)
If Intersect(RaZelle, RaBereich) Is Nothing Then
Else
Range("A1").Select
Exit For
End If
Next RaZelle
'    ActiveSheet.protect
End Sub

Frage: Kann ich per VBA steuern, dass dieser Code nun ausgeführt wird oder nicht. Also praktisch aktivieren oder deaktivieren. Und dies verbunden mit einem Knopf. Schutz ein / aus.
Gruß
Michael

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) If BoPasswort = False Then Application.StatusBar = "Formeln können geändert werden" Else Application.StatusBar = "" End If BoPasswort = Not BoPasswort Cancel = True End Sub

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Hajo´s Bereich sperren VBA

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread