Just nu i M3-nätverket
Jump to content

Skydda blad eller bok i Excel


Viper171

Recommended Posts

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?

Link to comment
Share on other sites

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

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...