commandbutton voorzien van een wachtwoord

[rkootje]

Fout 1004

Methode van klasse van Paste worksheet is mislukt

 

[edmoor]

Dat zit hem denk ik in de volgorde van beveiling opheffen, weer beveiligen en wat je huidige blad is.
Probeer deze eens:

Private Sub cmbwwoke_Click()
    If Txtww <> "Alfred" Then 'wachtwoord aanpassen aan gebruiker
        MsgBox "Wachtwoord onjuist."
        Exit Sub
    End If
        
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect Password:="x"
    ActiveCell.FormulaR1C1 = "Acc. AKL" 'initialen wijzigen aan gebruiker
    
    Range("B4:E4").Select
    With Selection.Interior
        .ColorIndex = 4
        .Pattern = xlSolid
    End With

    Application.Goto Reference:="copie"
    Application.Goto Reference:=ActiveSheet.Cbbkeuzeweek
    ActiveSheet.Unprotect Password:="x"
    Selection.Copy
    ActiveSheet.Paste
    ActiveSheet.Protect Password:="x", UserInterfaceOnly:=False
    Application.Goto Reference:="copie"
    Application.CutCopyMode = True
    Range("A1").Select
    ActiveSheet.Protect Password:="x", UserInterfaceOnly:=False

    Application.ScreenUpdating = True
    Unload Me
    
End Sub

 

[rkootje]

Fout 1004 tijdens uitvoering

Bekijk bijlage Test urenregistratieemail1.zip

Methode paste van klasse Worksheet is mislukt.
ik heb het bestandje toegevoegd

 

[edmoor]

Zorg eerst dat beide bladen beveiligd zijn en klik dan pas op Uren akkoord.

 

[rkootje]

Hoi Edmoor,werkt niet!

geprobeerd, maar dat werkt niet, blad1 mag ook niet worden beveiligd, immers daar dienen de gegevens te worden ingevoerd. en bij gebruik van een knop de info op blad gegevens te worden gekopieerd. maar zelfs als je beiden bladen beveiligd, krijg je dezelfde foutmelding.

 

[edmoor]

Ok dan. Ik dacht dat je beide bladen beveiligd had.
Dan wordt het inderdaad anders. Als ik er vanavond tijd voor heb al ik er nog eens naar kijken.