Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1268to1272
1268to1272
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

bereiche im sheet unprtect

Forumthread: bereiche im sheet unprtect

bereiche im sheet unprtect
Axel
Hollo Leute
Ich möchte in einem Sheet betimmte Bereiche freigeben über einen Optionsbutten, kann mir einer sagen wie das geht.
Das Sheet ist Passwort geschützt und ein bereich hat eine Bereichsfreigabe.
besten dank im Vorraus
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: bereiche im sheet unprtect
28.06.2012 08:17:58
guentherh
im Makro musst Du zuerst den Blattschutz komplett aufheben, deinen Bereich freigeben und die Sperre wieder aktivieren
--Blatt--.unprotect --passwort--
range(--bereich--).Locked = False
--Blatt--.protect --passwort--
Gruß
AW: bereiche im sheet unprtect
28.06.2012 08:31:12
hary
Moin Axel
Statt einen Optionbutton nimm ein ActiveX Kontrollkaestchen in die Tabelle. 

Private Sub CheckBox1_Click()
ActiveSheet.Unprotect
'Hier 2 Bereiche freigegeben bei Haken gesetzt
Union(Range("B10:B15"), Range("C1:C5")).Locked = IIf(CheckBox1.Value, False, True)
ActiveSheet.Protect
End Sub

gruss hary
Anzeige
AW: bereiche im sheet unprtect
28.06.2012 20:49:44
Axel
Danke euch beiden das hat mir ser geholfen
Axel
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige