• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Cel Blokeren , wel gegevens kunnen wegschrijven

Status
Niet open voor verdere reacties.

marcel31281

Gebruiker
Lid geworden
30 okt 2015
Berichten
391
Beste Forumleden,

Ik krijg de vraag of het veld opmerkingen/bijzonderheden geblokeerd kan worden voor bewerken op het onderhoudsrapport.
En de gegevens alleen op het blad overzicht kunnen worden ingevuld, en ze vanuit daar overnemen op het onderhoudsrapport.

Als ik het veld op het rapport blokeer voor bewerken, krijg ik een foutmelding als de gegevens moeten worden overgenomen vanuit het overzicht
 

Bijlagen

Welke foutmelding krijg je dan.?

Waarschijnlijk moet je eerst de beveiliging van het onderhoudsrapport afhalen.
Code:
Sheets("OH RAPPORT").Unprotect "wachtwoord"
 
IK had het bestand nog, waarschijnlijk ben je hiermee geholpen.


Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ActiveSheet.Unprotect "PPM"

If Application.CutCopyMode = False Then
Application.Calculate
End If

If Not Intersect(Target, Columns(3)) Is Nothing Then
    With Sheets("OH RAPPORT")
      [COLOR="#FF0000"].Unprotect "PPM"[/COLOR]
      .Range("I7:I9") = Application.Transpose(Target.Resize(, 3))
      .Range("C4") = Target.Offset(, -1).Value
      .Range("F7") = Target.Offset(, 3).Value
      .Range("F8") = Target.Offset(, 4).Value
      .Range("F9") = Target.Offset(, 5).Value
      .Range("C48") = Target.Offset(, 6).Value
      [COLOR="#FF0000"].Protect "PPM"[/COLOR]
    End With
    
  End If
ActiveSheet.Protect "PPM"

End Sub
 
Probeer het eens met.
Anders weet ik het ook niet, dan maar even wachten op de echte VBA goeroe.
Code:
Application.ScreenUpdating = False
 
Laatst bewerkt:
Zo beter?
Ik heb meteen nog een wijziging aangebracht in de worksheet_selectionchange in blad OH RAPPORT.
 

Bijlagen

Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan