macros, beveiliging, toch werkend

[Bassos]

Hoi,

Zie file >

Ik wil dat knoppen in de excelsheet werken, ook als de excelsheet beveiligd is. Hoe krijg ik dat voor elkaar?


Bas

 

[bandito bob]

Je kan het oplossen door de beveiliging op te heffen , de actie uit te voeren en daarna de blad beveiliging er weer op te zetten.

Zoiets dus:

ActiveSheet.Unprotect Password:="hier jouw password"
    Hier de actie....
    ActiveSheet.Protect Password:="hier jouw password"

Groeten Paul.

 

[tilpi]

Als eerste regel in beide modules
Activesheet.Unprotect Password:= "Jouwwachtwoord"

Als laatste regel toevoegen

Activesheet.Protect Password:= "Jouwwachtwoord"

Mvg

Piet

 

[Bassos]

Het werkt inderdaad. Alleen nu kan ik de beveiligde cellen ook van kleur veranderen en dat is nu net niet de bedoeling. Is hier een oplossing voor, zodat dit niet kan?

 

[tilpi]

Als de overige cellen ook echt beveilgd zijn dan kan dat niet.

Je moet dan wel zoals ik zei de laatste regel ook toevoegen.

Mvg

Piet

 

[bandito bob]

Dus je wilt alle NIET beveiligde cellen in het werkblad met de macro een ander kleurtje geven, terwijl de beveiligde cellen dezelfde kleur houden?

De mogelijkheden van VBA zijn erg groot, dus dit zal denk ik ook wel kunnen. Alleen kan ik je dan niet verder helpen aangezien ik ook nog maar een beginner ben met VBA.

Zijn altijd dezelfde cellen beveiligd? Of zijn dit steeds andere cellen?

 

[resmatrix]

Onderstaand de codes is dit de bedoeling?

Sub geel()
' geel Macro
' Macro recorded 20-9-2007 by BB
ActiveSheet.Unprotect Password:="test"
Selection.Interior.ColorIndex = 6
ActiveSheet.Protect Password:="test"
End Sub

Sub wit()
' wit Macro
' Macro recorded 20-9-2007 by BB
ActiveSheet.Unprotect Password:="test"
Selection.Interior.ColorIndex = 2
ActiveSheet.Protect Password:="test"
End Sub

 

[jpvs]

of

Als je alleen in het gebied (F16:G20) werkt kun je dit gebruiken :

Private Sub Worksheet_Activate()
    Application.ScreenUpdating = False
    ScrollArea = "F16:G20"
End Sub

Achter je blad plaatsen (Alt+F11).

Pierre