Microsoft Excel

Herbers Excel/VBA-Archiv

schreibschutz aufheben



Excel-Version: 9.0 (Office 2000)

Betrifft: schreibschutz aufheben
von: lydia
Geschrieben am: 11.10.2002 - 10:21:32

Hallo,
ich habe eine arbeitsmappe mit 5 blättern. auf einem blatt liegt ein schreibschutz. ich möchte jetzt aus vb heraus den schreibschutz aufheben, einen wert eintragen und den schreibschutz wieder setzen. kann mir jemand weiterhelfen?

Gruß

Lydia


  

habs gefunden
von: lydia
Geschrieben am: 11.10.2002 - 10:51:05

danke fürs lesen, habe selbst ne möglichkeit gefunden

  

Re: schreibschutz aufheben
von: stephan
Geschrieben am: 11.10.2002 - 10:55:07

Hallo!
So funktioniert es:
Public Sub test()
Sheets("test").Select
'Wählt das Blatt test aus
ActiveSheet.Unprotect ("test")
'Hebt den Schreibschutz mit Passwort test auf
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
Scenarios:=True, password:="test"
'Setzt den Schreibschutz mit Passwort test
End Sub

Gruß
Stephan