Új hozzászólás Aktív témák

• #43309 ROBOTER addikt Fferi50 #43303

  Új Válasz 2020-03-21 08:04:56 #43309

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  ROBOTER

  addikt

  válasz Fferi50 #43303 üzenetére

  Köszi!

  Kipróbáltam, de valami mással van a baj.
  Érvényesíteni próbálok egy cellában, lista hozzáadásával. És csak ezt nem engedi.
  A cella nem zárolt. Kézzel enged hozzányúlni.

  s = "=AUX2!$A$2:$A$" + CStr(rowCount)
With Range("PARTNER").Cells(Target.Row, 1)
    .Interior.Color = RGB(0, 200, 0) 'csak próba, működik
End With
With Range("PARTNER").Cells(Target.Row, 1).Validation
    .Delete
  ' a következő sorra hibát ad:
   .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=s
End With

  De makróból csak akkor engedi a validationt állítani, ha unprotected a sheet. Viszont engedi átszínezni vagy hasonlót.

  Ha beteszem a fenti kód elé, hogy ActiveSheet.Unprotect... akkor megy, és jól megy. Megcsinálhatom, hogy minden makró elejére és végére beteszek 1-1 protect/unprotectedet, de nem túl elegáns.

  [ Szerkesztve ]

• #43304 Delila_1 veterán Fferi50 #43303

  Új Válasz 2020-03-21 06:55:26 #43304

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Fferi50 #43303 üzenetére

  Nem szűnik meg a füzet bezárása után sem a lap védettsége.
  Ha eredetileg nem volt védve a lap, a
  Sheets(x).Protect Password:="Jelszó" , UserInterfaceOnly:=True
  sor akkor is védetté teszi.
  Védelemnél azt is be szoktam állítani, hogy a zárolt cellákat ne lehessen kijelölni.
  Sheets(x).EnableSelection = xlNoSelection

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Új hozzászólás Aktív témák