Blattschutz soll nur bestimmte Steuerelemente schützen!Excel 2003 - VBA

Mitglied: Dudelidude

Dudelidude (Level 1) - Jetzt verbinden

29.07.2011 um 13:28 Uhr, 11607 Aufrufe, 4 Kommentare

Hallo Leute auch wenn Freitaf ist, muss ich nochmal nerven.

Ich habe ein Sheet mit unterschiedliechen Steuerelmenten. Dazu habe ich ein Makro, dass alle Steuerelemente ungeschützt lässt.Soweit so gut.Allerdings können diese ungeschützten Steuerelemente auch verschoben oder versehentlich gelöscht werden. Nun würde ich gern, dass ich diese Steuerelemente irgendwie an Ort und Stelle verankern kann, ohne dabei deren funktionalität ein zu schränken.
Hat jemand eine Idee wie ich das anstellen kann?

Hier noch der Code:



Sub BlattschutzAllerBlätterSetzen()
'stellt den Blattschutz für alle Blätter wieder her
'Blattschutz erlaubt: Zeilen ausblenden, Objekte einfügen (Zeilen ausblenden wg. Buildings,
'Objekte einfügen wg. Photos)

For i = 1 To ThisWorkbook.Sheets.Count
Sheets(i).Protect "Passwort", DrawingObjects:=False, Contents:=True, Scenarios:=True
Sheets(i).EnableSelection = xlUnlockedCells
Application.WindowState = xlNormal
Next i
Mitglied: 76109
76109 (Level 3)
29.07.2011 um 19:55 Uhr
Hallo Dudelidude!

Das geht so nicht. Wenn Du die Steuerelemente schützen willst (DrawingObjects:=True), dann können keine Objecte (Bilder...) eingefügt werden.

Gruß Dieter
Bitte warten ..
Mitglied: Dudelidude
01.08.2011 um 09:24 Uhr
Hallo Didi

Okay danke. Aber gibt eine Möglichkeit meine Auswahlfelder zu schützen und einen Bereich zu definieren, indem ich dann die Bilder einfügen lassen kann?
Hast du dafür vielleicht eine Lösung?Vielen Dank schonmal für deine Hilfe bis hierhin.
Bitte warten ..
Mitglied: 76109
76109 (Level 3)
02.08.2011 um 00:24 Uhr
Hallo Dudelidude!

Ich sehe da leider keine Möglichkeit. Steuerelemente zählen genauso wie Bilder und sonstige Objecte zu den DrawingObjects und sobald diese Eigenschaft auf True gesetzt ist, können weder im geschützten noch in einem ungeschützten Bereich Objekte eingefügt werden...

Gruß Dieter
Bitte warten ..
Mitglied: Dudelidude
02.08.2011 um 09:17 Uhr
Hey Didi,

vielen Dank. Wenigstens muss ich jetzt keine Zeit mehr darauf verwenden. Noch eine schöne weitere Woche. Dank und Gruß vom Dudelidude!
Bitte warten ..
Heiß diskutierte Inhalte
Exchange Server
Exchange Zero Day Hack - Wie entfernen?
gelöst mtaiitVor 1 TagFrageExchange Server79 Kommentare

Hallo, bei mir hat es einige Kundenserver getroffen Weiß einer wie ich diese WebShells wieder loswerde? Das löschen der betroffenen .aspx Dateien wird wohl ...

Exchange Server
Wie grundsätzlich verfahren mit Exchange Zero-Day-Exploit?
StefanKittelVor 18 StundenFrageExchange Server14 Kommentare

Hallo, ich habe auf einem Server mit den Tool von Microsoft Zugriffsversuche am 26. und 27.02.21 gefunden. Das führt mich zu der Vermutung, dass ...

Exchange Server
Exchange-Hack (2021-03) war Angriff erfolgreich? Was dann?
FrM222Vor 6 StundenFrageExchange Server17 Kommentare

Hallo Zusammen, ich bin ganz neu hier im Forum, daher entschuldige ich mich schon mal im Voraus, falls ich beim Einstellen etwas falsch gemacht ...

E-Mail
Kann man mit SPF Mails für eine Domäne vollständig verbieten?
gelöst StefanKittelVor 1 TagFrageE-Mail17 Kommentare

Hallo, viele Firmen haben ja zusätzliche Domänen. Als Web- und oder Mail-weiterleitung. Es werden also niemals Emails damit gesendet werden. kann man mit einem ...

Python
Könnt ihr bugs finden ?
adriaanVor 21 StundenAllgemeinPython10 Kommentare

Guten Tag liebe Forenmitglieder, Ich schreibe heute diesen Beitrag, weil ich einen Python Zähler entwickelt habe. Diesen würde ich gerne härten und entsprechend gerne ...

Ausbildung
Projektantrag abgelehnt (IHK)
StrowayerVor 7 StundenFrageAusbildung10 Kommentare

Guten Tag, mein Projektantrag für die IHK wurde leider abgelehnt mit der Begründung: "Bitte überarbeiten Sie Ihren Zeitplan. Die Projektdokumentation sollte nicht 25% der ...

Off Topic
So funktioniert das Internet! - Danke, Maus
em-pieVor 1 TagInformationOff Topic2 Kommentare

Anlässlich des Geburtstages unserer orangenen Freundin: So funktioniert das Internet: Alles Gute, liebe Maus :-)

Netzwerke
Cisco IOS: grep?
gelöst PeterGygerVor 23 StundenFrageNetzwerke11 Kommentare

Hallo Falls jemand die Antwort aus dem Ärmel schütteln kann , danke ich im Voraus. In einem Vortrag wurde die Cisco IOS (Catalyst / ...