Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<
Microsoft Office 2003-2019 => Excel => Thema gestartet von: kgs-ks am Januar 11, 2015, 14:26:33 Nachmittag
-
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
.....