Blattschutz soll nur bestimmte Steuerelemente schützen!Excel 2003 - VBA
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
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
4 Antworten
- LÖSUNG 76109 schreibt am 29.07.2011 um 19:55:31 Uhr
- LÖSUNG Dudelidude schreibt am 01.08.2011 um 09:24:22 Uhr
- LÖSUNG 76109 schreibt am 02.08.2011 um 00:24:16 Uhr
- LÖSUNG Dudelidude schreibt am 02.08.2011 um 09:17:04 Uhr
- LÖSUNG 76109 schreibt am 02.08.2011 um 00:24:16 Uhr
- LÖSUNG Dudelidude schreibt am 01.08.2011 um 09:24:22 Uhr
LÖSUNG 29.07.2011 um 19:55 Uhr
LÖSUNG 01.08.2011 um 09:24 Uhr
LÖSUNG 02.08.2011 um 00:24 Uhr
LÖSUNG 02.08.2011 um 09:17 Uhr