mit rechter Maustaste Zellschutz aufheben
18.10.2005 16:14:40
harald
Ich habe am 12.10.05 um 19:01 Uhr den text unter t680843.htm geschrieben, aber bisher noch keine zufriedenstellende Antwort bekommen. Deshalb hier noch einmal die Frage, ob es überhaupt möglich ist, das Problem zu realisieren:
Kann man mit VBA erreichen, dass durch drücken der rechten Maustaste auf eine gesperrte Zelle diese Zelle für eine Eingabe freigegeben und beim verlassen der Zelle diese wieder gesperrt wird? Wenn ja - bitte helft mir weiter.
Antwort von Hajo_Zi
unter der Tabelle
Option Explicit
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
ActiveSheet.Unprotect ""
Target.Locked = False
ActiveSheet.Protect ""
Cancel = True
End Sub
Antwort von mir:
Hallo Hajo,
ich habe den Code ausprobiert, aber es funktioniert noch nicht wie gewünscht. Den Test habe ich hochgeladen:
https://www.herber.de/bbs/user/27452.xls
Das Problem ist wohl, dass ich die gesperrten Zellen (Doppelpunkte, Mannschaften, Schiedsgericht)normalerweise überspringen will und deshalb beim Blattschutz angegeben habe, dass gesperrte Zellen nicht usgewählt werden sollen. Ich möchte aber erreichen, dass man normalerweise nur zu den Feldern für die Ergebniseingabe kommt, und nur auf besonderen Wunsch (rechter Mausklick) auch einen Wert in die Spalte "Feld" eingeben kann.
Ist das in Excel überhaupt machbar?
mfg
harald