Vba Blattschutz mit Objekte bearbeiten
13.01.2020 07:13:28
Marco
ich hoffe ich stelle die Frage nicht zu 1000.mal 😅
Auf meinem gesperrten arbeitsblatt möchte ich zulassen, dass "Objekte kopieren" also Bilder einfügen möglich ist. Bisher habe ich hinbekommen, dass sich mit einem doppelklick die Zeile in gewünschter Farbe füllt und mit erneutem doppelklick wieder in die ursprüngliche Farbe zurück geht. Wenn ich mein arbeitsblatt sperre und das Häkchen bei "Objekte bearbeiten" zulassen setze funktioniert es bis zum ersten ausführen des vba... Im Anschluss wird der blattschutz aber wieder so aktiviert, dass ich keine Sachen mehr einfügen kann. Darüber hinaus möchte ich, dass das ganze nur auf einen bestimmten Bereich und nicht auf das ganze arbeitsblatt angewendet wird Ich hoffe es kann mir jemand helfen und bedanke mich schonmal im voraus.
Der Code lautet bisher wie folgt...
Private Sub worksheet_beforedoubleclick(byval target as Ränge, cancel as boolean)
Activesheet. Unprotect "pw"
If target. Interior. Color = rgb () then
Target. Interiorcolor=rgb ()
Else
Target. Interior. Color = rgd ()
End if
Cancel = true
Activesheet. Protected "pw"
End Sub