Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 5 van 5

Onderwerp: Macro die rij toevoegt ook laten werken in beveiligde omgeving.

  1. #1
    Junior Member
    Geregistreerd
    23 november 2022
    Vraag is niet opgelost

    Macro die rij toevoegt ook laten werken in beveiligde omgeving.

    Hoi,

    Ik heb een macro die in de basis werkt, maar niet meer werkt als ik de sheet beveilig. Ik heb twee problemen.

    In mijn eerste dertien rijen staan formules die niet gewijzigd mogen worden. Alles vanaf rij 14 mag men wijzigen zonder problemen.
    Mijn macro is er 1 die automatisch de formules meekopieert van de rij erboven. Dit is handig voor rij 14 en verder, maar desastreus als je met je cursor op de eerste 13 rijen staat.
    Dan staat er foutieve data.
    Ik heb zelf al een macro gevonden waarmee ik automatisch een rij kan toevoegen. Deze macro moet alleen niet werken als ik met mijn cursor in de eerste 13 rijen sta.
    En wel werken in de beveiligde omgeving.
    Mijn macro werkt alleen nu helemaal niet als ik de sheet beveilig.
    Ik reeds het bereik wat bewerken toelaat aangezet vanaf rij 14 maar dit lost mijn probleem nog niet op.

    Wie snapt mij en kan onderstaande codering aanpassen? De selectie heeft nu nog geen uitzondering voor rij 14 in de code en daarnaast is de macro uitgeschakeld als de sheet wordt beveiligd. Beiden wil ik niet

    Sub NieuweRijInvoegen()


    If ActiveSheet.ProtectContents Then


    MsgBox "Het werkblad is beschermd!"


    Else


    With ActiveCell
    .EntireRow.Select
    .EntireRow.Insert
    .EntireRow.Copy
    End With


    With Selection
    .PasteSpecial Paste:=xlFormulas, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
    .Cells(1, 3).Select
    End With


    Application.CutCopyMode = False


    End If


    End Sub

  2. #2
    Senior Member
    Geregistreerd
    1 juni 2022
    Zoiets:

    Code:
    Sub NieuweRijInvoegen()
        If ActiveCell.Row < 14 Then Exit Sub
        ActiveSheet.Unprotect "jouwpassword"
        With ActiveCell
            .EntireRow.Select
            .EntireRow.Insert
            .EntireRow.Copy
        End With
        With Selection
            .PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            .Cells(1, 3).Select
        End With
        Application.CutCopyMode = False
        ActiveSheet.Protect "jouwpassword"
    End Sub
    Laatst aangepast door AHulpje : 23 november 2022 om 20:02

  3. #3
    Junior Member
    Geregistreerd
    23 november 2022
    Wat een baas ben jij. Mega snel gereageerd en het werkt. Ik ben je super dankbaar!
    Top forum dit!

  4. #4
    Giga Honourable Senior Member
    Geregistreerd
    18 juli 2008
    Of:
    Code:
    Sub hsv()
     With ActiveCell.EntireRow
       .Copy
       .Insert xlAbove
     End With
    Application.CutCopyMode = False
    End Sub
    Met enig verschil in de formules mits rij relatief.
    Code:
    Sub hsv_2()
    With ActiveCell.EntireRow
      .Insert
      .Offset(-1).Formula = .Formula
    End With
    End Sub
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  5. #5
    Giga Honourable Senior Member
    Verenigingslid
    snb's avatar
    Geregistreerd
    12 juni 2008
    Gebruik een dynamische tabel, die doet zelf wat jij probeert te programmeren.
    VBA voor smarties
    VBA is een taal die je moet leren met een grammatica- en een woordenboek.

    http://www.helpmij.nl/forum/announcement.php?f=5
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren