Skydda blad eller bok i Excel

[Viper171]

Jag har en Excel arbertsbok bestående 50st blad.

Problemet är att ungefär hälften på varje blad skall vara låst, resten skall gå skriva i. Måste man skydda varje blad, eller går det att göra på något annat sätt?

[MH]

Har du angett vilka celler som skall vara skyddade?

 

Om det är samma områden som skall vara skyddade/oskyddade i varje blad så kan du markera alla blad (högerklicka på en bladflik och välj markera alla blad, eller använd musen och [CTRL] och shift).

 

Sedan är det bara att markera de områden du vill ha skrivskyddade/oskyddade och ändra cellegenskapen (formatera celler - skydd - låst).

 

Jag tror däremot inte att det går att aktivera skrivskyddet för flera blad i taget, men det går med ett enkelt makro.

 

Sub skrivskydda ()

Dim I As Byte

For I = 1 To Sheets.Count

Sheets(I).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Next I

End Sub

 

Om du vill sätta password (tex till XXX) så får du ändra "sheets raden" till:

 

Sheets(I).Protect Password:="XXX", DrawingObjects:=True, Contents:=True, Scenarios:=True

 

 

Du kan naturligtvis styra vilka blad du vill skrivskydda genom att ändra start- och stopppunkt (I=1 till "Sheets.Count")

 

Lycka till

/m