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

• #24038 m.zmrzlina senior tag tgumis #24036

  Új Válasz 2014-11-02 09:26:29 #24038

  Ú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

  

  m.zmrzlina

  senior tag

  válasz tgumis #24036 üzenetére

  Bocs, úgy látszik már késő volt tegnap.

  Sub kodolas()

  ' munkalap védetté tétele
  For Each ws In Worksheets
  ws.Protect Password:="xxxxxx", UserInterfaceOnly:=True
  Next

  End Sub

  Sub kikodolas()

  ' munkalap kikódolás
  For Each ws In Worksheets
  ws.Unprotect Password:="xxxxxx"
  Next

  End Sub

  Gondolom az történt, hogy az aktív lapon megcsinálta a dolgot a többin nem.

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