na werkblad beveiligen makro wel cel kleur aan kunnen passen.

[spa123]

Waarom kan ik met onderstaande makro zodra deze inschakeld de celeigenschappen niet meer aanpassen?
De kleur van de cel moet ondanks de beveiliging nogsteeds aangepast kunnen worden.

middels AllowFormattingCells:=True,

moet dit toch goed staan?

Sub beveiligen()
'
' beveiligen Macro
'

'
    Columns("H:I").Select
    Selection.EntireColumn.Hidden = True
        Rows("703:711").Select
    Selection.EntireRow.Hidden = True
    Range("B16").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:=True
        Sheets("Trekdraad").Protect _
    Password:="wachtwoord123", _
    UserInterfaceOnly:=True, _
    AllowFiltering:=True
End Sub

 

[Cobbe]

Er is niets mis met die code.
Haal wel die selects weg, zijn nergens voor nodig.
Doorloop ze eens via F8 en zie waar het eventueel fout loopt bij u.

 

[VenA]

Een beetje rommelige code. Wie is de Actvivesheet en wie is de sheet 'Trekdraad'?

Moet het niet zoiets zijn

Sub VenA()
With Sheets("Trekdraad")
    .Columns("H:I").EntireColumn.Hidden = True
    .Rows("703:711").Hidden = True
    .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:=True
End With
End Sub

 

[spa123]

Een beetje rommelige code. Wie is de Actvivesheet en wie is de sheet 'Trekdraad'?

Moet het niet zoiets zijn

Sub VenA()
With Sheets("Trekdraad")
    .Columns("H:I").EntireColumn.Hidden = True
    .Rows("703:711").Hidden = True
    .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:=True
End With
End Sub

Op deze manier staat er toch geen wachtwoord op?

 

[spa123]

Er is niets mis met die code.
Haal wel die selects weg, zijn nergens voor nodig.
Doorloop ze eens via F8 en zie waar het eventueel fout loopt bij u.

Zal die select weghalen morgen.
Maar met F8 kijken waar het fout loopt werkt toch niet in dit geval?
Want de code werkt en het blad wordt beveiligd, probleem is dan alleen dat ik de cellen niet meer kan opmaken.
En dit moet juist nog wel kunnen.

 

[Cobbe]

Het probleem is dat je met uw code het aktieve blad en tab Trekdraad wil beveiligen.
Ik kan zo niet zien of je code geldt voor 2 bladen of enkel voor blad 'Trekdraad'

 

[spa123]

Alleen actieve zou genoeg zijn, dan is de code ook makkelijk in te passen in andere werkbladen. Welke regel moet dan aan gepast worden?

 

[Cobbe]

Doe eens de test:

Sub beveiligen()
'
' beveiligen Macro
'

With ActiveSheet
    .Columns("H:I").EntireColumn.Hidden = True
    .Rows("703:711").EntireRow.Hidden = True
    .Range("B16").Select
    .Protect Password:="wachtwoord123", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:=True, UserInterfaceOnly:=True
End With
End Sub

 

[spa123]

Doe eens de test:

Sub beveiligen()
'
' beveiligen Macro
'

With ActiveSheet
    .Columns("H:I").EntireColumn.Hidden = True
    .Rows("703:711").EntireRow.Hidden = True
    .Range("B16").Select
    .Protect Password:="wachtwoord123", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:=True, UserInterfaceOnly:=True
End With
End Sub

bedankt cobbe!
dit werkt!!!!