VBA-kod för att skydda alla blad i en arbetsbok - Excel - Forum Excel, VBA, VSTO, Exceltips, Excelhjälp

Sök Forumets startsida

Forum

Diskussioner

Excel

VBA-kod för att skydda alla blad i en arbetsbok

Föregående

Nästa

2012-12-12 15:44

Rambo

Medlem sedan: 2012-12-12

101 inlägg

VBA-kod för att skydda alla blad i en arbetsbok

När jag har kört nedanstående makro för att skydda alla blad i en arbetsbok så kan jag inte infoga några kommentarer i cellerna som är olåsta.
Är det någon som vet hur man löser detta i VBA-koden?

Sub Skydda_alla_Blad()
    Application.ScreenUpdating = False
    For Each ws In ActiveWorkbook.Worksheets
    ws.Protect Password:="#Rambo#"
    Next ws
    MsgBox "Alla blad i arbetsboken är skyddade"
End Sub

2012-12-13 10:29

Rambo

Medlem sedan: 2012-12-12

101 inlägg

Re: VBA-kod för att skydda alla blad i en arbetsbok

Jag löste problemet själv enligt nedan. La även till möjligheten att använda autofiltret.

Sub Skydda_alla_Blad()
    Application.ScreenUpdating = False
    For Each ws In ActiveWorkbook.Worksheets
        ws.Protect Password:="#Rambo#", DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFiltering:=True
     Next ws
     MsgBox "Alla blad i arbetsboken är skyddade"
End Sub

Sida 1 av 1

VBA-kod för att skydda alla blad i en arbetsbok