• 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.

Macro's werken niet meer als ik me sheet beveilig

Status
Niet open voor verdere reacties.
M

Mol3

Nieuwe gebruiker
Lid geworden
13 feb 2019
Berichten
3
Hoi helpers.

ik wil graag bepaalde kolommen beveiligen voor mensen die niet heel veel van Excel weten.
Zo kan ik er voor zorgen dat ze alleen de cellen kunnen invullen die ze Mogen invullen.

het probleem is dat als ik me sheet beveilig dan werken me macro's niet meer.

Help ik heb al verschillende macro's geprobeerd moeten oplossen maar dan werkt helemaal niets meer

HELP
 
Hoi mol3
Welkom op Helpmij:)
Zet dit in uw macro's
1ste lijn voor uw code
dan uw code
Dan de laaste lijn
Code: 
Sub Dotchie()
  ActiveSheet.Unprotect "wachtwoord"
  [COLOR="#008000"]'code[/COLOR]
  ActiveSheet.Protect "wachtwoord"
End Sub
De tekst wachtwoord vervangen door het echte wachtwoord.
 
het zal echt aan mij liggen maar het lukt echt niet :(
dit is mijn werkende macro

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Einde
If Target.Column = 2 Then
If Target.Value <> “” Then
Target.Offset(0, -1).Value = Date
Target.Offset(0, 6).Value = Time
Else: Target.Offset(0, -1).Value = “”
Target.Offset(0, 6).Value = “”
End If
End If
If Target.Column = 9 Then
If Target.Value <> “X” Then
Target.Offset(0, 1).Value = Date
Target.Offset(0, 2).Value = Time
Else: Target.Offset(0, 1).Value = “”
Target.Offset(0, 2).Value = “”

End If
End If
Einde:
End Sub

Als ik die ander macro erbij doe dan werkt bovenstaande niet meer
 
het voorstel in #2 was nochthans een heel goeie oplossing.
Je moet éénmalig de beveiliging van het werkblad, waarin deze verandering gebeurt, er af halen en daarna terug beveiligen met die userinterfaceonly als true.
Daarna kan de macro zijn werk doen in een beveiligd werkblad.
 
Plaats svp code tussen codetags voor de leesbaarheid. Gebruik geen On Error als je de fouten kan opvangen en breng structuur aan in de code. Bv
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, Range("B:B", "I:I")) Is Nothing Or Target.Count > 1 Then Exit Sub
  Application.EnableEvents = False
  Select Case Target.Column
    Case 2
      Target.Offset(, -1) = IIf(Target <> "", Date, "")
      Target.Offset(, 6) = IIf(Target <> "", Time, "")
    Case 9
      Target.Offset(, 1) = IIf(Target <> "X", Date, "")
      Target.Offset(, 2) = IIf(Target <> "X", Time, "")
  End Select
  Application.EnableEvents = True
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan