muss ich eigentlich einen VBA - Befehl in jedem Tabellenblatte wiederholen
oder kann ich dass auch irgendwie unter Arbeitsmappe für alle Blätter feste legen ?!
Danke.
Jörg
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Select Case Target.Address(0, 0)
Case "O3"
ActiveSheet.Unprotect "jg"
If Rows("15:17").Hidden Then
Rows("15:17").Hidden = False
Target.Interior.ColorIndex = 4
Else
If Rows("23:84").Hidden Then Rows("15:17").Hidden = True
Target.Interior.ColorIndex = 3
End If
If Rows("85").Hidden Then
Rows("85").Hidden = False
Else
If Rows("23:84").Hidden Then Rows("85").Hidden = True
End If
ActiveSheet.Protect "jg"
Case Else
Cancel = False
End Select
End Sub
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel _
As Boolean)
Cancel = True
Select Case Target.Address(0, 0)
Case "O3"
ActiveSheet.Unprotect "jg"
If Rows("15:17").Hidden Then
Rows("15:17").Hidden = False
Target.Interior.ColorIndex = 4
Else
If Rows("23:84").Hidden Then Rows("15:17").Hidden = True
Target.Interior.ColorIndex = 3
End If
If Rows("85").Hidden Then
Rows("85").Hidden = False
Else
If Rows("23:84").Hidden Then Rows("85").Hidden = True
End If
ActiveSheet.Protect "jg"
Case Else
Cancel = False
End Select
End Sub