macro kolommen verbergen werkt niet ?

Status
Niet open voor verdere reacties.
Als togglebutton1 = true dan beveiliging eraf, anders......
Code: 
private sub togglebutton1_click()
  if togglebutton1 then
   sheets(1).unprotect
 else
   sheets(1).protect
 end if
end sub
 
Ik wordt er gek van :shocked::shocked::shocked:

heb je code wat aangepast ivm protect en unprotect, en werkt op zich prima :thumb:

Ik wil alles testen en nu "BOTS" ik op het volgende:

Ik open het bestand:
het tabblad is beveiligd (klopt, zo wil ik het)
ik kan dus enkel inputten van range D13: G37 (dit werkt !)(dit is voor de barcodescanner)
als ik nu op de wisselknop "KLIK" korting tonen, en ik wil in range D13:G37, dan WERKT dit niet meer !?
(ik vermoed dat het te maken heeft met in de code van wisselknop1 waar ik verwijs naar protect unprotect ?

Als ik vervolgens op de 2de wisselknop % aanpassen klik, kan ik de cel selecteren, echter ik kan de % niet aanpassen ???

Ik ga het bestandje ff mee uploaden

Tom

Bekijk bijlage testkoppelverkoop.rar

deze code werkt

Code: 
Private Sub ToggleButton2_Click()
Application.ScreenUpdating = False
    ToggleButton2.Caption = IIf(ToggleButton2, "% aanpassen", "% vast")
     If ToggleButton2 Then
   Sheets(1).Unprotect
 Else
   Sheets(1).Protect
 End If
    Range("D13").Select
    Application.ScreenUpdating = True
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan