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

• #24035 m.zmrzlina senior tag tgumis #24034

  Új Válasz 2014-11-01 22:29:55 #24035

  Ú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 #24034 üzenetére

  Próbáld ezt:

  Sub kodolas()
  '
  ' munkalap védetté tétele
  For Each ws In Worksheets
  ActiveSheet.Protect Password:="xxxxxx", UserInterfaceOnly:=True
  Next
  End Sub
  Sub kikodolas()
  '
  ' munkalap kikódolás
  For Each ws In Worksheets
  ActiveSheet.Unprotect Password:="xxxxxx"
  Next
  End Sub

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