Schreibschutz
22.07.2004 15:05:32
Rob
mit dem folgenden Makro schütze ich automatisch beim Schliessen der Datei alle Blätter.
Kann man alle Blätter schützen bis auf ein Blatt, das "Produkt" heißt? Es enthält PDF Dateien und die kann man ansonsten nicht öffnen.
Vielen Dank
Rob
Sub Schreibschutz()
'Schreibschutz in allen Blättern
Dim i As Integer
Dim j As Integer
With ActiveWorkbook
For i = 1 To .Sheets.Count
.Sheets(i).Protect (pwa)
Next i
End With
Exit Sub
End Sub