Fehler nach ...sht.unprotect/sht.protect Tab/Left/Right funktioniert nicht mehr

[kgs-ks]

Hallo
nach einem Aufruf von " protect/unprotect " für ein externes Blatt sind im aktiven Blatt
plötzlich die Tasten zum Bewegen der aktiven Zelle (Tab, Links, Rechts.....) gesperrt (Excel 2010)
Ich muss das externe Blatt einmal aktivieren, was ich eigentlich vermeiden wollte
(kann aktuell nur mit einer globalen Variablen eine endloschleife verhindern....)

Hat jemand dazu eine Erkenntnis ?

Code-Auszug:
....
dte = getDate()
If CDate(Format(Now(), "dd.MM.yyyy")) <= dte Then 'testVersion
    g_blnTest = True
    Set sht = ActiveSheet   'siehe unten
    ActiveWorkbook.Sheets("pExCR").Activate  'sollte vermieden werden...
    ActiveWorkbook.Sheets("pExCR").Unprotect "myKey"
    ActiveWorkbook.Sheets("pExCR").Cells(6, 3) = getMessage("pEx_HID_msg37") & dte
    ActiveWorkbook.Sheets("pExCR").Protect "myKey"
    ' hier entsteht der KEY- Fehler im Ausgangs-Blatt
    ' pExCR muss mindestens 1 mal aufgerufen werden
    '-->zurück zum Ausgangs-Blatt.....   aber: das geht nur im DebugMode, sonst Endlosschleife
    g_blnAutoSelection = True  '--> Endlosschleife  vermeiden !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    sht.Activate  'verweist über  pEx_L auf pEx_Z  (diesen code)!!!!!!!mit "g_blnAutoSelection" abgefangen
Else
.....