Hallo,
wiedermal ich ...:):)
Aber ich weiß dass ich hier immer top Hilfe bekomme:)
ActiveSheet.Protect
Ich habe eine Tabelle mit mehreren gesperrten Zellen, einige davon sind frei.
Nun möchte ich für eine gesperrte Zelle eine Userform nutzen.
Das klappt aber nicht =( (nur bei freien Zellen)
Die Userform öffnet sich bei Doppelklick auf die Zelle.
Gibt es eine Möglichkeit Doppelklicks zu erlauben bei gesperrten Zellen?
Dann würde ich einfach bei falscher Zellenauswahl den Doppelklick abbrechen.
Liebe Grüße
Hallo,
danke für die rasche Rückmeldung
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveSheet.Unprotect Password:="XXX"
Select Case Target.Column
Case 2
UserForm.Show
Case Else
Range("E3").Select
End Select
ActiveSheet.Unprotect Password:="XXX"
End Sub
Hallo,
das die 'normale' Reaktion (Excel geht in den Bearbeitungsmodus) vom Doppelclick nicht ausgeführt wird.
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveSheet.Unprotect Password:="XXX"
Select Case Target.Column
Case 2
UserForm.Show
Case Else
Range("E3").Select
End Select
Cancel = True
ActiveSheet.Unprotect Password:="XXX"
End Sub
(02.03.2018, 17:01)Steffl schrieb: [ -> ]Hallo,
das die 'normale' Reaktion (Excel geht in den Bearbeitungsmodus) vom Doppelclick nicht ausgeführt wird.
Hi,
leider klappt das immer noch nicht.
Sprich in den Zellen die ich nicht geschützt hab klappt es wunderbar, nur bei den gesperrten öffnet sich nichts beim Doppelklick.
jemand eine andere Idee was falsch sein könnte?
Muss ich bei jeder User form auch was hineinschreiben?
liebe Grüße aus Südtirol =)
Hallo,
könntest Du deine Datei hier hochladen?
(05.03.2018, 09:04)Steffl schrieb: [ -> ]Hallo,
könntest Du deine Datei hier hochladen?
Hallo, siehe Anhang die Excel vereinfacht dargestellt.
:20: vermutlich habe ich einen blöden Fehler drin =( bin noch nicht sooo lange VBA-User
Die Grünen Zellen kann man immer ändern auch ohne User form.
Die roten darf man nur mit der jeweiligen User form ändern.
hoffe du kannst mir helfen
Liebe Grüße.
Hallo,
ändere mal die EnableSelection-Eigenschaft so
Code:
ActiveSheet.EnableSelection = xlNoRestrictions
ab. Ich würde übrigens auf das Select verzichten.
(05.03.2018, 10:13)Steffl schrieb: [ -> ]Hallo,
ändere mal die EnableSelection-Eigenschaft so
Code:
ActiveSheet.EnableSelection = xlNoRestrictions
ab. Ich würde übrigens auf das Select verzichten.
dankeeee es funktioniert =)
vielen vielen Dank,
ich liebe das Forum =)
interessehalber, wieso würdest du darauf verzichten?
Hallo,
(05.03.2018, 10:21)Topology schrieb: [ -> ]interessehalber, wieso würdest du darauf verzichten?
weil es das unnötig ist, nur deinen Code verlangsamt, der Bildschirm flackert usw.