Office: (Office 2013) Bearbeitungsmodus verhindern

Hallo,

mit diesem Code kannich ja den Bearbeitungsmodus in einem Sheet und Bereich verhindern.

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A1:B10")) Is Nothing Then Cancel = True
End Sub

Wie kann ich denn das auf alle Blätter anwenden ohne es in jedes zu kopieren ?

 

Hallo,

vorgenannten VBA-Code hast du ins Codemodul eines Arbeitsblattes geschrieben.

Folgenden VBA-Code musst du ins Codemodul der Arbeitsmappe "DieseArbeitsmappe" schreiben:

Code:

Option Explicit

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
   If Not Intersect(Target, Range("A1:B10")) Is Nothing Then Cancel = True
End Sub

Er wirkt sich auf den Zellbereich A1:B10 des jeweils aktiven Arbeitsblattes aus.

 

Hallo,

danke schön,funktioniert wie gewünscht.