beveiliging met knop

[bartdeboer87]

goedemorgen


Sub beveiligingopheffen()

ActiveSheet.Unprotect

End Sub



Sub beveiligingmaken()

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True

End Sub

ik heb een Excel werkblad waar 2 knoppen staan, nu wil ik graag dat het 1 knop wordt, en die weet wanneer de beveiliging aan staat,


als beveiliging aan staat weergeeft: beveiliging opheffen,
en wanneer onbeveiligd:beveiligen.



Kan iemand mij helpen?

b.v.d.

B. de Boer

 

[lollige]

Ik heb hier geen verstand van Exel, maar een beetje VB wel.. Is het een idee om met een ifje te werken?

If beveiliging = aan
doe 'm dan uit

If beveiliging = uit,
doe 'm dan aan

Ideetje?

 

[Wigi]

Zoiets?

Sub protectionsheet()
With ActiveSheet
    If .ProtectContents = True Then
        .Unprotect Password:="jouwpaswoord"
    Else
        .Protect Password:="jouwpaswoord"
    End If
End With
End Sub

Wigi

 

[bartdeboer87]

Sub probeerbeveiliging()

With ActiveSheet
    If .ProtectContents = True Then
            ActiveSheet.Shapes("Button 104").Select
    Selection.Characters.Text = "beveiliging" & Chr(10) & ""
    With Selection.Characters(Start:=1, Length:=21).Font
        .Name = "Arial"
        .FontStyle = "Standaard"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        
       ActiveSheet.Shapes("Button 104").Select
    Selection.OnAction = "beveiligingmaken"
        Range("A1").Select
    End With
    Else
                    ActiveSheet.Shapes("Button 104").Select
    Selection.Characters.Text = "beveiliging opheffen" & Chr(10) & ""
    With Selection.Characters(Start:=1, Length:=21).Font
        .Name = "Arial"
        .FontStyle = "Standaard"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
               ActiveSheet.Shapes("Button 104").Select
    Selection.OnAction = "beveiligingopheffen"
        Range("A1").Select
    End With

    End If
End With
End Sub

dit heb ik ervan gemaakt maar als ik hem toewijs aan button 104 doet hij eigelijk niets..
wat kan het probleem zijn

 

[Wigi]

dit heb ik ervan gemaakt maar als ik hem toewijs aan button 104 doet hij eigelijk niets..  wat kan het probleem zijn[/QUOTE]

Misschien komt het omdat je ActiveSheet.ProtectContents = True en ActiveSheet.ProtectContents = False niet begrijpt. Ht is omgekeerd namelijk dan wat jij denkt.