Excel blad beveiliging met 'knop' opslaan en printen

[wesley5479]

Goedendag handige Excel mensen,

Ik heb in Excel een formulier gemaakt.
Men moet bepaalde velden in kunnen vullen, maar velden met de formules moet men afblijven!
Ik heb dus deze velden beveiligd.
Super werkt het!!!

Echter het volgende is het probleem.
Ik heb bij dit formulier ook een paar knoppen toegevoegd.
Een knop 'opslaan' en een knop 'printen'. dit via Ontwikkelaars-invoegen-opdrachtknop
Als ik het blad beveiligd heb, dan werken deze knoppen dus niet.
Hij geeft dan aan dat in de code de volgende fout is: Value . Value deze tekst is geel en dus niet goed.
Hoe kan dit verholpen worden?
Help me, help me ..

Groet Wesley

 

[edmoor]

Kennelijk wil je wat wijzigen in een beveiligd gedeelte.
Haal dus in de code van die knop eerst de beveiliging eraf met Sheets("Naam").UnProtect "Wachtwoord"
Doe je wijziging en zet dan de beveiliging weer terug met Sheets("Naam").Protect "Wachtwoord"

 

[wesley5479]

lukt nog niet

Het is me nog niet duidelijk, het wil me nog niet lukken om het voor elkaar te krijgen

De knop print werkt niet als blad is beveiligd.

Bijgevoegd heb ik het bestand.
Kan iemand me wegwijs maken.
Alvast meer dan bedankt.

 

[gast0660]

Voor de print knop

Private Sub CommandButton1_Click()
With Sheets("Checkin")
    .Unprotect "wes050479"
    .PrintOut
    .Protect "wes050479"
End With
End Sub

 

[wesley5479]

Bedankt Dothcie jack

Het werkt!!!
Super
Maar nu wil ik hetzelfde met de 'save'knop
Kun je die ook nog aanpassen?

m.v.g.
Wesley

 

[gast0660]

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With Sheets("checkin")
.Unprotect "wes"
.Copy
For Each obj In ActiveSheet.OLEObjects
    obj.Delete
Next obj
    With ActiveWorkbook
        With .Sheets(1).UsedRange
            .Value = .Value
        End With
    .SaveAs "C:\Users\Gebruiker\OneDrive\CAMPING\checkin\checkin" & [G7].Value & [G15].Value & [G17].Value & ".xlsx"
    .Close
    End With
.Protect "wes"
End With
End Sub

 

[wesley5479]

Jaaaaa!!!!

Geweldig!!!
het werkt als een zonnetje!!

Bedankt...

 

[gast0660]

Mooi zo.:thumb: