Fejlmeddelelse ved beskyttet felt

Hvis du ikke vil have cellerne beskyttede, kan du bare fjerne arkbeskyttelsen :o)

Du vil ændre fejlmeddelsen der kommer til din egen fejlmeddelse, kan det sagtens lade sig gøre. Brug denne macro:


Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Message As String
   
    Message = "Fy - du må ikke ændrer i celle i række "
    Message = Message & Target.Row
    Message = Message & ", kolonne "
    Message = Message & Target.Column
    MsgBox Message, vbOKOnly, "Giv agt"
   
End Sub

Wups - der HAR man jo mulighed for at ændre cellens værdi - den oprindelige værdi skal nok lige gemmes i en variabel først, og så skrives til cellen igen. Mon ikke du kan bruge _Activate / _Deactivate til det, eller nogle andre...

Man må godt kunne ændre i felterne rundt om det beskyttede. Ved denne sub kommer beskeden hele tiden frem.

Så kan du jo tjekke på target - er target ikke i det område du ønsker, exit'er du Sub'ben med Exit Sub :o)

hvis man nu siger at man ikke må skrive i rangen a4-a10, hvad er koden så?

Jeg udskriver netop row og column i en msgbox ovenfor, så du kan se hvordan de læses. Dem kan du jo fx. bruge således:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Row = 1 And Target.Column <= 10 Then
    'Bla bla bla
  End If
End Sub

:o)

du må lige svare igen hvis du vil have point - du har i hvert fald fortjent dem :)

Fik du det til at virke med at gemme værdierne og skrive dem til cellerne igen... HAr ikke eksperimenteret med det selv... Men her er et svar :o)