bereiche im sheet unprtect

Forumthread: bereiche im sheet unprtect
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: 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

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: bereiche im sheet unprtect

guentherh
AW: bereiche im sheet unprtect

hary
AW: bereiche im sheet unprtect

Axel

AW: bereiche im sheet unprtect

28.06.2012 10: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 10: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

AW: bereiche im sheet unprtect

28.06.2012 22:49:44

Axel

Danke euch beiden das hat mir ser geholfen
Axel