Re: Schreibschutz für 1 Sheet
05.06.2002 13:51:09
M@rkus
Du musst das ganze Tabellen Blatt markieren rechte Maustaste Zellen formatieren.../Schutz beide Häckchen setzen und dann entweder per VBA das Blatt schützen oder unter Extras/Schutz/Blatt schützen.Folgender Code Schützt Tabellenblatt 1 mit dem Passwort "123". Der Passwort schutz kann auch weggelassen werden. Er ist optional.
Sub Tabelle1Schuetzen()
Dim xlSheet As Worksheet
Set xlSheet = Worksheets(1)
xlSheet.Protect "123"
End Sub
Sub Tabelle1SchutzAufheben()
Dim xlSheet As Worksheet
Set xlSheet = Worksheets(1)
xlSheet.Unprotect
End Sub
Viele Grüsse
Markus