Option Explicit
Dim BlattAlt As Worksheet
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Not BlattAlt Is Nothing Then
If Target.Address(0, 0) = "A1" Then
Cancel = True
BlattAlt.Select
End If
End If
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Set BlattAlt = Sh
End SubPublic last As String
Public Sub ZURÜCK()
If last = "" Then last = ActiveSheet.Name
Sheets(last).Activate
End SubPrivate Sub Workbook_SheetDeactivate(ByVal Sh As Object)
last = Sh.Name
End Sub